Программирование алгоритмов разветвляющейся структуры

Выполнить следующие задания:

1. Определить площадь треугольникаобразованного тремя отрезками известной длины. При решенииданной задачи воспользоваться формулой Герона расчета площади треугольника, а также учесть возможность построения треугольника.

Program Ploshad;

var

a,b,c,p,s:real;

begin

write(‘a=’); readln(a);

write(‘b=’); readln(b);

write(‘c=’); readln(c);

if (a+b>c) and (a+c>b) and (b+c>a) then

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln(‘s=’,s:6:3);

end

else writeln(‘treygolnik ne postroiti’);

readln;

end.

 

2. Найти сумму квадратов двух натуральніх чисел от 1 до 100.

Program Ex1;

Var

A:Integer;

S:Longint;

Begin

A:=1;

S:=0;

While a<=100 Do

Begin

S:=S+A*A;

A:=A+1;

End;

Writeln(S);

Readln;

End.

 

 

1. Составить программу нахождения большего из трех чисел a, b, c.

Program Bolshee;

var

a,b,c:real;

Begin

Write('a='); Readln(a);

Write('b='); Readln(b);

Write('c='); Readln(c);

if(a>b) and (a>c) then

writeln('a - naibolshee');

if(b>a) and (b>c) then

writeln('b-naibolshee');

if(c>b) and (c>a) then

writeln('c - naibolshee');

readln;

End.

 

3. Составить программу решения линейного уравнения с одной переменной вида ax=b, где a и b — некоторые числа, а x — переменная.

Program Uravnenie;

var

a,b,x:real;

begin

write(‘a=’); realln(a);

write(‘b=’); realln(b);

x:=b/a;

writeln(‘x=’,x:4:3);

readln(x);

end.