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

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 :

 

COWOK" KERENK,,,

CONTOH if - then - else

ALGORITMA PENENTUAN HARI :

1. Tentukan hari
2. Tentukan kode hari
3. Masukkan kode hari
4. Jika angka 1= hari senin
5. Jika angka 2 = hari selasa
6. Jika angka 3 = hari rabu
7. Jika angka 4 = hari kamis
8. Jika angka 5 = hari jum’at
9. Jika angka 6 = hari sabtu
10. Jika angka 7 = hari minggu
11. Hasil


GAMBAR FLOWCHAT NYA :