YarGen Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   program f3;  var a,b,c,u,x1,x2,d: real; begin  randomize;  a:=50-random(100);  b:=50-random(100);  c:=50-random(100);    d:=b*b-4*a*c;  if d<0 then u:=-100000   else    begin     x1:=(-b+sqrt(d))/(2*a);     x2:=(-b-sqrt(d))/(2*a);       if ((x1>0) and (x2<0)) or ((x1<0) and (x2>0)) then      u:=x1*x1-x2*x2     else u:=x1*x2;    end;    writeln('a=',a:10:2);  writeln('b=',b:10:2);  writeln('c=',c:10:2);  writeln('u=',u:10:2); end.   Всего записей: 42 | Зарегистр. 19-06-2008 | Отправлено: 13:00 06-10-2010 | Исправлено: YarGen, 15:52 06-10-2010

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

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