Matematika

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Stranky: [1-10]  [11-20]  [21-30]  [31-40]  [aktualna]  [51-60]  [61-70]  [71-80]  [81-90]  [91-100]  [101-150]  [151-169]

Poradze:41
Zrobil: Pheo
web: pascalsource.ic.cz

Program: Exchange.pas

Zámena valút + percento za manipulačný poplatok.


Poradze:42
Program: Faktoria.pas

Vypočíta faktoriál čísla. Použije pritom metódu logaritmov. Veľmi rýchle.


Poradze:43
Zrobil: Andrej Muntag
Program: Faktorial3.pas
Subor exe: Faktorial3.exe

Jednoduchý program na vypočítanie faktoriálu ale len do 12. Potom sa dostáva do vysokých čísel, ktoré nedokáže spracovať.


Poradze:44
Zrobil: Pheo
web: pascalsource.ic.cz

Program: Fibonacciho_cisla.pas

Kolko parikov zajacov budeme mat po jednom roku, ak plati. Na zaciatku mame jeden par, kazdemu paru sa po mesiaci narodi vzdy dalsi par a ostatni nezomieraju prirodzenou ani nasilnou smrtou. vyjadruje to postupnost cisel nazyvana Fibonaciho cisla, v ktorej kazde nasledujuce cislo dostaneme ako sucet dvoch predchadzajucich. Plati : F0=0, F1=1, F2=1, F3=2, F4=3, F5=5, F6=8, F7=13, F8=21 ...


Poradze:45
Program: Func.pas
Vyvojak: Func.jpg

Výpočet a tlač hodnôt funkcie do tabuľky. Funkcia y = (1.5x + 13.5/x)/(2x-1) ak x je z intervalu <0,5> s krokom K=0,5.


Poradze:46
Program: Func2.pas
Vyvojak: Func2.jpg

Výpočet hodnôt funkcie z = 3 + x + 1/ y - 4. Výpočet sa skončí zadaním y=4. Jednotlivé hodnoty najprv načíta do poľa. Výsledky (aj načítané x,y) vytlačí v tabuľke.


Poradze:47
Program: Functab.pas
Vyvojak: Functab.jpg

Výpočet a tlač hodnôt funkcie y= (2,5x-11,1) / (2x-1), ak x je z intervalu od 0 do 3 s krokom k=0,5.


Poradze:48
Program: Funkcia.pas

Vypočíta funkciu y=xe^(x+1) pre 5 zadaných čísel.


Poradze:49
Program: Ga_priem.pas
Vyvojak: Ga_priem.jpg

Načítanie N trojíc ľubovoľných čísel A,B,C z ktorých sa vypočíta aritmetický a geometrický priemer. Výsledok pre jednotlivé trojice sa tlačí v tvare tabuľky.


Poradze:50
Zrobil: Aleš Kucik
web: www.webpark.cz/prog-pascal

Program: Gauss.pas
Subor exe: Gauss.exe

Tento jednoduchý prográmek slouží k výpočtu neznámých soustav lineárních rovnic. Využívá Gaussovy eliminace, která lze snadno vyjádřit jako algoritmus. Dejme tomu že máme lin. rovnice

Račte si to vyzkoušet sami. Program je limitován konstantou MAX na 10 neznámích, ale klidně můžete tuto konstantu zvětšit.

Stranky: [1-10]  [11-20]  [21-30]  [31-40]  [aktualna]  [51-60]  [61-70]  [71-80]  [81-90]  [91-100]  [101-150]  [151-169]