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.
recent comment