dimitriy7 BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   {$N+}   var a,b,c: double;   begin writeln('y=a*x^2+b*x+c'); writeln('введите a,b,c:'); readln(a,b,c); writeln('y=',a:5:3,'*x^2+',b:5:3,'*x+',c:5:3); if (a=0)and(b=0)and(c=0) then writeln('y=0') else    begin    if (b=0) then writeln('функция четная') else writeln('функция НЕ ЯВЛЯЕТСЯ четной');    if (a=0)and(c=0) then writeln('функция НЕчетная');    end; 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование