Program Menghitung Gaji Karyawan (PASCAL) dengan IF ( percabangan) program Menghitung_Gaji_Karyawan DOCX

Title	Program Menghitung Gaji Karyawan (PASCAL) dengan IF ( percabangan) program Menghitung_Gaji_Karyawan
Author	Alfi Fitriyah
Pages	2
File Size	16 KB
File Type	DOCX
Total Downloads	158
Total Views	245

Summary

Description

Program Menghitung Gaji Karyawan (PASCAL) dengan IF ( percabangan) program Menghitung_Gaji_Karyawan; uses crt; var gapok, tanak , gatot: real; n, golongan, status: integer; nama , gol : string; begin writeln ('Menghitung Gaji Karyawan'); writeln ('========================'); writeln ('Golongan : 1. III 2. IV 3. V '); writeln ('Status : 1. Menikah 2. Single '); writeln ('========================'); write ('Masukkan Nama Karyawan : '); read(nama); write ('Pilih Nomor Golongan : '); read(golongan); if (golongan = 1) then begin gapok := 2000000; gol := 'III'; end else if (golongan = 2) then begin gapok := 3000000; gol := 'IV'; end else if (golongan = 3) then begin gapok := 4000000; gol := 'V'; end else writeln('Nomor Golongan Salah'); write ('Pilih nomor Status : '); read(status); if (status = 1 ) then begin writeln ('Masukkan jumlah anak: '); read(n); if (n > 2 ) then tanak := 2 *(10/100 * gapok) else tanak := n *(10/100 * gapok); end else tanak := 0; writeln ('========================'); writeln ('Nama Karyawan : ', nama);...