Program Pengcodingan Tebak Angka (1-10) pada Aplikasi Pascal

Tanggal Pembuatan : Senin, 21 Desember 2020

    Hai gaes, disini saya akan menjelaskan tentang program permaianan tebak angka (1-10) yang telah ditentukan oleh komputer pada aplikasi Pascal. Jika ada kesalahan, mungkin kakak-kakak dapat merevisi dikolom komentar ya kak, karena kita disini juga belajar bersama. Nah tidak perlu berbasa-basi lagi, cikidot kita langsung mempelajari ya. Yukkk 😀...

    Jika kalian ketahui, rumus untuk mengacak angka oleh komputer yaitu : Random (). Bagaima sampai disini kakak-kakak sudah memulai memahami kan? 😉

    Rumus Random(10) berfungsi untuk mengacak angka 0-9. Bagaimana caranya menampilkan acakan 1-10? Nah caranya dengan menambah angka satu, antara lain menjadi : Random(10)+1. 😄

    Bagaimana bentuk codingnya, yuk disimak baik-baik. 😉

Program Tebak_Angka;

Uses Crt;

Var Data1, Data2 : Integer;

Begin

        Clrscr;

        Randomize;

        Data1:=Random10+1;

        Writeln ('Komputer telah memilih sebuah angka. Cobalah tebak angka yang telah dipilih oleh komputer!');

        Repeat

        Begin

                Writeln ('Masukan tebakan anda (1-10) : '); readln (Data2);

                If (Data2<Data1) then writeln ('Tebakan terlalu kecil');

                Else if (Data2>Data1) then writeln ('Tebakan terlalu besar');

                Else if (Data2=Data1) then writeln ('SELAMAT TEBAKAN ANDA BENAR!');

        End;

        Until Data2=Data1

        Readln;

End

    Lalu hasil run seperti berikut :

    Terima kasih, semoga bermanfaat bagi kalian 👋😄.