Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.06.2018, 23:34   #1
Alexander_Petrenko
Новичок
Джуниор
 
Регистрация: 28.06.2018
Сообщений: 4
По умолчанию помогите с комментариями к строкам написали программы, работают, но не понимаем что написано

В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости. Они располагаются в следующем порядке:x1,y1,x2,y2,x3,y3....и так далее. Определить минимальный радиус окружности с центром в начале координат, такой, что окружность содержит все точки.

uses crt;
const nmax=15;
var a:array[1..2*nmax] of real;
n,i,j:integer;
r:real;
begin
clrscr;
randomize;
repeat
write('Количество точек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to 2*n do
a[i]:=-9+19*random;
writeln('Координаты точек:');
write(' ');
for i:=1 to n do
write(i:5);
writeln;
write('X:');
for i:=1 to n do
write(a[2*i-1]:5:1);
writeln;
write('Y:');
for i:=1 to n do
write(a[2*i]:5:1);
writeln;
r:=sqrt(sqr(a[1])+sqr(a[2]));
for i:=3 to n-1 do
if sqrt(sqr(a[i])+sqr(a[i+1]))>r then r:=sqrt(sqr(a[i])+sqr(a[i+1]));
write('Минимальный радиус=',r:0:1);
readln
end.
Alexander_Petrenko вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фортран. Полный разбор программы с комментариями folmagaut Фриланс 1 03.06.2016 09:41
помогите с комментариями к тексту программы k221 Помощь студентам 1 06.10.2015 19:46
помогите с комментариями к тексту программы k221 Паскаль, Turbo Pascal, PascalABC.NET 1 06.10.2015 19:35
что в здесь не правильно написано по варианту? nesta.92 Помощь студентам 1 11.12.2011 17:46
Подскажите, что неверно написано?.. katris Помощь студентам 0 25.10.2009 16:11