Вопрос от посетителя
Тема:Рекуррентные соотношения.
Помогите пожалуйста написать программу для вывода последовательности
Условие: b1=5; bn=(-1)^n * bn-1 -8
минус 1 в степени n, умножить на b n-1 (n-1 ->подстрочный текст) – 8
Начинаю писать программу, а в степень без понятия как возвести
program posledovatelnost;
uses crt;
var i,n:integer; b1,bn:real;
begin clrscr;
writeln (‘введите n’);
readln (n);
b1:=5;
writeln (‘1 элемент = ‘, b1);
for i:=2 to n do
begin
bn:=…
writeln (i, ‘элемент = ‘, bn);
b1:=bn;
end;
readln
end.
что написать, чтобы считать правильно bn, нужно чтобы работало в TP, поэтому power,pow и exp бесполезны.
Отвечает Илюха:
var
b1,b2,i,n,p:integer;
begin
write(‘введите n’);
readln (n);
b1:=5;
writeln (‘1 элемент = ‘, b1);
p:=-1;
for i:=2 to n do
begin
p:=p*(-1);
b2:=p*b1-8;
writeln (i,’ элемент = ‘, b2);
b1:=b2;
end;
end.