|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.01.2009, 10:56 | #1 |
Пользователь
Регистрация: 11.11.2008
Сообщений: 32
|
Можете подправить программу??? Срочно надо
Для заданного х вывести на экран K многочленов Чебышева, больших некоторого наперед заданного числа А. Вычислить их сумму
Program ch; var X,Pol_0,Pol_1,Pol_2,A,S:real; K:byte; begin writeln ('‚Введите аргумент, количество многочленов и нижний предел их значения'); Readln (x,k,a); writeln (K,' многочленов чебышева, больших ',a,':'); S:=0; Pol_0:=1; Pol_1:=x; While k>0 do begin Pol_2:=2*x*Pol_0*Pol_1; K:=k-1; If Pol_2>a then begin Writeln (Pol_2:9:3); S:=s+Pol_2; end; end; writeln ('Их сумма равна ',s:9:3); readln; end.
AndreiKA_PC
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
надо отладить программу | Daddic | Помощь студентам | 3 | 20.04.2008 18:24 |
Срочно надо!!!!!!!! | anna | Помощь студентам | 1 | 18.04.2007 15:57 |