Pascal Örnekleri 04(Faktoriyel hesabı)

Yazan: karflake | Tarih

16 Kasım 2008 | Yorum

Yorum Yok

Henüz puan verilmemiş

Loading ...

Girilen sayının faktoriyelini bulan program.

PLAIN TEXT

DELPHI:

uses crt;
var
  sayi:integer;
 
function fak(x:integer):real;
var
   i:integer;
   s:real;
begin
  s:=1;
  for i:=1 to x do s:=s*i;
  fak:=s;
end;
 
Begin
  clrscr;
  writeln('Faktoriyeli alinacaak sayiyi giriniz');
  Readln(sayi);Writeln('Sayinin faktoryeli: ',fak(sayi):10:2);
  readln;
End.