Program Golongan Darah

Berikut adalah contoh program menggunakan Pascal language.

program goldar;
uses wincrt;
var
ayah,ibu:string[2];
anak:string[35];
lagi:char;

begin
lagi:='Y';
while lagi='Y' do
begin
clrscr;
writeln;
writeln('Spekulasi golongan darah anak kandung');
writeln('dengan sistem A, B, O');
writeln('=====================================');
write('Masukan golongan darah ayah : ');readln(ayah);
write('Masukan golongan darah ibu  : ');readln(ibu);
writeln('----------------------------- ');
if((ayah='A')and(ibu='A'))then anak:='A atau O'
else if((ayah='A')and(ibu='B'))or((ayah='B')and(ibu='A'))then anak:='A / B / AB / O'
else if((ayah='A')and(ibu='O'))or((ayah='O')and(ibu='A'))then anak:='A atau O'
else if((ayah='A')and(ibu='AB'))or((ayah='AB')and(ibu='A'))then anak:='A / B / AB'
else if((ayah='B')and(ibu='B'))then anak:='B atau O'
else if((ayah='B')and(ibu='O'))or((ayah='O')and(ibu='B'))then anak:='B atau O'
else if((ayah='B')and(ibu='AB'))or((ayah='AB')and(ibu='B'))then anak:='A / B / AB'
else if((ayah='O')and(ibu='O'))then anak:='pasti " O "'
else if((ayah='O')and(ibu='AB'))or((ayah='AB')and(ibu='O'))then anak:='A atau B'
else if((ayah='AB')and(ibu='AB'))then anak:='A / B / AB'
else anak:='(input golongan darah salah !!!)';
writeln;
writeln('Kemungkinan golongan darah anak adalah : ',anak);
writeln;
writeln;
write('Anda ingin periksa lagi? (Y/T) : ');readln(lagi);
end;
donewincrt;
end.

Berikut file Executable yang di hasilkan.

Gadisku

# Gadisku #

Mata indah
dengan sorotan tajam,
tapi sayup,
mengiris hatiku.

Gadis bermata indah,
senyummu
membuat jantung ku berdebar.

Kala tak memandang di kau
hariku terasa sunyi.
Aku ingin mendengarkan
rengekan dari mulut mu,
aku masih ingin
memandang kesal mu.

Aku merindukan amarah mu,
aku rindu menatapi wajah mu,
seindah mega di angkasa,
laksana mentari yang bersinar,
dan aku pun terpana.

Gadisku,...
aku merasakan sesuatu
dalam kalbu ku.
Semakin hari,
semakin jauh darimu.
Namun,
semakin rindu,
semakin teringat dirimu.
Cintakah?
Aku pun tak mengerti.
Tetapi,
jelas aku
sangat menyukai aura mu,
sangat merindukan dirimu.
Gadisku,...
sadarkah aku?

(Batam,15-08-03)

Cinta ini

....
mengapa udara tak mendengar,
mengapa malam berdusta,
menjadikan cinta tiada arti.
jangan bilang cinta itu buta,
yang tak memandang aku lagi.

andai ingin melihat ku kembali,
cari aku di tepian cinta kita,
dsana ku labuhkan hidup ku,
dsana ku karamkan cinta ku.
berharap suatu hari,
dsana lah kuhembuskan nafas ini.

andaikan lautan itu tak bertepi,
maka cinta ku tiada akhir
 ...