Cara Membuat Game KuisTurbo Pascal 7.1

         
SCRIPT GAME KUIS DI TURBO PASCAL

        program ini menggunakan tipe data STRING dan berisi 10 soal,ini menggunakan apk turbo pascal 7.1. script ini sudah saya compile berkali kali dan hasilnya benar,berikut script atau coding nya:

PROGRAM GAME;

Uses crt;

Var

 j1,j2,j3,j4,j5 :string;

Begin

Clrscr;

Writeln(‘----------------------------- GAME KUIS --------------------------------------‘);

Writeln;

Writeln(‘                             SELAMAT MENCOBA’);

Writeln;

Writeln(‘Nb :TEKAN JAWABAN PAKAI HURUF KECIL’);

Writeln;

Writeln(‘By :MUHAMMAD ARTA FADILAH ZAKARIYA’);

Begin

            Writeln(‘1.RUMUS DARI LUAS VOLUME BANGUN DATAR KERUCUT’);

            Writeln(‘a.1/2.La.t   c.pi.r.r.t');

            Writeln(‘b.La.t        d.1/2.l.t’);

            Writeln;

            Write(‘JAWABAN ANDA : ‘);readln(j1);

            If j1 =’c’ then

            Writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            Else

            Writeln(‘                                   - maaf jawaban anda SALAH! -’);

            Writeln;

            Readln;

            End;

            Begin

            Writeln(‘2.APA NAMA GUNUNG TERTINGGI DIINDONESIA’);

            writeln(‘a.GUNUNG SLAMET          c.GUNUNG LAWU’);

            writeln(‘b.GUNUNG KRAKATAU     d.GUNUNG PUNCAK JAYA’);

            writeln;

            write(‘JAWABAN ANDA : ‘);readln(j2);

            if j2=’d’ then

            writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            else

            writeln(‘                                    - maaf jawaban anda SALAH! -’);

            writeln;

            readln;

            end;

            begin;

            writeln(‘3.DARI DAERAH MANAKAH LAGU BUKA PINTU’);

            writeln(‘a.BATAVIA       c.JAWA BARAT’);

            writeln(‘b.BALI              d.MALUKU’);

            writeln(‘JAWABAN ANDA : ‘);readln(j3);

             if j3=’d’ then

            writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            else

            writeln(‘                                    - maaf jawaban anda SALAH! -’);

            writeln;

            readln;

            end;

            begin

            writeln(‘4.SIAPAKAH PRESIDEN KEDUA RI’);

            writeln(‘a.B.J.HABIBIE     c.GUS DUR’);

            writeln(‘b.SOEHARTO      d.AHMAD DAHLAN’);

            writeln;

            write(‘JAWABAN ANDA : ‘);readln(j4);

            if j4=’b’ then

            writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            else

            writeln(‘                                    - maaf jawaban anda SALAH! -’);

            writeln;

            readln;

            end;

            begin

            writeln(‘5.SIAPAKAH PENEMU PASCAL’);

            writeln(‘a.BLAISE PASCAL         c.BERLIAN PASCAL’);

            writeln(‘b.LEIMENA PASCAL      d.SAMUEL PASCAL’);

            writeln;

            write(‘JAWABAN ANDA : ‘);readln(j5);

            if j5=’a’ then

            writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            else

            writeln(‘                                    - maaf jawaban anda SALAH! -’);

            writeln;

            readln;

            end;

            begin

            writeln(‘6.PADA TAHUN BERAPAKAH PASCAL DITEMUKAN’);

            writeln(‘a.1969      c.1971’);

            writeln(‘b.1970      d.1972’);

            writeln;

            write(‘JAWABAN ANDA : ‘);readln(j1);

            if j1=’c’ then

            writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            else

            writeln(‘                                    - maaf jawaban anda SALAH! -’);

            writeln;

            readln;

            end;

            begin

            writeln(‘7.BERIKUT CONTOH TIPE DATA PASCAL,KECUALI’);

            writeln(‘a.BYTE         c.CONST’);

            writeln(‘b.CHAR        d.REAL’);

            writeln;

            write(‘JAWABAN ANDA : ‘);readln(j2);

            if j2=’c’ then

            writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            else

            writeln(‘                                    - maaf jawaban anda SALAH! -’);

            writeln;

            readln;

            end;

            begin;

            writeln(‘8.KERAJAAN ISLAM PERTAMA DI JAWA’);

            writeln(‘a.KERAJAAN DEMAK         c.KERAJAAN SAMUDRA PASAI’);

            writeln(‘b.KERAJAAN CIREBON     d.KERAJAAN MATARAM’);

            writeln;

            write(‘JAWABAN ANDA : ‘);readln(j3);

            if j3=’a’ then

            writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            else

            writeln(‘                                    - maaf jawaban anda SALAH! -’);

            writeln;

            readln;

            end;

            begin;

            writeln(‘9.SIAPAKAH PENDIRI DAULAH ISLAM DI INDONESIA’);

            writeln(‘a.JEGGALA                 c.AHMAD SOBARDJO’);

            writeln(‘b.KARTO SUWIRYO   d.AMIR FATAH’);

            writeln;

            write(‘JAWABAN ANDA : ‘);readln(j4);

            if j4=’b’ then

            writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            else

            writeln(‘                                    - maaf jawaban anda SALAH! -’);

            writeln;

            readln;

            end;

            begin;

            writeln(’10.SITUS MANUSIA PURBA TERLENGKAP DIDUNIA’);

            writeln(‘a.TRINIL         c.NGANDONG’);

            writeln(‘b.KOKAS       d.SANGIRAN’);

            write(‘JAWABAN ANDA : ‘);readln(j5);

            if j5=’d’ then
            writeln(‘<<<<<<<<<<<<<<<<<<<< JAWABAN ANDA BENAR >>>>>>>>>>>>>>>>>>>>>>>’)

            else

            writeln(‘                                    - maaf jawaban anda SALAH! -’);

            writeln;

            writeln(‘                                                GAME OVER’);

            readln;

            end;

end.

Hasil Program Tersebut

SEMOGA BERMANFAAT!