Semangat 48 Indonesia

var x : integer; function maks(nilai,x:integer):integer; begin if nilai=x then maks:=x else maks:=x; end; begin writeln('masukan nilai : '); readln(x); for x := 1 to x do write(' ',x); readln; end.

var angka,tebakan :longint; ulang:char; function tebak(angka,benar,salah:integer):integer; begin if angka=benar then tebak:=benar else tebak:=salah; end; begin repeat randomize; angka:=random(10); {Proses pengacakan angka} Writeln('tebak angka 1 sampai 10');readln(tebakan); if angka = tebakan then writeln('selamat tebakan anda Benar!!!!') else writeln('maaf tebakan anda salah'); readln; 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.

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!!!!!!!! ...