semuanya ndan
dari perulangan for-do juga buat apa ndan kalo cuma mau nampilin satu tampilan output.
program golongan_darah;
uses crt;
var
gol : char;
begin
clrscr;
write('masukkan golongan darah anda : ');readln(gol);
while (gol <> a)or(gol <> A) or ( gol<>b) or (gol<>B) or ( gol <> ab)or(gol<>Ab)or(gol <> aB) or ( gol <>AB) or (gol <> o) or (gol <> O) do
begin
writeln('maaf data yang anda masukkan salah,tekan enter untuk mencoba lagi');
readln;
write('masukkan golongan darah anda : ');readln(gol);
end;
if (gol = 'A') or (gol = 'a')
then
writeln('golongan darah anda adalah A')
else
if ( gol='B') or ( gol = 'b')
then
writeln('golongan darah anda adalah B')
else
if (gol ='ab') or (gol = 'Ab') or (gol = ' aB ') or (gol = 'AB')
then
writeln('golongan darah anda adalah AB')
else
if (gol ='o') or ( gol = 'O')
then
writeln('golongan darah anda adalah O');
readln;
end.
|