dasar pemrograman pascal

Contoh – contoh kode dan tampilan bahasa pemrograman turbo pascal

1.Discount

uses crt;
var
pelanggan : string;
jml_belanja: real;
pelanggan1:real;
pelanggan2: real;
begin
write (‘P = pelanggan, BP = bukan pelanggan)=’);
readln (pelanggan);
write (‘Jumlah Belanja :Rp’);
readln (jml_belanja);
pelanggan1 := 20/100*jml_belanja;
pelanggan2 := 10/100*jml_belanja;
if pelanggan = ‘P’ then
begin
write (‘Mendapakan Discount :Rp’);
if jml_belanja>100000 then
writeln (pelanggan1:5:2);
if jml_belanja<=100000 then
writeln (pelanggan2:5:2);
end
else
writeln ('Tidak Dapat Discount');
readln;
end.

pwersuplay

2. Rincian Gaji Pegawai

uses crt;
var
nama:string;
alamat:string;
umur:string;
gaji_pokok:real;
status:char;
jmlh_anak:byte;
tunjangan_menikah:real;
tunjangan_anak1:real;
tunjangan_anak2:real;
bsar_tunjangan_anak1:real;
bsar_tunjangan_anak2:real;
tunjangan_anaktotal:real;
gaji_bersih:real;
begin
write(‘Masukan Nama :’);readln(nama);
write(‘Masukan Alamat :’);readln(alamat);
write(‘Masukan Umur :’);readln(umur);
write(‘Masukan gaji pokok : ‘); readln(gaji_pokok);
write(‘Masukan status pegawai (D/S):’);readln(status);
if status = ‘D’ then
begin
write (‘Masukan jumlah anak:’);readln(jmlh_anak);
tunjangan_menikah:=5/100*gaji_pokok;
tunjangan_anak1:=2/100*gaji_pokok;
tunjangan_anak2:=3/100*gaji_pokok;
if jmlh_anak>3 then
begin
bsar_tunjangan_anak2:=tunjangan_anak2*(jmlh_anak-3);
bsar_tunjangan_anak1:=tunjangan_anak1*3;
end
else
begin
bsar_tunjangan_anak2:=0;
bsar_tunjangan_anak1:=tunjangan_anak1*jmlh_anak;
end;
end
else
begin
jmlh_anak:=0;
tunjangan_menikah:=0;
bsar_tunjangan_anak1:=0;
bsar_tunjangan_anak2:=0;
end;
tunjangan_anaktotal:=bsar_tunjangan_anak1+bsar_tunjangan_anak2;
gaji_bersih:=gaji_pokok+tunjangan_anaktotal+tunjangan_menikah;

writeln(‘ RINCIAN GAJI PEGAWAI ‘);
writeln(‘=====================================’);
writeln;
writeln(‘Nama : ‘,nama);
writeln(‘Alamat : ‘,alamat);
writeln(‘No Tlpn : ‘,umur);
if status=’D’ then
writeln(‘status Pegawai : Menikah’)
else
writeln(‘Jumlah Anak : ‘,jmlh_anak);
writeln;
writeln(‘Gaji Pokok : Rp. ‘,gaji_pokok:10:0);
writeln(‘Tunjangan Istri/Suami: Rp. ‘,tunjangan_menikah:10:0);
writeln(‘Tunjangan Anak : Rp. ‘,tunjangan_anaktotal:10:0);
writeln(‘ _________________________’);
writeln(‘Gaji Bersih : Rp. ‘,gaji_bersih:10:0);
readln
end.

pwersuplay

3. Akar

uses crt;
var
keterangan:string;
a,b,c,D:integer;
x1,x2:real;
begin
write(‘Masukan Nilai A=’);readln(a);
write(‘Masukan Nilai B=’);readln(b);
write(‘Masukan Nilai C=’);readln(c);
D:=(sqr(b)-(4*a*c));
if D>0 then
begin
keterangan:=’Ada dua akar real’;
x1:=(-b+(sqr(D)))/(2*a);
x2:=(-b-(sqr(D)))/(2*a);
writeln(‘x1=’,x1:2:0);
writeln(‘x2=’,x2:2:0);
end
else
if D=0 then
begin
keterangan:=’Ada satu akar real’;
x1:=(-b+(sqr(D)))/(2*a);
x2:=(-b-(sqr(D)))/(2*a);
writeln(‘x1=’,x1:2:0);
writeln(‘x2=’,x2:2:0);
end
else
keterangan:=’tidak ada akar real’;
writeln(‘keterangan:’,keterangan);readln;
end.

pwersuplay

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s