Код
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.
И правильное ли решение?
Полная версия: Многочлен Чебышева > Информатика / Программирование
как задать массивы 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.
И правильное ли решение?
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.
И правильное ли решение?
Прочитайте сначала про многочлены Чебышева. Хотя бы тут http://ru.wikipedia.org/wiki/%D0%9F%D0%BE%...%B5%D0%B2%D0%B0
Как можно сказать правильное решение или нет, не зная условивия задачи? Выложите полностью задание.
Как можно сказать правильное решение или нет, не зная условивия задачи? Выложите полностью задание.
Уже все прочитано и не один раз.
Дано целое 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...
Дано целое 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...
Цитата(Rыся @ 10.1.2010, 20:39) 
как задать массивы T0 T1 T?
Цитата(Rыся @ 10.1.2010, 20:39)
И правильное ли решение?
Нет.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.