Golongan Gaji Karyawan Dengan Free Pascal

Contoh Syntak Menentukan Golongan Gaji Karyawan Menggunakan Program Free Pascal

========================================================================

program hitung_golongan_karyawan;
uses crt;
var nama, p, alamat, g :string;
gj : longint;
begin
clrscr;
writeln('');
writeln('===========================Inputkan Data Anda==========================');
write('nama : '); readln(nama);
write('alamat : '); readln(alamat);
writeln('jenis pangkat 1.IIA 2.IIB 3.IIC 4.IID 5.IIIA 6.IIIB ');
write('masukkan pangkat anda (tekan 1/2/3/4/5/6) : '); readln(p);
writeln('masukkan pangkat anda lagi');
write('(tekan 1/2/3/4/5/6 sama seperti diatas ) : '); readln(g);
writeln('==============================================================================');

case g of
'1' :gj :=1800000;
'2' :gj :=1925000;
'3' :gj :=2025000;
'4' :gj :=2125000;
'5' :gj :=2350000;
'6' :gj :=2670000;

end;
case g of
'1' :p :=('IIA');
'2' :p :=('IIB');
'3' :P :=('IIC');
'4' :p :=('IID');
'5' :P :=('IIIA');
'6' :P :=('IIIB');
end;
writeln('');
writeln('');
writeln('');
writeln('==============================Hasil Inputan Data Anda=======================');
writeln('');
writeln('nama : ', nama);
writeln('alamat : ',alamat);
writeln('pangkat : ',p);
writeln('besar gaji : rp. ',gj);
writeln('');
writeln('==============================//////////////////////========================');
writeln(' Sri Paryanti ');
writeln(' 30/ X-11 (Multimedia 1) ');
writeln(' Pemograman Dasar ');
readln;
readkey;
end.

========================================================================

Hasil Dari Program Syntak Di Atas