Program Tebak Angka Pascal

Apa kabar sobat? Kali ini saya akan membagikan artikel Program Tebak Angka Pascal. Oke, langsung saja saya paparkan programnya, untuk yang males ngetik silahkan dicopy :v

program tebak_angka;
uses crt;
const
gsd='================================================================================';
 gs='--------------------------------------------------------------------------------';
var
level,jawaban,i,j:integer;
angka:byte;
ket,yt:string;
begin
clrscr;
        repeat
        textcolor(15);gotoxy(23,3);write('Selamat Datang Di Aplikasi Tebak Angka');
        textcolor(10);gotoxy(28,5);write('Created By : Ferdi Gusnanto');
        textcolor(11);gotoxy(23,4);write('--------------------------------------');
                      gotoxy(23,2);write('--------------------------------------');
        gotoxy(1,7);write(gs);gotoxy(1,12);write(gs);
        textcolor(15);gotoxy(2,8);write('Silahkan Masukkan Level Permainan : ');
        textcolor(10);gotoxy(2,9);write('1. Mudah');
        textcolor(14);gotoxy(2,10);write('2. Normal');
        textcolor(12);gotoxy(2,11);write('3. Sulit');
        textcolor(15);gotoxy(38,8);readln(level);

clrscr;
        case level of
        1:begin
        randomize;
        angka:=random(10);
        repeat
        textcolor(15);gotoxy(30,3);write('Tebak Angka Level Mudah');
        textcolor(11);gotoxy(30,2);write('-----------------------');
                      gotoxy(30,4);write('-----------------------');
                      gotoxy(1,5);write(gs);
                      gotoxy(1,9);write(gs);
        textcolor(10);gotoxy(2,6);write('Angka Berada Pada 0-10');
        textcolor(15);gotoxy(2,7);write('Silahkan Masukkan Angka Yang Ditebak : ');
        readln(jawaban);textcolor(14);
        if jawaban > angka then ket:='Angka Terlalu Besar, Coba Lagi';
        if jawaban < angka then ket:='Angka Terlalu Kecil, Coba Lagi';
        if jawaban = angka then ket:='Tebakan Anda Benar!!          ';
        gotoxy(2,8);write('Hasil : ',ket);gotoxy(41,7);write('           ');
        until jawaban = angka;
        end;
        2:begin
        randomize;
        angka:=random(20);
        repeat
        textcolor(15);gotoxy(30,3);write('Tebak Angka Level Normal');
        textcolor(11);gotoxy(30,2);write('------------------------');
                      gotoxy(30,4);write('------------------------');
                      gotoxy(1,5);write(gs);
                      gotoxy(1,9);write(gs);
        textcolor(10);gotoxy(2,6);write('Angka Berada Pada 0-20');
        textcolor(15);gotoxy(2,7);write('Silahkan Masukkan Angka Yang Ditebak : ');
        readln(jawaban);textcolor(14);
        if jawaban > angka then ket:='Angka Terlalu Besar, Coba Lagi';
        if jawaban < angka then ket:='Angka Terlalu Kecil, Coba Lagi';
        if jawaban = angka then ket:='Tebakan Anda Benar!!          ';
        gotoxy(2,8);write('Hasil : ',ket);gotoxy(41,7);write('           ');
        until jawaban = angka;
        end;
        3:begin
        randomize;
        angka:=random(30);
        repeat
        textcolor(15);gotoxy(30,3);write('Tebak Angka Level Sulit');
        textcolor(11);gotoxy(30,2);write('-----------------------');
                      gotoxy(30,4);write('-----------------------');
                      gotoxy(1,5);write(gs);
                      gotoxy(1,9);write(gs);
        textcolor(10);gotoxy(2,6);write('Angka Berada Pada 0-30');
        textcolor(15);gotoxy(2,7);write('Silahkan Masukkan Angka Yang Ditebak : ');
        readln(jawaban);textcolor(14);
        if jawaban > angka then ket:='Angka Terlalu Besar, Coba Lagi';
        if jawaban < angka then ket:='Angka Terlalu Kecil, Coba Lagi';
        if jawaban = angka then ket:='Tebakan Anda Benar!!          ';
        gotoxy(2,8);write('Hasil : ',ket);gotoxy(41,7);write('    ');
        until jawaban = angka;
        end;
         end;
        textcolor(15);gotoxy(2,10);write('Apa Ingin Main Lagi? (y/t) : ');readln(yt);
clrscr;
        until yt='t';
        repeat
        textcolor(12);gotoxy(1,1);write(gsd);gotoxy(1,3);write(gsd);
        textcolor(15);gotoxy(31,4);write('tekan ENTER untuk keluar');
        for i:=1 to 68 do begin
        delay(75);gotoxy(i,2);write(' Terima Kasih');end;
        for j:=68 downto 1 do begin
        delay(75);gotoxy(j,2);write('Terima Kasih ');end;
        until keypressed;
end.

Cara menjalankan file tersebut:

• Copy program di atas
• Paste Copy-an tadi di Notepad
• Save dengan format .pas
• Pindahan file .pas tadi ke folder directory Software Pascal sobat
• Terakhir, Run program tersebut dan selamat menikmati :v

Mungkin sekian artikel dari saya, semoga bermanfaat. Jika ada kritik dan saran silahkan berkomentar dibawah ini. Jangan lupa juga untuk follow Blog saya agar sobat dapat mengikuti update-an artikel dari saya. Sekian Terima kasih.

Berbagi :