a008888 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   var   R: 10..10000;   N: 3..50;   i,j: Integer;   aCoord: array [1..50,1..2] of Integer;   aMin: array [1..50] of Real;   MIN: Real; begin   readln(R,N);   for i:=1 to N do   for j:=1 to 2 do     read(aCoord[i,j]);     for i:=1 to N do     aMin[i]:=R-sqrt( sqr(aCoord[i,1]) + sqr(aCoord[i,2]));     MIN:=aMin[1];   for i:=2 to N do     if aMin[i]<MIN then MIN:=aMin[i];     Writeln(MIN:0:4); end.     Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 10:15 08-11-2008

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование