Dcyciel's Blog: Pascal

CONTOH PROGRAM DATA PASIEN 



uses wincrt;
var nama,alamat,pg_jwb,jenis,kls_kmr:string;
    by_kons,by_reg,by_kmr,by_obat,lm_inap,tobi:real;
begin
writeln('---------------RUMAH SAKIT SEJAHTERA----------------');
write('Nama Pasien                      : ');readln(nama);
write('Alamat Pasien                    : ');readln(alamat);
write('Penanggung jawab pasien          : ');readln(pg_jwb);
write('Jenis Pasien (askes/umum)        : ');readln(jenis);
write('Kelas Kamar (A/B/C/D)            : ');readln(kls_kmr);
write('Lama inap                        : ');readln(lm_inap);
if jenis=('umum') then
   by_reg:=50000 else
   by_reg:=0;
writeln ('Biaya registrasi Pasien          : Rp. ',by_reg:1:0);
by_kons:=100000;
writeln('Biaya konsultasi dokter          : Rp. ',by_kons:2:0);
if jenis=('askes') then
   if kls_kmr=('A') then
   by_kmr:=(lm_inap*400000)*50/100 else
   if kls_kmr=('B') then
   by_kmr:=(lm_inap*300000)*50/100 else
   if kls_kmr=('C') then
   by_kmr:=(lm_inap*200000)*50/100 else
   by_kmr:=(lm_inap*100000)*50/100;
if jenis=('umum') then
   if kls_kmr=('A') then
   by_kmr:=(lm_inap*400000) else
   if kls_kmr=('B') then
   by_kmr:=(lm_inap*300000) else
   if kls_kmr=('C') then
   by_kmr:=(lm_inap*200000) else
   by_kmr:=(lm_inap*100000);
writeln('Biaya kamar                      : Rp. ',by_kmr:2:0);
write('Biaya obat                       : Rp. ');readln(by_obat);
tobi:=by_reg+by_kons+by_kmr+by_obat;
writeln('Total biaya pasien               : Rp. ',tobi:2:0);
Writeln('');
write('Jadi pasien yang bernama ',nama);
write(' yang beralamat di ',alamat);
writeln(' masuk ke dalam golongan ',jenis);
write('Pasien ini menginap selama ',lm_inap:1:0); write(' hari ');
writeln(' di kamar ',kls_kmr);
write('Dan adapun total biaya pasien selama rawat inap disini yaitu Rp. ',tobi:2:0); 
end.

 Tampilan Program




CONTOH PROGRAM KELULUSAN



Uses Wincrt;
     var n_uts,n_uas,n_quis,n_tugas,j_hadir:integer;
     rata,n_hadir:real;
     nama:string[15];
Begin
     Writeln('      NILAI RATA-RATA MAHASISWA     ');
     Writeln('       UNIVERSITAS BANTEN JAYA      ');
     writeln('      Tahun Ajaran 2011/2012       ');
     writeln(' ===================================');
     write(' Nama            = ');readln(nama);
     write(' NPM             = ');readln;
     Write(' Nilai UTS       = ');readln(n_uts);
     write(' Nilai Uas       = ');readln(n_uas);
     write(' Nilai Quis      = ');readln(n_quis);
     write(' Nilai tugas     = ');readln(n_tugas);
     write(' Jumlah Hadir    = ');readln(j_hadir);
     n_hadir:=(j_hadir/14)*100;
     writeln(' Nilai hadir     = ',n_hadir:2:2);
     Writeln (' ===================================');
     rata:=(n_uts+n_uas+n_quis+n_tugas+n_hadir)/5;
     writeln(' nilai rata-rata = ',rata:2:2);
     writeln('  ');
     writeln(' *****************************************************************');
     if rata>=60 then
     writeln(' * Selamat ',nama,' anda "LULUS" pertahankan prestasi anda *')  Else
     writeln(' *         Mohon Maaf ',nama,' anda "TIDAK LULUS"          *');
     writeln(' *****************************************************************');
End.

Tampilan Program

Contoh LULUS dan TIDAK LULUS






  

CONTOH PROGRAM BIAYA HOTEL

Uses wincrt;
var hk,jb,h,hrg,pot:real;
begin
     hk:=75000;
     write('jumlah hari menginap = ');readln(h);
     hrg:=hk*h;
     If hrg>300000 then
     begin
     pot:=hrg*5/100;
     Writeln('Jumlah Potongan yang di dapat sebesar Rp.',pot:2:2);
     end
     else
     begin
     pot:=0;
     Writeln('Jumlah Potongan yang di dapat sebesar Rp.',pot:2:2);
     end;
     if hrg>300000 then
     begin
     jb:=hrg-pot;
     writeln('Setelah mendapat potongan, biaya inap yang harus diayar sebesar Rp.',jb:2:2);
     end
     else
     begin
     writeln('Biaya inap yang harus dibayar sebesar Rp.',hrg:2:2);
     end;
End.

Uses Wincrt;
     Var Fahrenheit, Reamur:real;
         celcius:integer;
Begin
     Writeln('|----------------------------------|');
     Writeln('|Celcius     Fahrenheit     Reamur |');
     Writeln('|----------------------------------|');
     For celcius:=5 to 15 do
     Begin
     Fahrenheit:=celcius*1.8+32;
     Reamur:=celcius*0.8;
     Writeln('|   ',celcius,'         ',fahrenheit:2:2,'        ',Reamur:2:2);
     Writeln('|__________________________________|');          
     End;
End. 

Uses wincrt;
Var
   nim     : string[10];
   nama    : string[40];
   Ket     : string[15];
   nil_hadir,nil_quis,n_tugas,n_uts,n_uas :integer;
   rata    : real;
Begin
     clrscr;
     gotoxy(20,3);write('#=============================================#');
     gotoxy(20,4);write('#          PROSES NILAI MAHASISWA          #');
     gotoxy(20,5);write('#---------------------------------------------------------------------------#');
     gotoxy(20,6);write('#   NPM                      :                                                                   #');
     gotoxy(20,7);write('#   MAMA                  :                           #');
     gotoxy(20,8);write('#   N. KEHADIRAN   :                                                       #');
     gotoxy(20,9);write('#   N. QUIS                 :                                                       #');
     gotoxy(20,10);write('#   N. TUGAS           :                                                        #');
     gotoxy(20,11);write('#   N. UTS                 :                                                       #');
     gotoxy(20,12);write('#   N. UAS                :                                                        #');
     gotoxy(20,13);write('#---------------------------------------------------------------------------#');
     gotoxy(20,14);write('#   RATA-RATA       :                                                        #');
     gotoxy(20,15);write('#   KETERANGAN   :                                                        #');
     gotoxy(20,16);write('#=============================================#');
     gotoxy(39,6);readln(nim);
     gotoxy(39,7);readln(nama);
     gotoxy(39,8);readln(nil_hadir);
     gotoxy(39,9);readln(nil_quis);
     gotoxy(39,10);readln(n_tugas);
     gotoxy(39,11);readln(n_uts);
     gotoxy(39,12);readln(n_uas);
     rata :=(nil_hadir*0.1)+(nil_quis*0.1)+(n_tugas*0.15)+(n_uts*0.25)+(n_uas*0.4);
     if (rata>=60) then
        Ket:=('LULUS') else
        ket:=('TIDAK LULUS');
     gotoxy(39,14);write(rata:3:2);
     gotoxy(39,15);write(ket);
end.

----------------------------------------------------------- 

CONTOH PROGRAM MENCARI LUAS LINGKARAN

Uses Wincrt;

Var phi,jari:real;

luas:integer;

Begin

Write('Jari-jari lingkaran = ');readln(jari);

phi:=22/7;

luas:=phi*(jari*jari);

Write ('Nilai Luas lingkarannya adalah ',luas:1:2);

End.

Tampilan program

-----------------------------------------------------------

ASAL MUASAL PASCAL

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Kelebihan Pascal :

Kelebihan dari bahasa pemrograman Pascal adalah:

* Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string,
* User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
* Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.
* Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang.
* Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.

Bahasa PASCAL juga merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi tim nasional Olimpiade Komputer Indonesia (TOKI). Selain itu, Bahasa PASCAL masih digunakan dalam IOI (International Olympiad in Informatics).

Pascal

1 komentar: