Помогите решить задачу. Паскаль

[lalka]

Помогите решить задачу. Паскаль

Всем привет. Помогите сделать блок схему и код программы к ней в Pascal. Вот задача по которой нужно составить это

Задача.
Рассчитать площадь треугольника по формуле S= √p*(p-a)*(p-b)*(p-c) где p=(a+b+c)/2

 

[Vladimir_S]

Lalka, а самостоятельно справиться с этой школьной ерундистикой? Никак? А попытаться?

 

[lalka]

если бы справился, не писал бы

 

[Gruvi]

Аналогичных задач на форуме навалом, поищи.

 

[lalka]

попробовать поискать.... попробовать самому решить.... я бы не стал писать если бы искал сам. мне нужно быстрое решение! для этого я и создал тему.

 

[Vladimir_S]

для этого я и создал тему.

Ну что же, грех не вознаградить столь каторжный труд. Получите.

1. Простой вариант.

Var
 a,b,c,p,S:Real;
Begin
 Write('a = ');
 Readln(a);
 Write('b = ');
 Readln(b);
 Write('c = ');
 Readln(c);
 p:=(a+b+c)/2;
 S:=Sqrt(p*(p-a)*(p-b)*(p-c));
 Writeln('S = ', S:0:3);
 Readln
End.

2. Посложнее. Проверяется корректность вводимых длин сторон. Они должны быть:
а) положительными
б) каждая не должна превышать суммы двух других.

Var
 a,b,c,p,S:Real;

Function Test(at,bt,ct:real):boolean;
begin
 Test:=(at>0) and (bt>0) and (ct>0) and
 (at<=bt+ct) and (bt<=at+ct) and (ct<=at+bt);
end;

Begin
 Repeat
  Write('a = ');
  Readln(a);
  Write('b = ');
  Readln(b);
  Write('c = ');
  Readln(c);
  If Not(Test(a,b,c)) then writeln('Incorrect values!!!');
 Until Test(a,b,c);
 p:=(a+b+c)/2;
 S:=Sqrt(p*(p-a)*(p-b)*(p-c));
 Writeln('S = ', S:0:3);
 Readln
End.

 

[lalka]

огромное спасибо