Vytvorené: 29. 10. 2013 Tlačiť
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 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.
![]() |
· Simulácie z fyziky· O Slovensku po slovensky· Slovenské kroje· Kurz národopisu· Diela maliarov· Kontrolné otázky, Domáce úlohy, E-testy - Priemysel· Odborné obrázkové slovníky· Poradňa žiadaného učiteľa· Rýchlokurz Angličtiny. Rozprávky (v mp3)· PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)Seriály:· História sveta (1÷6)· História Slovenska (1÷5)· História módy (1÷5).
Členstvo na portáli
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |