Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Многочлен Чебышева

Автор: Рыся 6.1.2010, 17:40

Помогите с решением, пожалуйста.
Дано целое K (2<=k<=20). Найти коэффиценты k-го многочлена Чебышева.
Последовательность Ti(x) многочленов Чебышева задается формулами:
T0(x)=1; T1(x)=x; Ti(x)=2xTi-1(x)-Ti-2(x), i=2,3,4...

Автор: THandle 6.1.2010, 20:33

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Рыся 10.1.2010, 19:50

как задать массивы T0 T1 T?

Код


var
  k, Tn: integer;
 
begin
  writeln ('‚ Введите число k (2<=k<=20)');
  readln (k);
  if(k>=2) and (k<=20) then
    T0:=(0.1);
    T1:=(1.0);
  for Tn:= 2 to k do
    T:=(2*T1[0]-T0[0], 2*T1[1]-T2[1]);
    T0:=T1;
    T1:=T;
  write(T);
  readln;
end.

И правильное ли решение?