cuma pgen berbagi ilmu,,,ni source codenya:program game_tebak_angka;uses wincrt;var tebak,angka : longint;i,kesempatan,tingkat,sulit : Integer;ulang : char;beginrepeatclrscr;randomize;angka:=random(1000);{Proses pengacakan angka}writeln (' Game Tebak Angka');writeln (' By Binttank ');writeln;writeln ('Angka berada pada 0-1000 ');writeln ('selamat bermain ');repeatbeginwriteln;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 of1 : sulit:=11;2 : sulit:=10;3 : sulit:=9;end;for i:=1 to sulit dobeginkesempatan:=sulit-1-i;if (i=sulit) thenbeginwriteln;writeln (' **************************************');writeln...

0 Comments
Tags:
Programing