Faktorial

Program FAKTORIAL;

uses crt;

var Faktor : real;
Cacah,
Bil_Awal,
Bil_Akhir,
Konter,
Baris : integer;

begin
clrscr;
writeln('MEMBUAT TABEL FAKTORIAL');
write('BILANGAN AWAL : ');readln(Bil_Awal);
write('BILANGAN AKHIR : ');readln(Bil_Akhir);writeln;


writeln(' TABEL FAKTORIAL');
writeln;
writeln('--------------------------------');
writeln(' BILANGAN HARGA FAKTORIAL');
writeln('--------------------------------');writeln;
Baris := 11;
for Cacah := Bil_Awal to Bil_Akhir do

Mau tau lanjutannya download aj y..Di sini..