Тема:Рекуррентные соотношения. Помогите пожалуйста написать программу для вывода последовательности Условие: b1=5; bn=(-1)^n * bn-1 -8 минус 1 в степени n, умножить на b n-1 (n-1 - больше подстрочный текст) - 8 Начинаю писать...
Тема:Рекуррентные соотношения. Помогите пожалуйста написать программу для вывода последовательности Условие: 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.
Не нашли ответ?
Похожие вопросы