Source code pascal kamus

program kamus;
uses crt;
const
appname='kamus';
var
kata : string;
begin
repeat;
textbackground(10);
textcolor(5);
clrscr;
writeln('======================================================');
writeln('= Kamus hewan Sederhana =');
writeln('======================================================');
write ('masukan kata: '); readln (kata);
if kata='kucing' then
writeln(' cat')
else
if kata='anjing' then
writeln(' dog')
else
if kata='kuda' then
writeln(' horse')
else
if kata='kambing' then
writeln(' goat')
else
if kata='ayam' then
writeln(' chiken')
else
if kata='babi' then
writeln(' pig')
else
if kata='sapi' then
writeln(' cow')
else
if kata='ikan' then
writeln(' fish')
else
if kata='bebek' then
writeln(' duck')
else
if kata='tikus' then
writeln(' mouse')
else
if kata='burung' then
writeln(' bird')
else
if kata='harimau' then
writeln(' tiger')
else
if kata='kura-kura' then
writeln(' turtle')
else
if kata='semut' then
writeln(' ant')
else
if kata='gajah' then
writeln(' elephant')
else
if kata='katak' then
writeln(' frog')
else
if kata='kupu-kupu' then
writeln(' buterfly')
else
if kata='jerapah' then
writeln(' giraffe')
else
if kata='kelelawar' then
writeln(' bat')
else
if kata='jangkrik' then
writeln(' handspring')
else
if kata='anoa' then
writeln(' dwarf buffalo')
else
if kata='beruang' then
writeln(' bear')
else
if kata='monyet' then
writeln(' monkey')
else
if kata='' then
writeln(' bat')
else
if kata='kecoa' then
writeln(' coakroach')
else
if kata='rayap' then
writeln(' termit')
else
if kata='kerbau' then
writeln(' buffalo')
else
if kata='ular' then
writeln(' snake')
else
if kata='kumbang' then
writeln(' beetle')
else
if kata='lebah' then
writeln(' bee')
else
if kata='laba-laba' then
writeln(' spider')
else
if kata='tupai' then
writeln(' squirrel')
else
if kata='belatung' then
writeln(' maggot')
else
if kata='angsa' then
writeln(' goose')
else
if kata='rusa' then
writeln(' deer')
else
if kata='banteng' then
writeln(' bull')
else
if kata='buaya' then
writeln(' crocodile')
else
if kata='landak' then
writeln(' porcupine')
else
if kata='kadal' then
writeln(' lizard')
else
if kata='lintah' then
writeln(' leech')
else
if kata='domba' then
writeln(' sheep')
else
if kata='cacing' then
writeln(' worm')

else
if kata='kelabang' then
writeln(' centipede')

else
if kata='singa' then
writeln(' lion'); readln;

until false;
end.

Related Posts by Categories