Рекурсия: вычислить выражение P=12+34+..+(2n-1)*2n

@Geedron · Регистрация: 19.03.2018

Author24 — интернет-сервис помощи студентам

Pascal

Function aaa(p:real;a,i,n:integer): real;
Begin
 
p := p+((2*a-1)*2*a);
inc(a);
inc(i);
if not(i>n-1) then p := aaa(p,a,i,n);
 
aaa := p
End;
 
Var 
n,i,a: integer;
p: real;
 
Begin
write('n=');
readln(n);
 
p := 2;
a := 2;
i := 1;
p := aaa(p,a,i,n);
writeln('P=',p);
End.

Нужна более простая рекурсия, с уменьшением n до 1, а при n=1 будет p=2
программа: Написать программу, которая по заданному натуральному значению вычисляет результат выражения P=1*2+3*4+..+(2n-1)*2n

@volvo · 13.06.2018, 22:49

Вот так достаточно просто:

Pascal

function f(n : integer) : real;
begin
  if n = 0 then f := 0
  else f := f(n - 1) + (2*n - 1)* 2*n;
end;
 
Var 
n: integer;
 
Begin
write('n='); readln(n);
writeln('P=',f(n));
End.

?

@Geedron · 13.06.2018, 23:00 **[ТС]**

volvo, Да, даже слишком), спасибо!

@Geedron -1 / 0 / 0 Регистрация: 19.03.2018 Сообщений: 23
	13.06.2018, 23:00 [ТС]	3
	volvo, Да, даже слишком), спасибо! 0

Рекурсия: вычислить выражение P=1*2+3*4+..+(2n-1)*2n

Рекурсия: вычислить выражение P=12+34+..+(2n-1)*2n