Contoh Program Function

Program Menentukan Bilangan Terkecil

Program Fungsi;
uses wincrt;
function kecil (A,B : integer): integer;
begin
if A
kecil := A
else
kecil := B;
end;
var
A,B: integer;
begin
clrscr;
write('Nilai Bilangan 1 = '); readln(A);
write('Nilai Bilangan 2 = '); readln(B);
writeln;
write('Bilangan Terkecil = ', kecil (A,B):5);
readln;
end.

HASIL PROGRAM

 

Contoh Program Pascal Array

Menentukan Bilangan Prima Dari Hasil Perkalian Dua Bilangan

Program Mencari_Bilangan_Prima_dari perkalian_dua_bilangan;
Uses winCrt;
Var
Prima : Array[1..100] of Integer;
i,j,a,b,c : Integer;
bil : Integer;
Begin
ClrScr;
write('Masukkan angka 1 = ');readln(a);
write('Masukkan angka 2 = ');readln(b);
c:=a*b;
writeln('Hasil= ',c);
For i := 2 to c Do
Begin
Prima[i]:=i;
For j:= 2 to i-1 Do
Begin
bil := (i mod j);
If bil = 0 then Prima[i]:=0;
End;
If Prima[i] <> 0 Then Write(Prima[i],' ');
End;
Readln;
end.

HASIL PROGRAM 

PROGRAM PERMUTASI DAN KOMBINASI

program pascal dibawah ini:

program kombinasi_permutasi;
uses wincrt;
var
fn,fk,fn_k,Kombinasi,permutasi:real;
i,n,k:integer;
begin
writeln('MENGHITUNG PERMUTASI DAN KOMBINASI:') ;
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan k =');readln(k);
fn:=1;
fk:=1;
fn_k:=1;
for i:= 2 to n do
fn:=fn*i;
for i := 2 to k do
fk:=fk*i;
for i:= 2 to (n-k) do
fn_k:=fn_k*i;
kombinasi:=fn/(fk*fn_k);
permutasi:=fn/(fn_k);
writeln(n,' Kombinasi ',k, ' = ',Kombinasi:0:0);
writeln(n,' Permutasi ',k, ' = ',Permutasi:0:0);
end.

hasil dari program diatas akan menghasilkan

SMOGA DAPAT MEMBANTU