Program - Faktoriál :)

Program napísaný v jazyku Pascal.

program FaktorialOk;

var
i,x: integer;
faktorialx:longint;

begin
writeln('Faktorial akeho cisla mam vypocitat?');
readln (x);
faktorialx:=1;
for i:=x downto 2 do
faktorialx:=faktorialx*i;
writeln('Faktorial = ',faktorialx);
readln;
end.

Program napísaný v jazyku Pascal.

program FaktorialvypocitanyrekurzivnoufunkciouOk;

var
cislo,vysledok: integer;

function Faktorial (i: integer): integer;
begin
if i = 1 then Faktorial := 1
else Faktorial:= i * Faktorial (i-1);
end;

function Oddelovac_tisicov (i: integer): integer;
var
vysledok_ako_string: string;
dlzka,pomocna:integer;
begin
str(vysledok,vysledok_ako_string);
dlzka:=length(vysledok_ako_string);
write ('Faktorial ',cislo,' = ');
for i:=1 to dlzka do begin
write(copy(vysledok_ako_string,i,1));
pomocna:=dlzka-i;
if (pomocna/3) = int (pomocna/3) then write (' ');
end;
end;

begin
writeln ('Zadaj cislo (max=12!), ktoreho faktorial mam vypocitat. ');
readln (cislo);
vysledok:=Faktorial(cislo);
writeln;
if vysledok > 999 then Oddelovac_tisicov(vysledok)
else begin
writeln ('Faktorial ',cislo,' = ',vysledok);
end;
readln;
end.

Hodnotenie užitočnosti článku:

• ← Procesor ako univerzálny pojem :)
• Program - Fibonacciho postupnosť :) →