Правила форума
Прочтите прежде чем задавать вопрос!
Попалось такое задание:
Даны координаты N точек: (xi, yi), i=1,2,...,N. Найти радиус наименьшего круга с центром в начале координат, внутрь которого попадают все эти точки.
В принципе, честно говоря, понял его только перечитав раз 20, это точно.
Так как я геометрию не любил даже еще со школьной программы.
Для составления програмки не поленился, нашел формулу радиуса с центром в начале координат ))
Сделал сначала элементарную програмульку, где ввобишь координаты 2 точек, а она выводит их радиус:
Код
program okruj;
var
x, y, r, : real;
begin
write('x= ');
readln(x);
write('y= ');
readln(y);
R:=Sqr(x)+Sqr(y);
r:=sqr®;
writeln('radius = ', r:2:0);
readln;
writeln;
end.
var
x, y, r, : real;
begin
write('x= ');
readln(x);
write('y= ');
readln(y);
R:=Sqr(x)+Sqr(y);
r:=sqr®;
writeln('radius = ', r:2:0);
readln;
writeln;
end.
У меня вопрос - наверняка кто-то уже встречался с подобного рода задачами.
Как вбить данные в массив - это вроде понятно, но как сложить один радиус... из скажем 5 точек?
т.е. при каждом действии в массиве считать по этой йормуле, а дальше запоминать?
Потом плюсовать?
гмммммммм...
Есть над чем подумать,
прошу помочь.
Пасиб
Специально для кода у нас есть спец. тэг code
Сообщение отредактировано: GoodWind -
)
