grayhex Newbie Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Код:   program Lab_10; const      e=0.001;      h=0.1; var    n: integer;    t,pr,fi,x: real; begin x:=0.1; repeat       pr:=1; t:=x; n:=1; {Возможно здесь нужно что-то изменить}       while abs(t)>e do begin             pr:=pr * t;             fi:=***ЗНАЧЕНИЕ "ФИ" ПОДОБРАТЬ*** ;             t:=t*fi;             n:=n+1;       end;       writeln('Sin=',t:6:4);       x:=x+h; until x>0.8; end.   Всего записей: 14 | Зарегистр. 26-11-2006 | Отправлено: 18:32 18-12-2006 | Исправлено: grayhex, 18:32 18-12-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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование