Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
1.6 kB
1
Indexable
Never
program GameJudiOnline;
uses wincrt;
var tebak,angka:longint;
i,kesempatan,tingkat,sulit:Integer;
ulang:Char;

begin
repeat
randomize;
angka:=random(100);
{proses pengacakan angka}


writeln();
writeln('===SELAMAT DATANG===');
Writeln('GAME TEBAK ANGKA');
Writeln('===NAMA ANDA===');
Writeln();
writeln();
writeln('===SELAMAT BERMAIN===');
Writeln('Angka Berada Pada 0-100');
repeat
begin
writeln;
writeln('Pilih Tingkat Kesulitan');
writeln('1. Mudah (Tebak 10x)');
writeln('2. Menengah (Tebak 7x)');
writeln('3. Sulit (tebak 5x)');
readln(tingkat);
end;
until (tingkat=3)or(tingkat=2)or(tingkat=1);

case tingkat of
1:sulit:=11;
2:sulit:=9;
3:sulit:=6;
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('Masukkan 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('******************************');
i:=sulit;
end;
end;
end;
end;

writeln;
writeln;
repeat
begin
write('Ingin bermain lagi..?(Y/N)');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.