Составить блок-схему и программу. Условие задачи: Даны координаты вершин треугольника. Определить является ли треугольник равносторонним.
Answers & Comments
srzontmp
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.
Answers & Comments
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.