на плоскости задан треугольник координатами своих вершин. найдите наименьшую сторону треугольника. Написать программу в Pacsal.
Ответы
Ответ дал:
0
type
ko=record
x,y:real;
end;
var
a:array [1..3] of ko;
i:integer;
s:real;
function dl(n1,m1,n2,m2:real):real;
begin
dl:=sqrt(sqr(n2-n1)+sqr(m2-m1));
end;
begin
for i:=1 to 3 do
begin
write('x y: ');
readln(a[i].x,a[i].y);
end;
writeln;
s:=dl(a[1].x,a[1].y,a[3].x,a[3].y);
for i:=1 to 2 do
if dl(a[i].x,a[i].y,a[i+1].x,a[i+1].y) < s then
s:=dl(a[i].x,a[i].y,a[i+1].x,a[i+1].y);
writeln(s:2:2);
end.
Если моё решение помогло вам, пометьте его лучшим. Спасибо!
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад