Di bawah ini ada beberapa contoh program sederhana yang bisa kita buat melalui bahasa pascal.
1. Program Bintang Piramid
program bintang_piramid;
uses crt;
var c,a,b,n : integer;
begin
write ('masukkan angka : ');readln(n);
writeln;
if n mod 2 = 0 then
for a := 1 to (n div 2) do begin
for b := 1 to (n div 2)-a do
write (‘ ‘);
for c := 1 to (a*2) do
write (‘*’);
writeln;
end
else
for a := 1 to (n div 2)+1 do begin
for b := 1 to (n div 2)+(1-a) do
write (‘ ‘);
for c := 1 to (a*2)-1 do
write (‘*’);
writeln;
end;
end.
2. Program Kalkulator Sederhana
USES CRT;
var a,b,c : real;
pilih : char;
begin
clrscr;
writeln('------------------------------------------');
write('masukan angka pertama: '); readln(a);
write('silahkan pilih operator +,/,-,* : '); readln(pilih);
write('masukan angka kedua : '); readln(b);
if(pilih='+') then begin c:= a+b end;
if(pilih='/') then begin c:= a/b end;
if(pilih='-') then begin c:= a-b end;
if(pilih='*') then begin c:= a*b end;
writeln('Hasilnya adalah: ',c:0:2);
writeln(' ');
writeln('**********KALKULATOR*************');
writeln(' Angka kedua : ',a:0:2);
writeln(' Operator : ',pilih);
writeln(' Angka kedua : ',b:0:2);
writeln('Maka hasilnya adalah : ',c:0:2);
READKEY;
end.
3. Program Antrian
uses crt;
const
nmax = 20;
null = 0;
type
tipedata =string;
queue = record
tabelemen : array[1..nmax] of tipedata;
front : null..nmax;
rear : null..nmax;
data : array[1..nmax] of tipedata;
end;
var
N,i : integer;
data : array[1..nmax] of tipedata;
Q : queue;
pilih : char;
procedure inisialisasi (var Q : queue);
begin
Q.front := null;
Q.rear := null;
end;
function emptyQ(Q:queue) : boolean;
begin
emptyQ := ((Q.front = null) and (Q.rear=null));
end;
procedure consolidate(var Q : queue);
var i,j : integer;
begin
j := 1;
for i := Q.front to Q.rear do
begin
Q.tabelemen[j] := Q.tabelemen[i];
j:= j+1;
end;
Q.front := 1;
Q.rear := j;
end;
procedure enqueue(var Q : queue;data : tipedata);
begin
if emptyQ(Q) then
Q.front := 1;
if Q.rear <> nmax then
begin
Q.rear := Q.rear + 1;
Q.tabelemen[Q.rear] := data;
end
else
if Q.front <> 1 then
begin
consolidate(Q);
Q.rear := Q.rear + 1;
Q.tabelemen[Q.rear] := data;
end;
end;
procedure dequeue(var Q : queue; var data : tipedata);
begin
if not emptyQ(Q) then
begin
data := Q.tabelemen[Q.front];
Q.front := Q.front + 1;
if (Q.front>Q.rear) then
begin
Q.front := null;
Q.rear := null;
end
else
data := Q.tabelemen[Q.front];
end;
end;
begin
clrscr;
inisialisasi(Q);
emptyQ(Q);
write('Masukkan jumlah pasien :');
readln(N);
for i := 1 to N do
begin
write('pasien ke ',i,':');
readln(Q.data[i]);
end;
writeln;
writeln;
write('Daftar Antrian : ');
for i := 1 to N do
begin
write(Q.data[i],'->');
end;
readkey;
end.
--------------------------------------------------------------------------------
Nah,Itu contoh sebagian program yang bisa aku bagi hari ini kawan.
Semoga bermanfaat.
