Question

mam dwa zadania z programowania , musze je napisac w pascalu.

Zad 1

napisz program, który obliczy n-ty element ciagu opisanego nastepującym wzorem rekurencyjnym:

a1=2

an=3*an-1+0,5

jak cos to n-1 jest dolnym wykładnikiem a

zad2

napisz program, ktory obliczy rekurencyjnie i iteracyjnie n-ty wyraz ciągu opisanego nastepującym wzorem:

a1=3

a2=5

an=3an-2+1 dla n>2

i tez jak cos to n-2 jest dolnym wykladnikiem 3a

z gory dzieki za pomoc

Answer 1

zadanie 1

program ciag1;
var n, i: integer;
-----a: real;

begin
------writeln ('Podaj n:');
------readln (n);

------a := 2;
------for i := 2 to n do
------begin
------------a := 3*a + 0.5;
------end;

------writeln (n, '. wyraz ciagu jest rowny ', a);
end.

 

 

zadanie 2

program ciag2;
var n, i, a, b, c: integer;

function rekurencja (m: integer): integer;
begin
------if m = 1 then rekurencja := 3
----------------else if m = 2 then rekurencja := 5
--------------------------------else rekurencja := 3*rekurencja (m-2)+1;
end;


begin
------writeln ('Podaj n:');
------readln (n);

------a := 3;
------if n > 1 then
------begin
------------b := a;
------------a := 5;
------end;

------for i := 3 to n do
------begin
------------c := a;
------------a := 3*b + 1;
------------b := c;
------end;

------writeln (n, '. iteracyjny wyraz ciagu jest rowny ', a);
------a := rekurencja (n);
------writeln (n, '. rekurencyjny wyraz ciagu jest rowny ', a);
------readln;
end.