Составить блок-схему и программу. Условие задачи: Даны координаты вершин треугол...

June 2022 1 9 Report

Составить блок-схему и программу. Условие задачи: Даны координаты вершин треугольника. Определить является ли треугольник равносторонним.

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.

0 votes Thanks 0

Answers & Comments

20b srochno nuzhno najti ploshad etoj figury v paskale metodom montekarlo r

srochno20b reshit v paskale uslovie zadachi trebuetsya nakopit summu v 60

srochnopaskal v massive 10h10 sformirovannom sluchajnym obrazom pomenya

srochno paskal 1dan dvumernyj massiv ann sformirovat odnomernyj ma

pozhalujstadany tryohznachnye naturalnye chisla n i k n lt k iz chisel ot

5 opredelenie srednego znacheniya i zapis v peremennuyu average end end write446d4cf4a6dcd6cfb2ea2390b0b97835 8894

5 opredelenie srednego znacheniya i zapis v peremennuyu average end end write

popytajtes rasshifrovat soobshenie zakodirovannoe shifrom cezarya s neizvestnym s

srochnopaskal 30 ballov v dvumernom massive 4h4 opredelit kolichestvo chyotnyh

paskal 1 v dvumernom massive 4h7 opredelit kolichestvo chyotnyh otricateln

рекомендуемые вопросы

Helpful Links

Helpful Social