Contoh Soal

Contoh Penghitungan Gaji 

Ketentuan Soal :
1. Nama Di input 
2. Jabatan di input , 
Jabatan        Gaji       Tunjangan
Direktur       3000000    10 % dari gaji
Manager        2000000    5% dari gaji
Karyawan       1000000    2% dari gaji
OB             800000     1% dari gaji

3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn

Jawabannya:

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan     : ‘); readln(nama);
Write(‘Masukkan Jabatan  : ‘); readln(jabatan);
If  (jabatan=’Direktur’) or (jabatan=’direktur’) then
     Begin
 Gaji:=3000000;
 Tunj:=0.1* gaji;
     End
Else If  (jabatan=’Manager’) or (jabatan=’manager’) then
     Begin
 Gaji:=2000000;
 Tunj:=0.05* gaji;
     End
Else If  (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
     Begin
 Gaji:=1000000;
 Tunj:=0.1* gaji;
     End
Else 
     Begin
 Gaji:=800000;
 Tunj:=0.1* gaji;
     End;
Writeln(‘Gaji Bersih      : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan      : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 %      :  Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji   :  Rp.‘,total:9:2);
Readln;
End. 

Fungsi Dalam Pascal

1. Pengertian Fungsi

Pengertian secara umum mengenai fungsi adalah merupakan sebuah penggalan program yang terpisah dari program utama dan berfungsi sebagai sebuah program bagian dari program utama. Penulisan fungsi diawali dengan kata cadangan function dan dideklarasikan dalam bagian deklarasi fungsi. Dan penulisan program fungsi ditempatkan pada program utama. Satu ha yang perlu diperhatikan dalam penulisan fungsi adalah harus diikuti dengan tipe datanya.

Bentuk Umum penulisan Fungsi

Fuction indentifier(daftar-parameter) : type;

Contoh

Function hitung(var a,b : real) :real;

Penulisan blok fungsi diawali dengan kata cadangan begin dan diakhiri dengan end;.

2. Fungsi Tunggal

Fungsi tunggal merupakan suatu fungsi dimana proses pemanggilan dirinya sendiri tanpa melalui fungsi yang lain atau fungsi yang tidak terdapat dalam fungsi yang lain.

Listing Program Dengan Fungsi

function hitung(var a,b : integer): integer;
begin
hitung := a+b;
end;
 

Rumus Kalkulator Empat Proses ( + - x :)

Ini rumus kalkulator sederhana :D

var
b1, b2,i, operasi :integer;
hasil : real;

begin
write ('bilangan 1 = ');
read (b1);
write ('bilangan 2 = ');
read (b2);
write ('operasi = 1(+) 2(-) 3(/) 4(*) 5(^)');
read (operasi);
hasil:=1;

if (operasi = 1) then
hasil := b1+b2
else if (operasi = 2) then
hasil := b1-b2
else if (operasi = 3) then
hasil := b1/b2
else if (operasi = 4) then
hasil := b1*b2
else if (operasi = 5) then
for i:= 1 to b2 do
begin
hasil := hasil*b1;
end;
write ('hasilnya = ', hasil :7:2);
end.

Struktur Command Pascal

1. Bagian Judul Program
2. Blok Program
a. Bagian Deklarasi
– Deklarasi tipe data (TYPE)
– Deklarasi variabel (VAR)
– Deklarasi konstanta (CONST)
– Deklarasi label (LABEL)
– Deklarasi sub-program (PROCEDURE dan FUNCTION)
b. Bagian Program Utama Perintah-perintah atau Pernyataan
Struktur Program Pascal Paling Sederhana :
  begin
  statement-statement;
  end.

Contoh Program Sederhana
begin
writeln(‘Saya sedang belajar Pascal’);
writeln(‘————————–’)
end.

Under Creative Commons License: Attribution Share Alike

Sejarah Pascal

Pascal merupakan pengembangan dari bahasa ALGOL 60, bahasa pemrograman untuk sains komputasi. Tahun 1960, beberapa ahli komputer bekerja untuk mengembangkan bahasa ALGOL, salah satunya adalah Dr. Niklaus Wirth dari Swiss Federal Institute of Technology (ETH-Zurich), yang merupakan anggota grup yang membuat ALGOL. Tahun 1971, dia menerbitkan suatu spesifikasi untuk highly-structured language (bahasa tinggi yang terstruktur) yang menyerupai ALGOL. Dia menamainya dengan PASCAL (dari nama Blaise Pascal, ahli matematika&philosophi terkenal abad 17 dari Perancis). Pascal bersifat data oriented, yaitu programmer diberi keleluasaan untuk mendefinisikan data sendiri. Pascal juga merupakan teaching language (banyak dipakai untuk pengajaran tentang konsep pemrograman). Kelebihan yang lain adalah penulisan kode Pascal yang luwes, tidak seperti misalnya FORTRAN, yang memerlukan programmer untuk menulis kode dengan format tertentu.

Under Creative Commons License: Attribution Share Alike