Mathematics Pascal programs

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

Order:41
Author: Pheo
web: pascalsource.ic.cz

Program: Exchange.pas

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



Order:42
Program: Faktoria.pas

Calculates the factor of a number. Use logarithm method. Very quickly.



Order:43
Author: Andrej Muntag
Program: Faktorial3.pas
File 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ť.



Order:44
Author: 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 ...



Order:45
Program: Func.pas
flow: Func.jpg

Calculates the sum of the multipication results. Function y = (1.5x + 13.5/x)/(2x-1) when x is interval <0,5> step is K=0,5.



Order:46
Program: Func2.pas
flow: Func2.jpg

Calculates the sum of the multipication results z = 3 + x + 1/ y - 4. Calculate is finished when entered y=4. All print in table.



Order:47
Program: Functab.pas
flow: Functab.jpg

Calculates the sum of the multipication results y=(2,5x-11,1) / (2x-1), when x is interval <0,3> step is K=0,5.



Order:48
Program: Funkcia.pas

Calculate function y=xe^(x+1) for 5 incoming number.



Order:49
Program: Ga_priem.pas
flow: Ga_priem.jpg

Make the programs whos entered N twices of numbers A,B,C. From this numbers calculates arithmetical and geomethrical mean. Results writes as table.



Order:50
Author: Aleš Kucik
web: www.webpark.cz/prog-pascal

Program: Gauss.pas
File 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.


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