Contoh Rumus Pascal Sederhana

Selamat malam saya akan memberikan setetes ilmu mengenai pemrograman dasar menggunakan turbo pascal langsung aja tanpa berlama-lama langsung ke rumusnya cekidot!

Program paket;                              {heading program}
uses wincrt;     
var                                                 {bagian deklarasi}
 Tujuan:string[20];
 berat:integer;
 bayar:real;
begin                                              {*bagian pernyataan*}
 clrscr;
 writeln ('                                    RPL POS                                    ');                                
 writeln ('             PROGRAM PENGIRIMAN BARANG             ');
 writeln ('-----------------------------------------------------------');
 writeln ('Akuntansi                             Rp. 3000/kg         kode: AK ');
 writeln ('Pemasaran                            Rp. 5000/kg         kode: PM  ');
 writeln ('Administrasi Perkantoran      Rp. 7000/kg          kode: AP  ');
 writeln ('Rekayasa Perangkat Lunak   Rp. 10.000/kg      kode: RPL');
 writeln;
 write ('Kode Jurusan                                            : ');readln(tujuan);
 write ('Berapa berat paket yang mau di kirim (Kg): ');readln(berat);
 begin
 if tujuan="AK' then
 bayar:=3000*berat;
 end;
 begin
 if tujuan='PM' then
 bayar:=5000*berat;
 end;
 begin
 if tujuan='AP' then
 bayar:=7000*berat;
 end;
 begin
 if tujuan='RPL' then
 bayar:=1000*berat;
 end;
 writeln ('Bayar                         : Rp.',bayar:8:0);
end.

Semoga sukses:)