CONTOH PROGRAM PASCAL 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:stri nama:string[20];jabatan:str ng[20];jabatan:string; ing; Gaji:longint; Tunj,ppn,gajibersih:real; Begin Clrscr; Write(‘Nama Write(‘Nam a Karyawan : ‘); readln(nama); Write(‘Masukkan Jabatan : ‘); readln(jabatan); If (jabatan=’Direktur’) or (jabatan=’dir (jabatan=’direktur’) ektur’) then Begin Gaji:=3000000; Tunj:=0.1* gaji; End Else If (jabatan=’Man (jabatan=’Manager’) ager’) or (jabatan=’man (jabatan=’manager’) ager’) then Begin Gaji:=2000000; Tunj:=0.05* gaji; End Else If (jabatan=’Kary (jabatan=’Karyawan’) awan’) or (jabatan=’karyawan’) then Begin Gaji:=1000000; Tunj:=0.1* gaji; End Else Begin Gaji:=800000; Tunj:=0.1* gaji; End; Writeln(‘Gajii Bersih : Rp.‘,gaji); Writeln(‘Gaj Writeln(‘Tunjangan Writeln(‘Tun jangan 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.
Beberapa Contoh Program Pascal Paling Sederhana Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis
Skrip Program Pascal
Output Program
program jum_bil;
Masukkan Bilangan = 12
uses wincrt;
Masukkan Bilangan = 12
var
Masukkan Bilangan = 12
i, jum,bil: integer;
Masukkan Bilangan = 12
begin
Masukkan Bilangan = 12
jum:=0; {inisialisasi}
Jumlah Bilangan = 60
for i:=1 to 5 do begin
write(‘Masukkan Bilangan = ‘);readln(bil); jum:=jum+bil; end;
writeln(‘Jumlah Bilangan = ‘,jum); end. Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal program jum_bil2;
Output Program Banyak bilangan : 3
uses wincrt;
Masukkan Bilangan 1 = 12
var
Masukkan Bilangan 2 = 13
i, n: integer;
Masukkan Bilangan 3 = 14
jum, bil: real;
Jum = 39.00
begin
write(‘Banyak bilangan : ’);read(n); jum := 0; For i:= 1 to n do begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil); jum := jum+bil; end;
writeln(‘Jum = ‘,jum:0:2); end. Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal program contoh_3;
Output Program Masukkan nilai N = 3
uses wincrt;
Nilai N adalah= 3
var
Masukkan bilangan: 1
n, i : integer;
Masukkan bilangan: 2
rata : real;
Masukkan bilangan: 3
jum, bil : integer;
Jumlahnya adalah : 6
begin
Nilai rata-ratanya : 2.00
Write(‘Masukkan nilai N = ‘);readln(n); writeln (‘Nilai N adalah= ‘,n);writeln; for i := 1 to n do begin
write(‘Masukkan bilangan : ‘);read(bil);
jum := jum+bil; end;
rata := jum/n;writeln; writeln(‘Jumlahnya adalah : ‘,jum); writeln(‘Nilai rata-ratanya :’, rata:0:2); end. Program Menghitung Jumlah dan Banyaknya Data
Script Program Pascal program contoh4;
Output Program Pascal Masukkan nilai perulangan: 3
uses wincrt;
Bilangan 1 = 10
var
Bilangan 2 = 3
n, i,byk,jum, bil : integer;
Bilangan 3 = 25
begin
Banyak bilangan yang >= 10 : 2
Write(‘Masukkan nilai perulangan : ‘);readln(n);
Jumlah bilangan yang >= 10 : 35
Writeln; for i := 1 to n do begin
write(‘Bilangan ‘,i,’ = ‘);read(bil); if bil >= 10 then begin
byk := byk+1; jum := jum+bil ; end; end;
writeln;
writeln(‘banyak bilangan yang >= 10 : ‘,byk); writeln(‘jumlah bilangan yang >= 10 : ‘,jum); end.
jika tulisan ini kurang jelas, silakan ditanyakan atau kitabisa diskusikan bersama. Ada yang kurang? Ada yang ingin ditambahkan? sampaikan aspirasi Anda. hhe… ^^