dimitriy7 BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   {$N+} var a,b,c,d,r: double;   begin writeln('y=a*x+b,y=c*x+d'); writeln('a,b,c,d= ?'); readln(a,b,c,d); writeln('y=',a:5:3,'*x+',b:5:3,',y=',c:5:3,'*x+',d:5:3);   r:=abs(arctan(c)-arctan(a))*180/pi;   writeln('угол = ',r:5:3,' градусов'); writeln('нажмите ENTER'); readln; end.   Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 22:59 23-12-2011 | Исправлено: dimitriy7, 23:33 23-12-2011

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

Компьютерный форум 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование