Game Tebak Angka Function sederhana

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.

Comments

Post a Comment

Popular posts from this blog

Pengertian Website & Web Portal beserta contohnya

Image
Definisi Website Website adalah kumpulan dari halaman - halaman situs, yang terangkum dalam sebuah domain atau subdomain, yang tempatnya berada di dalam World Wide Web ( WWW ) di dalam Internet. Sebuah halaman web biasanya berupa dokumen yang ditulis dalam format HTML ( Hyper Text Markup Language ), yang selalu bisa diakses melalui HTTP, yaitu sebuah protokol yang menyampaikan informasi dari server website untuk ditampilkan kepada para pemakai melalui web browser.dan Website atau situs dapat juga diartikan sebagai kumpulan halaman yang menampilkan informasi data teks, data gambar diam atau gerak, data animasi, suara, video dan atau gabungan dari semuanya, baik yang bersifat statis maupun dinamis yang membentuk satu rangkaian bangunan yang saling terkait dimana masing-masing dihubungkan dengan jaringan-jaringan halaman (hyperlink).
Read more

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