bikin game Tetris 2 pleyer pake free pascal

walu pu pascal  Pascal sering dikonotasikan sebagai  bahasa pemrograman yang kuno karena tampilannya masih menggunakan DOS, tapi ternyata bisa dipake untuk bikin game  , klo gak percaya tes aja algoritma di bawah ini... 






program tetris_2player;
uses crt;
type _points = array [1..4] of record
        x,y : longint;
     end;
     tetris = record
        points : _points;
        cshape, nshape, xmodel, xtetris, ymodel, ytetris : longint;
     end;

tutorial Pascal

operasi MOD dan DIV pada pascal

Hmmm.. MOD dan DIV, ya? mungkin simple nya, mod bwat nyari sisa pembagian tertentu, div mencari 'bagian' integer dari hasil pembagiannya. 
jadi misal pada operasi terhadap bilangan 5 dan 2, maka :
5 mod 2 = 1 (5:2 = 2 bersisa 1)
sedangkan 
5 div 2 = 2 (5:2 = 2 bersisa 1)
atau mungkin bisa 'disamakan' dengan fungsi int(), umumnya digunakan pada pembulatan ke bawah bilangan real,  misal : int(2,5) = 2.

tutorial Pascal

FUNGSI pada Pascal

 Blok fungsi hampir sama dengan blok prosedur, hanya fungsi harus dideklarasikan dengan tipenya. Tipe deklarasi ini menunjukkan tipe hasil dari fungsi.

Bentuk umum :

FUNCTION identifier (daftar parameter) : type ;

Blok fungsi juga diawali dengan kata cadangan Begin dan di akhiri dengan kata cadangan End dan titik koma.

Perbedaan fungsi dengan prosedur adalah :

- Pada fungsi, nilai yang dikirimkan balik terdapat pada nama fungsinya ( kalau pada prosedur pada parameter yang dikirimkan secara acuan).

- Karena nilai balik berada di nama fungsi tersebut, maka fungsi tersebut dapat langsung digunakan untuk dicetak hasilnya. Atau nilai fungsi tersebut dapat juga langsung dipindahkan ke pengenal variable yang lainnya.

- Pada prosedur, nama prosedur tidak dapat digunakan lagsung, yang dapat langsung digunakan adalah parameternya yang mengandung nilai balik.

tutorial Pascal

Algoritma adalah

Asal kata Algoritma berasal dari nama Abu Ja’far Mohammed Ibnu Musa al-Khowarizmi, ilmuan Persia yang menulis kitab al jabar w’al-muqabala (rules of restoration and reduction) sekitar tahun 825 M 

Definisi Algoritma 

- Algoritma adalah urutan langkah logis tertentu untuk memecahkan suatu masalah. Yang ditekankan adalah urutan langkah logis, yang berarti algoritma harus mengikuti suatu urutan tertentu, tidak boleh melompat-lompat. (Dari Microsoft Press Computer and Internet Dictionaary 1997, 1998) 

- Alur pemikiran dalam menyelesaikan suatu pekerjaan yang dituangkan secara tertulis. Yang ditekankan pertama adalah alur pikiran, sehingga  algoritma seseorang dapat juga berbeda dari algoritma orang lain.  Sedangkan penekanan kedua adalah tertulis, yang artinya dapat berupa kalimat, gambar, atau tabel tertentu. (Dari Algoritma dan Struktur Data dengan C, C++, dan Java oleh Moh Sjukani hal 1) 

- Urutan-urutan dari instruksi atau langkah-langkah untuk menyelesaikan suatu masalah.

tutorial Pascal

CONTOH PROGRAM PASCAL

Berikut adalah beberapa contoh program PASCAL:

Program 1 : menghitung luas/keliling bangunan

Yup... sekarang kita buat program yang pertama, menghitung luas dan keliling bangunan. Bangunan yang dijadikan contoh adalah segitiga. Perhatikan contoh di bawah ini:

  1: Program Menghitung_Luas_dan_Keliling;

  2: var alas, tinggi, sisimiring, luas, keliling: real;

  3: Begin

  4:   writeln('MENGHITUNG LUAS DAN KELILING SEGITIGA');

  5:   writeln('-------------------------------------');

  6:   write('Masukkan alas : ');readln(alas);

tutorial Pascal

DATABASE pascal

Rasanya gak lengkap kalo buat program tapi gak bisa nyimpen data. Yang bakal dijelasin di sini adalah file bertipe, artinya harus disebutkan dulu tipe file tersebut, apakah integer, long integer, string, char atau bahkan record. Berikut ini adalah daftar prosedur dan fungsi yang berhubungan dengan program database file bertipe (no 12 sampai 16 hanya untuk file teks).

tutorial Pascal

ARRAY DAN RECORD dalam pascal

 

Pernahkah kamu membayangkan bila kita mau membuat program toko buah-buahan. Jika ada 3 jenis buah-buahan (melon, duku dan mangga) berarti kita harus mempunyai tiga variabel untuk masing-masing jenis buah. Tetapi betapa sulitnya jika toko itu punya 10 atau 20 jenis yang berbeda. Solusinya adalah gunakan array. Array itu adalah tipe data terstuktur yang berguna untuk menyimpan sejumlah data yang bertipe sama. Bagaimana cara kerjanya? yaitu dengan menggunakan index (semacam penanda). 

Perhatikan contoh:

tutorial Pascal

PROSEDUR DAN FUNGSI

Misalnya kita punya rumus menghitung luas segita, apa yang kamu lakukan bila rumus itu ingin kamu tulis ditiga tempat yang berbeda? apa kamu akan ccp (copy, cut dan paste)? emang bisa sih diperbanyak dengan yang gituan, tapi boros memori dan berabe kalo rumus yang kita tulis ternyata salah, berarti kita harus betulin di tiga tempat juga. Untuk mempermudahnya gunakan Prosedur atau Fungsi.

  1: Program Tutorial4_Prosedur;

  2:

  3: Procedure Tampil;

  4: begin

  5:   writeln('Hi...');

  6:   writeln('Apakabar');

  7: end;

  8: Begin

  9:   Tampil;

10:   writeln('yang di atas menggunakan prosedur loohh...');

11: End.

tutorial Pascal

LOOPING dalam pascal

Looping? apa hayoo...? masih ingatkan pelajaran fisika SMU, adakan pelajaran tentang looping dirangkaian elektronik. Looping adalah proses pengulangan hingga kondisi syarat yang ditentukan tercapai. Sekarang kita ngebahas 3 jenis looping, for, while dan repeat. Perhatikan contoh di bawah ini:

1: Program Tutorial3_for;

2: var i: Integer;

3: Begin

4:   For i:=1 to 5 do

5:     writeln('ini yang ke ', i);

6: End.

Perhatikan baris 4 dan 5. Di sana ada satu persyaratan, yaitu baris ke-5 akan dieksekusi bila nilai i antara 1 sampai 5. Apa output yang tercetak dilayar?

tutorial Pascal

PENGGUNAAN KONDISI dalam pascal

Tutorial yang kedua ini akan dibahas mengenai pernyataan kondisi, if dan case.

 1: Program Tutorial2_if;

2: var pilih: Integer;

3: Begin

4:   write('Pilih 1 atau 2'); readln(pilih);

5:   if pilih=1 then write('Anda memilih 1')

6:   elseif pilih=2 then write('Pilihan anda 2')

7:   else write('Anda memilih yang lain')

8: End.

Perhatikan baris 5, 6 dan 7. Di situ ada 3 pernyataan kondisi if. Apabila pilihan yang kita ketik ada di satu kondisi, maka yang lain akan diabaikan. Bingung? gini maksudnya... Misal pada program di atas kita pilih 2. Pada saat program dijalankan, baris ke-5 akan di eksekusi. Berhubung pilihan kita 2 bukan 1, maka akan langsung pindah kebaris selanjutnya. Ternyata pada baris ke-6 kondisi itu terpenuhi, maka yang tercetak dilayar adalah "Pilihan anda 2". Baris ke-7 tidak diperiksa lagi karena baris ke 6 sudah memenuhi syarat.

tutorial Pascal

MENCETAK KE LAYAR DAN PENGGUNAAN VARIABEL

 Ok, sekarang kita bakal belajar cara menampilkan teks di layar dan penggunaan variabel. Perhatikan contoh dibawah ini:

1: Program KaryaPertamaku;

2: uses crt;

3: var nama: string;

4: Begin

5:   write('Masukkan nama anda: '); readln(nama);

6:   clrscr;

7:   write('Hi ', nama, 'apa kabar?');

8: End.

tutorial Pascal

Pengenalan Pascal

Pascal adalah bahasa tingkat tinggi yang orientasinya pada segala tujuan, dirancang oleh Prof. Niklaus Wirth dari Technical University di Zurich, Switzerland. Nama pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematik dan philosiphi terkenal abad 17 dari Prancis.

Profesor Niklaus Wirth memperkenalkan kompiler bahasa Pascal pertama kali untuk komputer CDC 6000 (Control Data Corporation) yang dipublikasikan pada tahun 1971 dengan tujuan untuk membantu mengajar program komputer secara sistematis, khususnya pemrograman terstruktur. Pada perkembangannya banyak

tutorial Pascal