Forum www.techinf1.fora.pl Strona Główna www.techinf1.fora.pl

 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

silnia

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.techinf1.fora.pl Strona Główna -> rzeczy ktorych nie bralismy:)
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
tehran



Dołączył: 03 Lut 2008
Posty: 14
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

PostWysł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
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.techinf1.fora.pl Strona Główna -> rzeczy ktorych nie bralismy:) Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin