Pascal dan Delphi Bersama Geany dan Lazarus di Linux


Postingan ini sebenarnya bertujuan agar dosen dan mahasiswa bisa menggunakan dengan baik Geany dan Lazarus, sebagai solusi tepat agar tidak menggunakan Delphi bajakan maupun tampilan Pascal DOS jaman dulu (klo ga salah seingat ane waktu masih kuliah dulu). Linux dan open source itu menyenangkan

Untuk artikel bisa dicek di http://blog-si-gembel.blogspot.com/2012/10/program-gaji-karyawan.html karena ane ambil script contohnya di sana.😀

Pemakaian IDE Geany sangat tepat untuk dikenalkan ke teman2 mahasiswa, khususnya yang mengambil mata kuliah pemrograman Pascal, C, Java, meski ID open source lainnya juga banyak (misal Java dengan Eclipse dan Netbeans yang juga open source dan ada di semua distro linux).

Untuk script dari link contoh di atas sebagai berikut :
Program Gaji_Karyawan;
uses crt;

var
nama, alm : string;
gapok, tot, tun : real;
gol, stt : char;
status, naik : boolean;

begin
clrscr;
write('Masukkan Nama : '); readln(nama);
write('Masukkan Alamat : '); readln(alm);

repeat
write('Masukkan Status [ M/T/D/J ] : '); readln(stt);
if (stt = 'M') or (stt = 'm') or
(stt = 'T') or (stt = 't') or
(stt = 'D') or (stt = 'd') or
(stt = 'J') or (stt ='j') then
naik := true
else
naik := false;
until naik = true;

repeat
write('Masukkan Golongan [ A/B ] : '); readln(gol);

if (gol='A') or (gol='a') or (gol='B') or (gol='b') then
status:= true
else
status:= false;

until status = true;

if (gol = 'A') or (gol = 'a') then
gapok := 500000
else
if (gol = 'B') or (gol = 'b') then
gapok := 1000000;

if (stt = 'm') or (stt = 'M') then
tun := 0.1 * gapok
else
if (stt = 'tm') or (stt = 'TM') and
(stt = 'D') or (stt = 'd') and
(stt = 'J') or (stt ='j') then
tun := 0;

tot := gapok + tun;

writeln;
writeln('======================================');
writeln('Nama : ',nama);
writeln('Alamat : ',alm);
writeln('Status : ',stt);
writeln('Gaji Pokok : ',gapok:0:0);
writeln('Gaji Total : ',tot:0:0);
readln;
end.

Berikut beberapa capture instalasi dan penggunaannya (contohnya di linux IGOS Nusantara, namun bisa di semua distro linux) :

Geany di Linux untuk pemrograman Pascal, C, Java

Geany di Linux untuk pemrograman Pascal, C, Java

Geany di Linux untuk pemrograman Pascal, C, Java

Geany di Linux untuk pemrograman Pascal, C, Java

Geany di Linux untuk pemrograman Pascal, C, Java

Geany di Linux untuk pemrograman Pascal, C, Java

Geany di Linux untuk pemrograman Pascal, C, Java

Geany di Linux untuk pemrograman Pascal, C, Java

Geany di Linux untuk pemrograman Pascal, C, Java

Geany di Linux untuk pemrograman Pascal, C, Java

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s