1.1 Pengertian Bahasa Pemrograman

1.1 Pengertian Bahasa Pemrograman

Jumat, 10 Januari 2014

C.Membuat 5 Contoh Program Menggunakan Turbo Pascal

1.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.

2.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;

3.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.

4.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.

5.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.