break a time, with break the c0de…

pascal

cara menginstall pascal di linux


Kali ini saya akan beri tips menginstall pascal di linux
yah karena menurut saya sangat mengasyikan , mengapa tidak di install saja dilinux :p
ok… ok langsung saja

tools – tools yang saya pakai saat ini sebagai berikut :
* fpc
* konsole

dan editor kesukaan saya adalah kate mungkin anda juga harus mencobanya.

jika anda menggunakan operating system berbasis debian silahkan ketikan saja seperti ini di terminal anda :
* apt-get install fpc konsole kate

oiya, mengapa sekaligus menginstall konsole ?
karena pada dasarnya kate memiliki bug terminal tidak terlihat , maka dengan menginstall konsole maka terminal akan terlihat pada kate .
selain itu, mempermudah meng-kompile atau menginterpreter code yang kita buat.

nah jika sudah terinstall, maka akan seperti gambar berikut :

lalu kita tes dengan code ular_berjalan :

program ular_berjalan;
uses crt;
var
x : byte;
 begin
 clrscr;
 while x<100 do
 begin
 gotoxy(1+x,10);
 write(' ');
 write('0oSnAkEo0`o`');
 delay(10);
 x:=x+1;
 end;
end.

simpan file tersebut dengan nama up2u.pas di directory yang anda sediakan, lalu klik terminal setelah itu kompile dengan cara :
* fpc ular.pas

lalu run program di konsolenya juga dengan perintah :
* ./ular.pas

sekarang semuanya sudah selesai selamat berpascal ria di linux…!


ular berjalan (snake)


berikut adalah program simple ular berjalan tanpa kontrolernya.

program ular_berjalan;
uses crt;
var
x : byte;
 begin
 clrscr;
 while x<100 do
 begin
 gotoxy(1+x,10);
 write(' ');
 write('0oSnAkEo0`o`');
 delay(1000);
 x:=x+1;
 end;
end.

penjelasan :

line 1 : nama program ular berjalan
line 2 : menggunakan kompiler pascal 98 DOS
line 3 : tentukan variable
line 4 : variable x sama dengan byte
line 5 : mulai program !!!
line 6 : bersihkan layar
line 7 : selagi nilai x lebih kecil dari nilai 100
line 8 : memulai subprogram
line 9 : pointer pergi ke xy 10 kemudian tambah 1 , lalu tambah 1 dan seterusnya sampai nilainya 99
line 10: tulis kosong, *Tips : ini hanya untuk perpindahan pointer
line 11: menulis 0oSnAkEo0`o`
line 12: variable byte x ditambah 1
line 13: sebelum x bernilai 99 maka akan terus berputar subprogramnya…
line 14: akhir dari program, jika syarat terpenuhi.

dengan beberapa code tersebut, maka akan seperti ular yang berjalan pada layar screen.
namun, saya tidak membuat kontrolernya (readkey) maka ular akan terus berjalan kekanan…

ok sekian dulu.


matrix pascal


Iseng bermain2 dgn program matrix pascal lama…

 program matriks;
uses crt;
var
 elemen : array [1..5,1..6] of byte;
 x,y : byte;
begin
 clrscr;
 elemen [1,1] :=5;
 elemen [1,2] :=3;
 elemen [1,3] :=6;
 elemen [2,1] :=7;
 elemen [2,2] :=1;
 elemen [2,3] :=8;
 elemen [3,1] :=9;
 elemen [3,2] :=5;
 elemen [3,3] :=7;
 for x :=1 to 3 do;
 begin
 for y :=1 to 3 do;
 begin
 write (elemen [x,y]);
 end;
 writeln;
end;
end.
 

simple sort


berikut adalah program pascal simple sort

Program simple_sort;
Uses crt;
Var
 Data : array [1..5] of byte;
 X,y,z : byte;
Begin
 Data [1] := 5;
 Data [2] := 4;
 Data [3] := 3;
For x:= 1 to 5 do write (data [x]);
For x:= 1 to 5 do;
 Begin
 For z:= x + 1 to 5 do
 If data [x] > data [z] then
 Y:= data [x];
 Data [x] := data [z];
 Data [z] := y;
 End;
End.

Penjelasan :

line 1 : Menamakan program simple sort (tidak mutlak)
line 2 : Menggunakan compiler pascal 98 DOS / bisa menggunakan use wincrt pada compiler pascal yang jaman windows
line 3 : Tentukan variable
line 4 : Data adalah array dari 1 sampai 5
line 5 : Variable x, y, z adalah byte
line 6 : Begin – Mulai program . seperti halnya kurung kurawal pada c maka juga akan ada penutup nya ({ })
line 7 : Array data 1 berisi nilai 5
line 8 : Array data 2 berisi nilai 4
line 9 : Array data 3 berisi nilai 3
line 10: Untuk nilai x = 1 menuju ke 5 , lalu menulis data byte x
line 11: Untuk nilai x = 1 menuju ke 5
line 12: Memulai program di dalam program . disebut juga program tersarang
line 13: Untuk nilai z = 1 menuju ke 5
line 14: Jika data x lebih besar dari data z kemudian
line 15: Data array Y sama dengan data array X
line 16: Data array Z sama dengan nilai variabel y
line 17: Akhir dari program tersarang, tetapi jika syarat telah terpenuhi.
line 18: Akhir dari program, jika semua syarat program telah terpenuhi.

Inti program tersebut adalah pertukaran data pada syarat2 tertentu (bubble sort).
Ok, sampai disini dulu selanjutnya saya akan menjelaskan analogi programnya.