tehran
Dołączył: 03 Lut 2008
Posty: 14
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
 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).
Post został pochwalony 0 razy
Ostatnio zmieniony przez tehran dnia Śro 20:07, 06 Lut 2008, w całości zmieniany 1 raz
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
