Ramazan Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору const     a = ...;   b = ...;   с = ...;   x1 = ...;   x2 = ...;   n = ...;   h = (x2 - x1)/(n - 1); var   x: Double; begin   x := x1;   while x <= x2 do   begin     writeln('F(x)=', abs(a*x*x+b*x+c));     x := x + h;   end; end. Чего тут сложного?   Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 21:30 17-09-2006

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

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