Розв’язок задачі з Абрамова №443

Всі умови | Умова: Дано дійсні числа a, b, c, d. Знайти площу п'ятикутника, зображеного на рис. 18. (Визначити процедуру обчислення площі трикутника за трьома його сторонам.) (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №443)

program Pr443;
var
  a, b, c, d, s, s1, s2, s3, p : real;
  
  function plosha(x,y,z: real): real;
  begin
    p := (x + y + z)/2;
    result := sqrt(p * (p - x) * (p - y) * (p - z));
  end;

begin
  repeat
    write('1readln(a);
  until (a>1) and (a<3);
  
  repeat
    write('0.5readln(b);
  until (b>0.5) and (b<4.5);
  
  repeat
    writeln('c,d c+d>2.5');
    readln(c);
    readln(d);
  until (c+d>2.5) and (2.5+c>d) and(2.5+d>c);

  s1:= plosha(1,2,a);
  s2:= plosha(2,2.5,b);
  s3:= plosha(2.5,c,d);
  s:= s1 + s2 + s3;
  writeln(s);
  readln;
end.