Форум: "Потрепаться";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Вниз
Огромная просьба Найти похожие ветки
← →
ВОВКА (2002-09-19 21:03) [0]Вычислить последовательность N чисел А0=х, А1=2, Ак=Ак-1 - Ак-2.
А0, 0(и все символы справа от букв А)-имеется в виду нижний регистр, т.е А нулевое, А первое, и т.д
Просьба кто сможет плиз помогите!!!!!!!!
← →
Esu (2002-09-19 21:12) [1]Мда...
> Ак=Ак-1 - Ак-2.
Упрощаем Ак = (Ак - Ak) - 1 - 2 = -3
Значит все остальные N членов последовательности кроме A0=x и A1=2 равны -3.
x, 2, -3, -3,...,-3
Что значит в данном случае вычислить ? E = x + 2 + N*(-3) ?
← →
MBo (2002-09-19 21:20) [2]>Esu
Он имеет в виду (но сам не знает :)
A[k]:=A[k-1]-A[k-2]
← →
MBo (2002-09-19 21:29) [3]var a,b,i,n:Integer;
begin
writeln("введите N");
readln(n);
writeln("введите X");
readln(a);
b:=2;
writeln;
writeln;
writeln(a);
writeln(b);
for i:=1 to N-2 do begin
if odd(i) then begin
a:=b-a;
writeln(a);
end else begin
b:=a-b;
writeln(b);
end;
end;
readln;
end.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c