|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.06.2018, 23:34 | #1 |
Новичок
Джуниор
Регистрация: 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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Фортран. Полный разбор программы с комментариями | 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 18:46 |
Подскажите, что неверно написано?.. | katris | Помощь студентам | 0 | 25.10.2009 16:11 |