Lilit
Мыслитель
(7154)
4 года назад
Если я помню всё верно:
var
a, b, c, d: real; - это твои обозначенные переменные, и принадлежат они множеству действительных чисел.
function Square(x, y, z: real): real; - это ты задаёшь функцию Площадь (это просто название функции). То, что в скобках - это аргументы функции, и они тоже принадлежат множеству действительных чисел. Как и, написано после скобок, сама функция. Например, если бы у тебя была линейная функция y=kx+b, то: y - это название функции, x - аргумент, k и b - переменные. После begin начинаются условия и далее записана формула для нахождения площади. Далее вывод на экран.
var
a, b, c, d: real;
function Square(x, y, z: real): real;
begin
if ((y + z - x) > 0) and ((x + z - y) > 0) and ((x + y - z) > 0) then
begin
Square := 0.25 * (sqrt((x + y + z) * (y + z - x) * (x + z - y) * (x + y - z)));
end
else Square := 0;
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
writeln('Площадь треугольника со сторонами a,b,c = ', Square(a, b, c):3:3);
writeln('Площадь треугольника со сторонами a,b,d = ', Square( a, b, d):3:3);
writeln('Площадь треугольника со сторонами a,c,d = ', Square( a, c, d):3:3);
writeln('Площадь треугольника со сторонами b,c,d = ', Square( b, c, d):3:3);
end.