Vytvorené: 28. 10. 2013 Tlačiť

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:


    Umela inteligencia Novy narodopis Teoria poezie 3D-tlac Arduino Nove rekordy Prudove chranice Robotika Priemysel 4.0 Dejiny Slovenska do roku 1945 ang_znacky_fluidsim LOGOSoftComfort Novinky Historia elektromobilov Free e-kurzy Elektrina pre ZŠ Druhá svetová vojna Cvičebnice O troch pilieroch EP je spat Prehlad Fyzika Prehlad Informatika Ako sa učiť a ako učiť Dejiny sveta

     

    · 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
    Mám účet a chcem sa prihlásiť Prihlásiť sa
    Nemám účet, ale chcel by som ho získať Registrovať sa
    Poznámka pre autora

    Ak ste na stránke našli chybu, dajte nám vedieť


    Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady