Menampilkan gaji pokok dan gaji lembur menggunakan pascal

     Buat Notasi Algoritma beserta flowchartnya dari sebuah program gaji karyawan dimana data-data yang ingin ditampilkan terdiri atas Nama Karyawan (Nama), Golongan (Gol), Gaji Pokok (GPOK),Jumlah Jam kerja (JJK),Jumlah Jam Lembur(JJL=Jumlah Jam Keja efektif – 40), Upah Lembur (UL) perjam Rp. 15000 dan Total Gaji (TOTGAJI).

Catatan :

- Golongan A Gaji Pokok=500000

- Golongan B Gaji Pokok=600000

- Golongan C Gaji Pokok=700000

- Golongan D Gaji Pokok=850000 

 Algoritma :

Algoritma : Menampilkan gaji pokok dan gaji lembur
Deskripsi :

1.Masukan nama
2.Masukan golongan gaji
3.Masukan jumlah jam lembur
4.Tampilkan nama
5.Tampilkan golongan gaji
6.Tampilkan jumlah jam  kerja
7.Tampilkan jam kerja
8.Tampilkan jam lembur
9.Tampilkan gaji pokok
10.Tampilkan gaji lembur
11.Tampilkan total gaji

        
Flowchart :

Jalankan program tersebut dengan bahasa Pascal.

 

program TugasIf2;
{Pradana Choirun Naziq ;S1 - Teknik Informatika ;Stekom Siliwangi}
uses crt;
Var
Nama :String;
gpok, ul, totgaji :Real;
jjk, jk, jjl : Byte ;

gol : char ;

begin
clrscr;
        Writeln('MENAMPILKAN JUMLAH GAJI');
        Writeln('================================================');
Write('Masukan Nama Karyawan = ');ReadLn(Nama);
Write('Masukan Golongan Gaji (Kapital A - D) = ');ReadLn(gol);
Write('Masukan Jumlah Jam Kerja = ');ReadLn(jjk);

    if (gol = 'A' ) then
      gpok := 500000;
    if (gol = 'B' ) then
      gpok := 600000;
    if (gol = 'C' ) then
      gpok := 700000;
    if (gol = 'D' ) then
      gpok := 850000;
     
    if (jjk<40) then
      begin
         ul := 0;

      end
   else
    if  (jjk>40)  then
      begin
      ul := (jjk-40)*15000;
      jjl := jjk-40;
      jk := jjk-jjl;
      end;

    totgaji:=(gpok+ul);
    Writeln;
    Writeln;
    writeln('--------------------------------------------------------------');
    writeln('Nama Karyawan                              : ',nama);
    writeln('Golongan gaji                                  : ',gol);
    writeln('--------------------------------------------------------------');
    writeln('Jumlah jam kerja                             : ',jjk) ;
    writeln('Jam kerja non lembur                       : ',jk);
    writeln('Jam Lembur                                    : ',jjl);
    writeln('--------------------------------------------------------------');
    writeln('Gaji pokok                                      : ',gpok);
    writeln('Gaji lembur                                     : ',ul);
    writeln('Total gaji                                         : ',totgaji);
    writeln('--------------------------------------------------------------');
    Writeln('SEKIAN DAN TERIMA KASIH');
    Writeln('===============================================');
    Writeln('Kunjungi www.pradanaziq.com');
    Readln;
end.

Dan hasilnya seperti ini, jika sudah bisa jalan bisa ditambahkan variasi seimajinsi kalian 

Berbagi :