 Wysłany: Śro 11:11, 06 Lut 2008 Temat postu: silnia |
|
| funkcja_silnia;
var i: integer; sil: extended; begin sil:=1; for i:=2 to liczba do sil:= sil*i; silnia:=sil; end; var i: integer; begin for i:=0 to 20 do writeln(i:2,'! = ', silnia(i):20:0); readln; end. extended-Zmienna oferująca większą precyzję obliczen od 19...20 cyfrInaczej mówiąc jest to liczba zmiennoprzecinkowa o rozszerzonej precyzji (10-bajtów). |
|
