Program Bil Biner Pascal

program bilangan_biner;
uses crt;
var
d,a,b:real;
begin
clrscr;
writeln('Program Mengubah Bilangan Desimal Ke Biner');
writeln('==========================================');
writeln;
write('Masukan Bilangan Desimal = ');
readln(d);
a:=d-trunc(d);
if (a>0.5) then
begin
b:=(d-a)+1;
writeln('Merupakan Pembulatan Keatas');
writeln('Bilangan Biner = ',b:5:0);
end
else
begin
b:=d-a;
writeln('Merupakan Pembulatan Kebawah');
writeln('Bilangan Biner = ',b:5:0);
end;
readln;
end.

Program Bintang Bahasa Pascal

program bintang;
uses crt;
var
baris,kolom,jumbar:integer;
begin
clrscr;
writeln('program bintang');
write('jumlah baris=');readln(jumbar);
baris:=1;
while baris <= jumbar do
begin
write('*': jumbar +1-baris);
kolom:=2;
while kolom <=(2*baris-1)do
begin
write('*');
kolom:=kolom+1;
end;
writeln;
baris:=baris+1;
end;
readln;
end.

Program Hitung gaji karyawan

program penggajian;

uses crt;
var
status,gol:string;
anak:byte;
gj_pkk,pph1,ta,gaji:longint;
total:real;
begin
clrscr;
writeln('program hal 30 no 7');
write('Masukkan Golongan :');readln(gol);
write('Masukkan Status :');readln(status);
write('Masukkan Jumlah anak:');readln(anak);
begin
if gol='I' then
gj_pkk:=150000
else
if gol='II' then
gj_pkk:=200000
else
gj_pkk:=300000;
begin
if status='K0'then
pph1:=360000
else
if status='K1' then
pph1:=480000
else
if status='K2' then
pph1:=600000
else
if status='K3' then
pph1:=720000
else
pph1:=240000;
begin
if anak=1 then
ta:=10000
else
if anak=2 then
ta:=20000
else
if anak=3 then
ta:=30000
else
if anak>3 then
ta:=40000
else
ta:=0;

gaji:=ta + gj_pkk +pph1;
begin
if gaji>25000000 then
total:=gaji*0.35
else
if gaji<10000000 then
total:=gaji*(10/100)
else
total:=gaji*(25/100);

write('gaji yang diterima :',gaji-total:6:2);
end;
end;
end;
end;
readln;
end.