Задано натуральное n и координаты n точек на плоскости. составить алгоритм и программу на delphi для определения координаты точки,наименее удаленной от точки с координатами (10; -2)
Program MinDist; {$APPTYPE CONSOLE} uses sysutils;
const k = 100; ax = 10; ay = -2;
var T: array[1..k, 1..2] of integer; r, rmin, i, n: integer;
begin write('Введите число точек на плоскости: '); readln(n); rmin := 32767; Randomize; writeln('Исходные данные:'); for i := 1 to n do begin T[i, 1] := Random(51) - 25; T[i, 2] := Random(51) - 25; r := sqr(T[i, 1] - ax) + sqr(T[i, 2] - ay); if rmin > r then rmin := r; writeln('(', T[i, 1], ',', T[i, 2], ')') end; writeln(#13#10, 'Минимальное расстояние от А(', ax, ',', ay, ') равно: ', sqrt(rmin)) end.
Год создания первого компьютера - 1938 год, машина Z1, инженер Конрад Цузе. Первым функционирующим программируемым компьютером принято считать Z3(1941 год) этого же инженера.
Год создания первого отечественного компьютера- 1951 год, МЭСМ, разработана группой Лебедева в Киеве.
Год открытия радиосвязи- 1995 год, изобретатель А. С. Попов
Год первого полета человека в космос- 1961 год, Ю. Гагарин
Год принятия христианства на Руси- 988 год.
Год первого упоминания в летописи о Москве- 1147 год, летопись "Москва"
Год начала великой отечественной войны- 1941 год,
Год запуска первого искусственного спутника земли- 1957 год, «Спутник-1», СССР
Год создания первого компьютера - 1938 год, машина Z1, инженер Конрад Цузе. Первым функционирующим программируемым компьютером принято считать Z3(1941 год) этого же инженера.
Год создания первого отечественного компьютера- 1951 год, МЭСМ, разработана группой Лебедева в Киеве.
Год открытия радиосвязи- 1995 год, изобретатель А. С. Попов
Год первого полета человека в космос- 1961 год, Ю. Гагарин
Год принятия христианства на Руси- 988 год.
Год первого упоминания в летописи о Москве- 1147 год, летопись "Москва"
Год начала великой отечественной войны- 1941 год,
Год запуска первого искусственного спутника земли- 1957 год, «Спутник-1», СССР
{$APPTYPE CONSOLE}
uses sysutils;
const
k = 100;
ax = 10;
ay = -2;
var
T: array[1..k, 1..2] of integer;
r, rmin, i, n: integer;
begin
write('Введите число точек на плоскости: ');
readln(n);
rmin := 32767;
Randomize;
writeln('Исходные данные:');
for i := 1 to n do
begin
T[i, 1] := Random(51) - 25;
T[i, 2] := Random(51) - 25;
r := sqr(T[i, 1] - ax) + sqr(T[i, 2] - ay);
if rmin > r then rmin := r;
writeln('(', T[i, 1], ',', T[i, 2], ')')
end;
writeln(#13#10, 'Минимальное расстояние от А(', ax, ',', ay, ') равно: ', sqrt(rmin))
end.