НАЙДИТЕ ОШИБКУ В ПРОГРАММЕ, СРОЧНО!
program WASD;
var AB,BC,AC,x1,x2,x3,y1,y2,y3,S,P:real;
begin
writeln('ВВЕДИТЕ ВЕРШИНУ A');
readln(x1,y1);
writeln('Введите вершину B');
readln(x2,y2);
writeln('Введите вершину C');
readln(x3,y3);
AB:=sqrt(sqr(x2-x1)+sqr(y2-y1));
BC:=sqrt(sqr(x3-x2)+sqr(y3-y2));
AC:=sqrt(sqr(x3-x1)+sqr(y3-y1));
P:=(AB+BC+AC):2;
S:=sqrt(P*(P-AB)*(P-BC)*(P-AC));
writeln('площадь',S);
end.
Ответы
Ответ дал:
0
Оператором деления, вообще-то, является "/", а не ":". Там стоило написать P := (AB + BC + AC) / 2;
А еще в Паскале вывод вещественных чисел стоит делать по типу S:2:3, результат покрасивее будет
Lanaya1:
writeln('ВВЕДИТЕ ВЕРШИНУ A'); там в этой строке ошибка
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад