Program Kasir Sederhana

uses crt;
var
f:string;
a:longint;
b:longint;
c:longint;
d:real;
e:real;
begin
clrscr;
writeln('masukkan namabarang=');readln(f);
write('masukkan jumlah barang=');readln(a);
write('masukkan harga barang=');readln(b);
c:=a*b;
writeln('total=',c);
if a>=50 then
d:= (c*10)/100;
writeln('discon=',d);
if a>=100 then
d:= (c*15)/100;
writeln('discon=',d);
e:= c-d;
writeln('anda harus membayar =',e);
readln;
end.

Program Kasir Sederhana (2)

uses crt;
var
NB:string;
HB:longint;
JB:integer;
TB:longint;
begin
clrscr;
write('Masukkan Nama Barang :');readln(NB);
Writeln('Masukkan Harga Barang :');readln(HB);
writeln('Masukkan Total barang :');readln(JB);
TB:=(HB*JB);
writeln('Total Bayar :',TB);
readln;
end.

Konversi bilangan Desimal Ke Biner

USES CRT;
VAR Des:integer;
Bin:string;
begin
clrscr;
writeln('PROGRAM KONVERSI MENGUBAH BILANGAN DECIMAL KE BINER');
write('Masukkan bilangan Decimal=');
readln(Des);
Bin:=’’;
repeat
begin

{menghitung biner dari hasil bagi}

If Des mod 2=0 then Bin:='0'+Bin
else Bin:='1'+Bin;

{membagi bulat bilangan desimal}

Des:= Des div 2;
end;
Until Des=0;
Writeln('Bilangan Biner =',Bin);
readln;
end.

Program Pencari Biaya Dan Grade

uses crt;
var
nilai:byte;
begin
clrscr;
Write('masukkan Nilai anda =');Readln(nilai);

if nilai>0 then
begin
Writeln('GRADE = O ');
Writeln('Besar biaya = Rp.550000');
end
else

if nilai<=1 then begin Writeln('GRADE = E '); Writeln('Besar biaya = Rp.450000'); end else if nilai<=40 then begin Writeln('GRADE = D'); Writeln('Besar biaya = Rp.350000'); end else if nilai<=60 then begin Writeln('GRADE = C'); Writeln('Besar biaya = Rp.250000'); end Else if nilai<=70 then begin Writeln('GRADE = B'); Writeln('Besar biaya = Rp.150000'); end else begin If nilai >=100 then
Writeln('GRADE = A');
Writeln('Besar biaya = Rp.50000');
end;
readln;
end.

Contoh Case Of Pascal

Contoh Case …Of perhitungan berat dan harga barang


Ketentuan soal :
1. Kualitas Barang di masukkan
Kualitas Harga Per Kg
A/a 1000
B/b 750
C/c 500

Uses crt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg berat yang di beli : ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.

Contoh Program Pascal If Perhitungan Gaji

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan : ‘); readln(nama);
Write(‘Masukkan Jabatan : ‘); readln(jabatan);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln(‘Gaji Bersih : Rp.‘,gaji);
Writeln(‘Tunjangan 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.

Program Penghitung Luas segitiga

uses crt;
var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);
var
luas:real;
begin
clrscr;
luas:=a*t/2;
writeln('Luas segitiga =',luas);
end;
begin
writeln('Masukkan alas =');readln(alas);
writeln('Masukkan tinggi =');readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.