Program Pilihan

program menufamilycode;
uses Crt;
var
c : string;
begin
clrscr;
repeat
writeln('Program daftar kelompok buatan Yogya Family Code');
writeln(' ');
writeln('1. Daftar kelompok buah ');
writeln('2. Daftar kelompok hewan');
writeln('3. Daftar kelompok kota');
writeln('4. Keluar');
writeln(' ');
writeln('Tulis angkanya saja :'); readln(c);
if (c) = '1' then
begin
clrscr;
writeln ('Apel');
writeln ('Jeruk');
writeln ('Mangga');
writeln ('Melon');
end
else if (c) = '2' then
begin
clrscr;
writeln('Kadal');
writeln('Monyet');
writeln('Sapi');
writeln('Kelinci');
end
else if (c) = '3' then
begin
clrscr;
writeln('Yogyakarta ');
writeln('Jakarta');
writeln('Bandung ');
writeln('Surabaya');
end
else if (c) = '4' then
begin
clrscr;
writeln ('Terima kasih udah masuk program ini');
end
else if (c) = '' then
writeln ('Perintahnya belum diisi')
else
writeln ('Maaf, harap tuliskan perintahnya dengan benar');
readln;
clrscr;
until c = '4';
writeln ('');
writeln ('Klik silang pada ujung kanan program atau anda menekan tombol Alt + F4');
writeln ('untuk keluar dari program ini.');
end.

Bagikan Article ini di: Facebook Twitter Google+ Linkedin Technorati Digg

Posting by Unknown, Published at 12.09 and have 0 komentar

Related Post