Нахождение площади треугольника по формуле Герона - Pascal
Формулировка задачи:
Здравствуйте написал программу по нахождению площади треугольника по формуле Герона:
С тестированием программы возникли проблемы, Паскаль выдает, что операция and неприменима к типу real.
Конечно же можно поставить тип integer, а переменные просто округлять, но это крайне не разумно, помогите разобраться, чтобы моя программа наконец-то заработала бы)
Program area_of_treugolnik; Var a,b,c,p,S:real; begin Writeln('Введите стороны треугольника'); readln(a,b,c); p:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); if a+b>c and a+c>b and b+c>a and a>0 and b>0 and c>0 then writeln(S) else writeln('Вы ввели неправильные данные'); end.
Решение задачи: «Нахождение площади треугольника по формуле Герона»
textual
Листинг программы
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then....
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д