Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.14;
Скачать: CL | DM;

Вниз

Огромная просьба   Найти похожие ветки 

 
ВОВКА   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-45400
INCOGNITO
2002-10-03 01:44
2002.10.14
переходить на следующую строку


4-45624
Boroda Oleg
2002-08-30 11:38
2002.10.14
Как отследить создание нового окна в Windows?


3-45204
DmitryMN
2002-09-21 13:11
2002.10.14
Логические типы даннх в InterBase


1-45348
Vit_Delit
2002-10-05 20:55
2002.10.14
Изменение размера компонентов в Run-Time


1-45245
СлБ
2002-10-04 08:48
2002.10.14
Сетка в ListView