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!

KEGIATAN EKSTRAKULIKULER SMK KARYA NUGRAHA BOYOLALI

Kegiatan Ekstrakulikuler Bantaran Dilakukan Oleh Para Siswa-Siswi Untuk Menjadikan Mereka Menjadi Orang Yang Baik Dan Latihan Ini Juga  Untuk Melatih Calon-Calon PASKIBRAKA

pekerjaan orang tua

nama ibu saya adalah poniyem,ia bekerja di pt samkyung jaya busana 2 yang bertempat di dukuh tiris rt 01/rw 02 desa  kecamatan ampel kabupaten boyolali jateng,ia menjadi berjabatan sewing.

tempat tinggal siswa

saya bertempat tinggal di klangon kulon kembang ampel boyolali tepatnya di bawah gunung merbabu,disana penghasil tembakau,cengkeh dan sayur-mayur lainnya

                               

biodata muhammad arta

Nama saya muhammad arta fadilah zakariya,saya berasal dari mts nurul huda ampel,saya bersekolah di smk karya nugraha boyolali,saya mengambil jurusan teknik komputer dan jaringan,saya tinggal di klangon kulon kembang ampel boyolali,saya 2 bersaudara saya anak pertama,tanggal lahir 22 Desember 2002.