AlexMilano
Program qq; uses crt; var xa, ya, xb, yb, xc, yc, s: integer begin write('Введите координаты вершины A'); read(xa,ya); writeln('Введите координаты вершины B'); read(xb,yb); writeln('Введите координаты вершины C'); read(xc,yc); s:=0.5*((xa-xc)*(yb-yc)-(xb-xc)*(ya-yc)); if s<0 then writeln('Площадь равна ',s); end. end. Я могу со знаками напутать, так как компьютера под рукой нет Там в скобках по русски
2 votes Thanks 1
los88
Почему только integer& Разве не должно ещё быть boolean ?
AlexMilano
Ну я точно не знаю, потому что я не уверенна правильно ли.
Answers & Comments
uses crt;
var xa, ya, xb, yb, xc, yc, s: integer
begin
write('Введите координаты вершины A');
read(xa,ya);
writeln('Введите координаты вершины B');
read(xb,yb);
writeln('Введите координаты вершины C');
read(xc,yc);
s:=0.5*((xa-xc)*(yb-yc)-(xb-xc)*(ya-yc));
if s<0 then
writeln('Площадь равна ',s);
end.
end.
Я могу со знаками напутать, так как компьютера под рукой нет
Там в скобках по русски