Всі умови | Умова: Дано дійсні числа 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.