Darmowe Forum

Rekurencja - odwoÂłanie podprogramu (procedury lub funkcji) do samego siebie.

PrzykÂład wykorzystania rekurencji do obliczenia silni z liczby n.
program lusia;
uses crt,dos;
var x:integer;

function silnia(n:integer):integer;
begin
if n=0 then silnia:=1
else silnia:=n*silnia(n-1);
end;



begin
write(silnia(3));
readkey;
end.

Rekurencja - silnia z wprowadzaniem wartoÂści z klawiatury

program silni_plus;
uses crt,dos;
var x:integer;

function silnia(n:integer): integer;
begin
if n=0 then silnia:=1 else
silnia:=n*silnia(n-1);
end;

begin
clrscr;
write('Podaj liczbe= ');readln(x);
writeln('silnia z ',x,' = ',silnia(x));
readkey;
end.

Rekurencja sumowanie liczb od 1 do podanej wartoÂści ale bez liczby zero.

program silni_plus;
uses crt,dos;
var x:integer;

function suma(n:integer): integer;
begin
if n=1 then suma:=1 else
suma:=n+suma(n-1);
end;

begin
clrscr;
write('Podaj liczbe= ');readln(x);
writeln('suma z ',x,' = ',suma(x));
readkey;
end.