18 Ekim 2009 Pazar

Pascalda Sayının Faktöriyelini Bulma, Pascal Faktöriyel Programı

program fak;
uses crt;
var
   n,i,t:longint;
   c:Char;
begin
     Repeat;
     clrscr;
     t:=1;
     write('N SAYISINI GIRINIZ...:');readln(n);
     for i:=n downto 1  do
     t:=t*i;
     writeln(N,'  SAYISININ FAKTORIYELI...:',t);

     Write('Devam Etmek ˜stiyormusunuz? E/H'); Readln(c);
     Until C in ['h','H'];
     End.
end.



Hiç yorum yok:

Yorum Gönder