Напишите пожалуйста программу ** Паскале

0 голосов
22 просмотров

Напишите пожалуйста программу на Паскале


image

Информатика (349 баллов) | 22 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Const n=4;
type point=record
        x,y:real;
       end;
var m:array[1..n] of point;
i,j:integer; min:real;
function r(p1,p2:point):real;
begin
 r:=sqr(p1.x-p2.x)+sqr(p1.y-p2.y);
end;
begin
Randomize;
for i:=1 to n do
 begin
 write(i,' точка: '); readln(m[i].x, m[i].y);
 end;
min:=100000;
for i:=1 to n-1 do
 for j:=i+1 to n do
  if r(m[i],m[j])writeln('min=',sqrt(min));
end.

Пример:
1 точка: 1 1
2 точка: 5 1
3 точка: 1 4
4 точка: 5 4
min=3

(194k баллов)