Download Source Code Aplikasi

Contoh Aktivitas Pascal Permainan Sulap Angka

Wednesday, November 6th, 2019 - Pascal

Hallo Coding Maniak, Sudahkan anda ngoding hari ini ?

Kali ini aku akan membagikan salah satu kegiatan dapat dibilang game sih, yaitu Permainan Sulap Angka. Pasti tahu kan permainan sulap angka ?? itu loh permainan tebak angka yang orang lain akan memikirkan salah satu angka kemudian kita akan menebaknya. Kali ini permainan ini dapat direalisasikan di pc kita dengan memakai pemrograman pascal.

Makara di kegiatan ini akan memunculkan daftar angka 1 hingga dengan 50 yang kemudian akan kita pilih salah satu, pikirkan saja salah satu kemudian tekan y kegiatan yang akan melaksanakan seleksi.

Dibawah ini yakni gambarannya.

Codingmaniak.blogspot.com%2Bcontoh%2Bprogram%2Bpascal%2BSulap%2BAngka - Contoh Aktivitas Pascal Permainan Sulap Angka
Codingmaniak.blogspot.com%2Bcontoh%2Bprogram%2Bpascal%2BSulap%2BAngka2 - Contoh Aktivitas Pascal Permainan Sulap Angka
Codingmaniak.blogspot.com%2Bcontoh%2Bprogram%2Bpascal%2BSulap%2BAngka4 - Contoh Aktivitas Pascal Permainan Sulap Angka
Dan dibawah ini yakni citra dikala kegiatan ini dijalankan
Codingmaniak.blogspot.com%2Bcontoh%2Bprogram%2Bpascal%2BSulap%2BAngka5 - Contoh Aktivitas Pascal Permainan Sulap Angka
Oke ayo kita coba, kali ini aku akan menentukan angka 9 kemudian tekan Y

Codingmaniak.blogspot.com%2Bcontoh%2Bprogram%2Bpascal%2BSulap%2BAngka6 - Contoh Aktivitas Pascal Permainan Sulap Angka

 

Kalau angka yang kita pilih ada dalam daftar tekan Y lagi, btw angka 9 aku ada.

Codingmaniak.blogspot.com%2Bcontoh%2Bprogram%2Bpascal%2BSulap%2BAngka7 - Contoh Aktivitas Pascal Permainan Sulap Angka
Jika tidak ada di dalam daftar  tekan T

Codingmaniak.blogspot.com%2Bcontoh%2Bprogram%2Bpascal%2BSulap%2BAngka8 - Contoh Aktivitas Pascal Permainan Sulap Angka
Hore tebakan kegiatan kita tepat……

Penasaran ??

Tertarik mau coba juga ??

Oke dibawah ini ada script code nya, ibarat biasa aku langsung lebih menyarankan anda mengetik manual script code nya, agar terbiasa.

Tapi kembali lagi itu terserah anda.

PROGRAM SULAPANGKA;

USES CRT;

VAR I, J, K, L: INTEGER;

YT: CHAR;

NILAI:INTEGER;

FUNCTION CSTR(I: INTEGER): STRING;

VAR S: STRING[11];

BEGIN

GOTOXY(30,1); WRITE(‘WELCOME IN MAGIC NUMBER’); STR(I, S); CSTR := S; END;

PROCEDURE TULIS(POSISI:INTEGER; TEKS:STRING);

VAR A, B, C: INTEGER;

BEGIN

A := POSISI; B := POSISI MOD 10; C := 1;

IF B = 0 THEN BEGIN B := 10;C := 0;

END;

GOTOXY(B * 8 – 5, (A DIV 10 + C) * 3 + 1); WRITE(TEKS);

END;

PROCEDURE BIKIN_KOTAK(KOLOM, BARIS: INTEGER);

BEGIN

CLRSCR;

FOR I:= 1 TO KOLOM DO BEGIN FOR J := 1 TO BARIS DO BEGIN

GOTOXY (J * 8 – 7, (I * 3)); WRITE(‘____’);

GOTOXY (J * 8 – 7, (I * 3 + 1)); WRITE(‘|        |’);

GOTOXY (J * 8 – 7, (I * 3 + 2)); WRITE(‘____’);

END;

END;

END;

PROCEDURE WIZARD7;

BEGIN

CLRSCR;

WRITELN(‘ANGKA YANG ANDA PILIH = ‘, NILAI);

WRITELN;

WRITE(‘INGIN MENGULANG (Y/ESC.)? ‘);READKEY; YT := READKEY;

END;

PROCEDURE WIZARD6;

BEGIN

BIKIN_KOTAK(2, 10);

FOR I := 1 TO 19 DO TULIS(I, CSTR(I + 31));

GOTOXY (5, 15); WRITE(‘APAKAH ANGKA YANG ANDA PILIH’, ‘ ADA PADA DERETAN ANGKA DI ATAS (Y/T) ‘);

REPEAT YT := READKEY; UNTIL YT IN [‘y’, ‘Y’, ‘t’, ‘T’, #27];

IF UPCASE(YT) = ‘Y’ THEN NILAI := NILAI + 32; WIZARD7; {===============================}

END;

PROCEDURE WIZARD5;

BEGIN

BIKIN_KOTAK(2, 10);

FOR I := 1 TO 16 DO TULIS(I, CSTR(I + 15));

  FOR J := 17 TO 19 DO TULIS (J, CSTR(J + 31));

  GOTOXY (5, 15); WRITE(‘APAKAH ANGKA YANG ANDA PILIH’, ‘ ADA PADA DERETAN ANGKA DI ATAS (Y/T) ‘);

REPEAT YT := READKEY; UNTIL YT IN [‘y’, ‘Y’, ‘t’, ‘T’, #27]; {===============================}

IF UPCASE(YT) = ‘Y’ THEN NILAI := NILAI + 16; WIZARD6;

END;

PROCEDURE WIZARD4;

BEGIN BIKIN_KOTAK(3, 10);

FOR J := 0 TO 2 DO FOR I := 1 TO 8 DO TULIS(J * 8 + I, CSTR(J * 16 + I + 7));

GOTOXY (5, 15); WRITE(‘APAKAH ANGKA YANG ANDA PILIH’, ‘ ADA PADA DERETAN ANGKA DI ATAS (Y/T) ‘);

REPEAT YT := READKEY; UNTIL YT IN [‘y’, ‘Y’, ‘t’, ‘T’, #27];

IF UPCASE(YT) = ‘Y’ THEN NILAI := NILAI + 8; WIZARD5;  {===============================}

END;

PROCEDURE WIZARD3;

BEGIN

BIKIN_KOTAK(3, 10);

FOR J := 0 TO 5 DO FOR I := 1 TO 4 DO TULIS(J * 4 + I, CSTR(J * 8 + I + 3));

GOTOXY (5, 15); WRITE(‘APAKAH ANGKA YANG ANDA PILIH’, ‘ ADA PADA DERETAN ANGKA DI ATAS (Y/T) ‘);

REPEAT YT := READKEY; UNTIL YT IN [‘y’, ‘Y’, ‘t’, ‘T’];

IF UPCASE(YT) = ‘Y’ THEN NILAI := NILAI + 4; WIZARD4; {===============================} END;

PROCEDURE WIZARD2;

BEGIN

BIKIN_KOTAK(3, 10); J:=0;

FOR J := 0 TO 12 DO FOR I := 1 TO 2 DO TULIS(J * 2 + I, CSTR(J * 4 + I + 1));

GOTOXY (5, 15); WRITE(‘APAKAH ANGKA YANG ANDA PILIH’, ‘ ADA PADA DERETAN ANGKA DI ATAS (Y/T) ‘);

REPEAT YT := READKEY; UNTIL YT IN [‘y’, ‘Y’, ‘t’, ‘T’, #27];

IF UPCASE(YT) = ‘Y’ THEN NILAI := NILAI + 2; WIZARD3; {===============================} END;

PROCEDURE WIZARD1;

BEGIN

BIKIN_KOTAK(3, 10); L:= 1;

REPEAT TULIS ((L + 1) DIV 2,CSTR(L)); L:= L + 2; UNTIL L > 50;

GOTOXY (5, 15); WRITE(‘APAKAH ANGKA YANG ANDA PILIH’, ‘ ADA PADA DERETAN ANGKA DI ATAS (Y/T) ‘);

REPEAT YT := READKEY; UNTIL YT IN [‘y’, ‘Y’, ‘t’, ‘T’, #27];

IF UPCASE(YT) = ‘Y’ THEN NILAI := 1; WIZARD2; {===============================}

END;

PROCEDURE TULIS_NOMOR;

BEGIN BIKIN_KOTAK(5, 10);

FOR K:= 1 TO 50 DO TULIS(K, CSTR(K));

GOTOXY(1, 20); WRITE (‘PILIH SEBUAH ANGKA, ‘, ‘TEKAN: Y, KALO MAU TERUS! ‘); WRITE (‘TEKAN ESC UNTUK KELUAR ‘);

REPEAT YT := READKEY; IF UPCASE(YT) = ‘Y’ THEN

BEGIN

NILAI := 0; WIZARD1;

END;

UNTIL YT IN [‘y’, ‘Y’, ‘t’, ‘T’, #27]; {===============================}

END;

(* Program Utama *)

BEGIN

CLRSCR;

TEXTATTR := $1F; REPEAT TULIS_NOMOR; UNTIL YT = #27;

END.

Semoga klarifikasi diatas bermanfaat, silahkan tuliskan komentarnya kalau dirasa ada yang salah, kurang terang atau sebagainya.

Kita disini sama-sama belajar

Seperti salah satu moto di blog ini “Dari newbie, oleh newbie, untuk newbie”

Baca Juga
Program Reservasi Hotel
Program Menu Makanan

Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.
(Telah didownload 9 kali, 1x didownload hari ini)
Download Source Code Aplikasi
Contoh Aktivitas Pascal Permainan Sulap Angka | Ahmad Code | 4.5