Game Tebak Angka menggunakan perintah Function

var tebak,angka : longint;
i,kesempatan,tingkat,sulit : Integer;
ulang : char;
function tebakan(angka,benar,salah:integer):integer;
begin
if angka=benar then
tebakan:=benar
else
tebakan:=salah;
end;
begin
repeat
randomize;
angka:=random(1000);
{Proses pengacakan angka}


writeln (' Game Tebak Angka');
writeln (' By Rian Novendri ');
writeln;
writeln ('Angka berada pada 0-1000 ');
writeln ('selamat bermain ');
repeat
begin
writeln;
writeln('Pilih tingkat kesulitan ');
writeln ('1. Mudah (Tebak 10x)');
writeln ('2. Menengah (tebak 9x) ' );
writeln ('3. Sulit (tebak 8x) ');
readln (tingkat);
end;
until (tingkat=3)or(tingkat=2)or(tingkat=1);

case tingkat of
1 : sulit:=11;
2 : sulit:=10;
3 : sulit:=9;
end;


for i:=1 to sulit do
begin
kesempatan:=sulit-1-i;
if (i=sulit) then
begin
writeln;
writeln (' **************************************');
writeln (' GAME OVER!!!!!!!! ');
writeln (' **************************************');
writeln (' Angka Yang benar adalah ',angka);
end
else
begin
writeln;
write ('Masukan Angka Tebakan = ');readln(tebak);
if (tebak < angka) then
begin
writeln ('tebakan terlalu kecil');
writeln ('kesempatan anda menebak tinggal ',kesempatan,'x');
end
else
begin
if (tebak > angka) then
begin
writeln ('tebakan terlalu besar');
writeln ('kesempatan anda menebak tinggal ',kesempatan,'x');
end
else
begin
writeln;
writeln (' **************************************');
writeln (' Kamu Menang!!! Tebakan benar ');
writeln (' **************************************');
end;
end;
end;
end;


writeln;
writeln;
repeat
begin
write ('apa ingin main lagi? (Y/T) ');readln(ulang);
end;
until (ulang='y')or(ulang='Y')or(ulang='t')or(ulang='T');

until (ulang='t') or (ulang='T'); {Syarat repeat pertama}

end.

Jangan lupa like fanspage facebooknya & berikan komentarnya jg..

terimah kasih..semoga bermanfaat.

Shanjunisme... YA-HA