С клавиатуры ввести натуральное число n и вещественные числа х1, у1,... хi,уi,. Рассматривая пары хi, и уi, как координаты точек на плоскости, определить радиус наименьшего круга (с центром в начале координат), внутрь которого попадают все эти точки. Вычисление расстояния между двумя точками реализовать в виде функции. Результат вывести в файл оut.txt. переделайте пожалуйста с паскаля на C(СИ)
uses crt;
var
i,n:integer;
x,y,min,t:real;
begin
clrscr;
write('Введите n = ');
readln(n);
min:=0;
for i:=1 to n do
begin
write ('Введите x[',i,'] = ');
readln(x);
write ('Введите y[',i,'] = ');
readln(y);
t:=sqrt(x*x+y*y);
if t>min thenmin:=t;
end;
write('радиус = ',min:0:2);
readkey;
end.
uses crt;
var
i,n:integer;
x,y,min,t:real;
begin
clrscr;
write('Введите n = ');
readln(n);
min:=0;
for i:=1 to n do
begin
write ('Введите x[',i,'] = ');
readln(x);
write ('Введите y[',i,'] = ');
readln(y);
t:=sqrt(x*x+y*y);
if t>min thenmin:=t;
end;
write('радиус = ',min:0:2);
readkey;
end.
More Questions From This User See All