Составить блок-схему и программу. Условие задачи: Даны координаты вершин треугольника. Определить является ли треугольник равносторонним.
Type point = record
x,y: real;
end;
var i: integer;
a,b,c: real;
pts: array[1..3] of point;
begin
writeln(координаты точек - через пробел);
for i:=1 to 3 do
begin
writeln(x,i, ,y,i);
readln(pts[i].x,pts[i].y);
end;
a:=sqr(pts[1].x)+sqr(pts[1].y);
b:=sqr(pts[2].x)+sqr(pts[2].y);
c:=sqr(pts[3].x)+sqr(pts[3].y);
if (a=b) and (a=c) then
writeln(треугольник равносторонний)
else writeln(треугольник НЕ равносторонний);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
