Untitled
unknown
plain_text
2 years ago
1.7 kB
8
Indexable
program game_tebak_angka; uses wincrt; var tebak,angka : longint; i,kesempatan,tingkat,sulit : Integer; ulang : char; begin repeat clrscr; randomize; angka:=random(1000); {Proses pengacakan angka} writeln (' Game Tebak Angka'); writeln (' By Binttank '); 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 (' **************************************'); i:=sulit; 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.
Editor is loading...