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

 
Pascalov trojuholník
x
Pascalov trojuholník
a Fibonacciho postupnosť

 

Program napísaný v jazyku Pascal.

program Pascalov_trojuholnik_inak;

var
vyska,i,j,zackon:integer;
riadok_clen: array[1..8,1..8] of integer;

begin
zackon:=1;
vyska:=8;
riadok_clen[1,1]:=zackon;
for i:=2 to 8 do
begin
riadok_clen[i,1]:=zackon;
riadok_clen[i,i]:=zackon;
end;

for i:=3 to 8 do
begin
for j:=2 to i-1 do
begin
riadok_clen[i,j]:=riadok_clen[i-1,j-1]+riadok_clen[i-1,j]
end;
end;

for i:=1 to 8 do
begin
for j:=1 to i do
begin
write(riadok_clen[i,j]);
write(' ');
end;
writeln;
end;
readln;
end.

 

Program napísaný v jazyku Pascal.

program PascalovtrojuholnikOk2;

function FAKTORIAL (cislo:integer):longint;
var
i: integer;
f: longint;
begin
f:=1;
for i:=cislo downto 2 do f:=f*i;
FAKTORIAL:=f;
end;

function KOMB_CISLO (n,k:integer):longint;
begin
KOMB_CISLO:=FAKTORIAL(n) div FAKTORIAL(k) div FAKTORIAL(n-k)
end;

var
i,j:integer;

begin
writeln (' 1');
writeln (' 1 1');
for i:= 2 to 9 do begin
write (' 1');
for j:=1 to i-1 do write (KOMB_CISLO(i,j):5);
writeln (' 1');
end;
readln;
end.

 

Program napísaný v jazyku Pascal.

program PascalovtrojuholnikOk;

function FAKTORIAL (cislo:integer):longint;
var
i,j: integer;
f: longint;
begin
f:=1;
for i:=cislo downto 2 do f:=f*i;
FAKTORIAL:=f;
end;

function KOMB_CISLO (n,k:integer):longint;
begin
KOMB_CISLO:=FAKTORIAL(n) div FAKTORIAL(k) div FAKTORIAL(n-k)
end;

var
i,j:integer;

begin
writeln (' 1');
writeln (' 1 1');
for i:= 2 to 8 do begin
for j:=24-(i*3) downto 1 do write (' ');
write('1');
for j:=1 to i-1 do write (' ',KOMB_CISLO(i,j):5);
writeln (' 1');
end;
readln;
end.

Hodnotenie užitočnosti článku:


    Novy narodopis Teoria poezie Dualna akademia prihlaska Nove rekordy Prudove chranice Robotika Priemysel 4.0 Dejiny Slovenska do roku 1945 ang_znacky_fluidsim LOGOSoftComfort Novinky Dualna akademia prihlaska 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

     

    O VŠETKÝCH KURZOCH 

     

    · 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ť

    Newsletter

    Nenechajte si ujsť žiadny nový článok

    @

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