Contoh Program PAscal Menentukan Faktorial

program menghitung_faktorial;
uses wincrt;
var
i,n,fak: integer;

begin
writeln ('program menghitung faktorial');
write('n= '); readln(n);
fak:= 1;
for i := n downto 1 do
fak:=fak*i;
writeln(n,'!= ',fak);
readln;
end.

PROSES

HASIL :

Algoritma Menghitung Nilai Faktorial :

1. Tentukan angka
2. Tuliskan rumus fak*i maka i = n down to 1 
3. Masukkan angka pada rumus
4. Hasil.

Contoh Program Pascal Case of Menentukan Indeks Nilai

Program Pascal menentukan indeks nilai

program NA_CASE_OF ;

uses wincrt;

var

n,na : integer;

begin

writeln ('masukkan nilai yang didapat'); readln (n);

na:=n div 20;

case na of

1: write ('indeks nilai : E');

2: write ('indeks nilai : D');

3: write ('indeks nilai : C');

4: write ('indeks nilai : B');

5: write ('indeks nilai : A');

end;

end.

Proses :

dari proses diatas akan menghasilkan gambar :

FLOWCHAT dari Menentukan Indeks Nilai :