• Program Discount Penjualan.


Program ini program penjualan dimana jika jumlah penjualan lebih dari Rp. 65.000 mendapatkan diskon sebesar 10%. Berikut listing programnya :

Program Discount;
Uses wincrt;
Var
Nama:string;
Jumlah, Diskon, Bayar:real;
Begin
writeln('Program Discount');
writeln('Dodik Sriyanto(S1) STMIK Tasikmalaya');
writeln('==================================');
repeat
writeln(' ');
write('Masukkan Nama Anda : ');
readln(Nama);
write('Masukkan Jumlah Pembelian = Rp ');
readln(Jumlah);
Diskon := 0;
if Jumlah>65000 then Diskon := Jumlah*0.1;
Bayar := Jumlah-Diskon;
writeln(' ');
writeln('Jumlah Pembelian  = Rp',Jumlah:10:2);
writeln('Jumlah Discount   = Rp',Diskon:10:2);
writeln('==================================');
writeln('Jumlah Pembayaran = Rp',Bayar:10:2);
writeln('Terima Kasih ',Nama);
until keypressed;
readln;
End.
  • Program Gaji Karyawan

Program ini di buat untuk keperluan penggajian Pegawai / Karyawan dengan ketentuan Gaji pokok + Tunjangan – Ppn 10%. Berikut listing  programnya :

Uses wincrt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,Total,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.2* gaji;
     End
Else If  (jabatan='Manager') or (jabatan='manager') then
     Begin
 Gaji:=2000000;
 Tunj:=0.2* gaji;
     End
Else If  (jabatan='Karyawan') or (jabatan='karyawan') then
     Begin
 Gaji:=1000000;
 Tunj:=0.2* gaji;
     End
Else
     Begin
 Gaji:=800000;
 Tunj:=0.2* 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+Tunj-ppn;
Writeln('Total Gaji         : Rp.',total:9:2);
Readln;
  • Program Penghitung Luas Segitiga.

Program ini bertujuan untuk menghitung luas segitiga dengan memasukan nilai Alas dan Tingginya. Berikut listing programnya :

program luas;
uses wincrt;
var
a,t: integer;
L: real;
begin
clrscr;
write('Masukan Nilai Alas: ');
readln (a);
write('Masukan Nilai Tinggi: ');
readln(t);
writeln(' ');
L:=(a*t)/2;
writeln('Luas Segitiga adalah =',L:6:2);
readln;
end.
  • Program Kalkulator Sederhana.

Program ini sebagai kalkulator sederhana dengan memasukan nilai angka ke 1 dan ke 2 serta pilihan operator nya. Berikut listing programnya :
uses wincrt;
var x,y,hasil:real;
jawab:char;
begin

 write ('masukan angka ke-1 = ');readln (x);
write ('pilih operator= (+)/(-)/(*)/(/) = ');
readln (jawab);
 write ('masukan angka ke-2 = ');readln (y);
 if ( jawab= '+') then
 begin
hasil:= x+y
end;

if ( jawab = '-') then
begin
hasil:= x-y
 end;

if ( jawab = '*') then
begin
 hasil:= x*y

end;
if (jawab='/') then
begin
hasil:= x/y
end;

write ('hasilnya: ',(hasil):5:2);
end.
  • Program Penghitung Luas Persegi Panjang.
Program ini untuk menghitung luas dari sebuah persegi panjang dengan memasukan nilai panjang dan pendeknya. Berikut listing programnya :

Program Luas_Persegi_Panjang;

uses wincrt;

var
panjang, lebar, luas : real;

begin                                           
write ('Masukkan panjang? '); readln (panjang);
write ('Masukkan lebar? ')  ; readln (lebar);
luas := panjang*lebar;
writeln;
writeln ('Luas segiempat = ', luas:5:2, ' satuan luas');

end.