Contoh Membuat Bintang dalam Pascal

Program cara Membuat Bintang Di Pascal... program Bintang;uses crt, graph;type Tbintang = RecordPX, PY : Integer;Ukuran : Integer;Warna : Integer;end;Var BT : TBintang;Procedure Create_Bintang(Var B:Tbintang;X, Y, U, W: Integer);beginB.PX := X;B.PY := Y;B.Ukuran := U;B.Warna := W;setcolor(B.Warna);Moveto(B.PX, B.PY-4*B.Ukuran);Lineto(B.PX+1*B.Ukuran, B.PY-1*B.Ukuran);LineTo(B.PX+4*B.Ukuran, B.PY-1*B.Ukuran);LineTo(B.PX+2*B.Ukuran, B.PY+1*B.Ukuran);LineTo(B.PX+3*B.Ukuran, ...

Continue reading →

Buat Game Tetris Menggunakan Pascal

RxN704-28-2010, 03:08 PMuses crt;type _points = array [1..4] of recordx,y : longint;end;tetris = recordpoints : _points;cshape, nshape, xmodel, xtetris, ymodel, ytetris : longint;end;Const template : array [1..8] of _points =(((x:1; y:1),(x:1; y:2),(x:2; y:1),(x:2; y:2)),((x:2; y:1),(x:1; y:1),(x:3; y:1),(x:4; y:1)),((x:1; y:2),(x:1; y:1),(x:1; y:3),(x:2; y:3)),((x:2; y:2),(x:2; y:1),(x:2; y:3),(x:1; y:3)),((x:1; y:2),(x:1; y:1),(x:2; y:2),(x:2; ...

Continue reading →

Contoh Program menggunakan procedure dan case of DI Pascal

Program Menghitung_Luas_dan_Keliling_Bangun_Datar;uses crt;VarPilih : Integer;Procedure Persegi; {Mencari Luas dan Keliling Persegi}Vars, L, K : Real;BeginWriteln(' ');Textcolor(LightRed);Writeln(' --==::Menghitung Luas dan Keliling Persegi::==--');Textcolor(LightGreen);Writeln(' ');Write('Masukkan sisi : ...

Continue reading →

Materi - Pengenalan Pascal

Pascal merupakan suatu bahasa komputer tingkat tinggi yang dibuat sekitar tahun 1970 oleh Niklaus Wirth dan digunakan untuk pendidikan komputer. Nama Pascal diambil dari seorang ahli matematika yang bernama Blaise Pascal yang menemukan mesin hitung pertama. Bahasa Pascal dirancang untuk menyelesaikan masalah dari berbagai kalangan pemakai, mulai dari para mahasiswa, pendidik, dan ilmuwan. Salah satu kompiler pascal yang terkenal dan tercepat adalah ...

Continue reading →