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.