Friday, October 30, 2009

Contoh Aplikasi Pemrograman Pascal Bagian 3




Kucing Tekno - Pascal merupakan salah satu pemrograman desktop yang sering digunakan untuk membuat aplikasi transaksi dengan user interface yang sederhana. Pemrograman ini bisa dianggap ringan karena tanpa menggunakan desain yang kompleks seperti aplikasi pada umumnya.

Akan ada dua contoh membuat aplikasi yaitu aplikasi kombinasi IF THEN dan WHILE DO, FOR DO.


Kombinasi IF THEN & WHILE DO


program Bangun_Ruang;
uses wincrt;

const
   phi=3.14;

var
   lagi:char;
   p,l,t,a,r:real;
   pilihan:byte;
   luas:real;

begin
     lagi:='Y';
     while (lagi='Y') or (lagi='y') do

     begin
     writeln('Pilihan');
     writeln('==========================');
     writeln('1. Hitung Luas Lingkaran');
     writeln('2. Hitung Luas Segitiga');
     writeln('3. Hitung Luas Bujur Sangkar');
     writeln('0. Selesai');
     writeln('==========================');
     writeln('');

     write('Masukkan Angka Pilihan 1/2/3/0: ');readln(pilihan);

     if pilihan=1 then
  begin
     clrscr;
     writeln('');
     writeln('Menghitung Luas lingkaran');
     writeln('---------------------------');
     write('Masukkan jari-jari / r : ');readln(r);
     luas:=phi*r*r;
     Write('Luas Lingkaran= ',luas:4:2);
     readln(lagi);
  end;


     if pilihan=2 then
  begin
     clrscr;
     writeln('');
     writeln('Menghitung Luas Segitiga');
     writeln('---------------------------');
     write('Masukkan alas  : ');readln(a);
     write('Masukkan tinggi: ');readln(t);
     luas:=1/2*a*t;
     write('Luas Segitiga= ',luas:4:2);
     readln(lagi);
  end;

     if pilihan=3 then
  begin
     clrscr;
     writeln('');
     writeln('Menghitung Luas Bujur Sangkar');
     writeln('---------------------------');
     write('Masukkan panjang : ');readln(p);
     write('Masukkan lebar   : ');readln(l);
     luas:=p*l;
     Write('Luas Bujur Sangkar= ',luas:4:2);
     readln(lagi);
  end;

     if pilihan=0 then
  begin
     clrscr;
     writeln('---Selesai---');
   
  end;
     clrscr;
     writeln('');
     write('Apakah mau mencoba lagi [Y/T]?');
     readln(lagi);
  end;

     clrscr;
     write('selesai ! ');
end.





Kombinasi ARRAY & FOR DO

 

Program nama_no;
Uses winCrt;

var
 nama : Array[1..5] of string;
 nilai : Array[1..5] of integer;
 i,n:integer;
 jum,rata:real;


   
Begin
  write('Banyak Data : ');readln(n);

  {---input---}

  For i:= 1 to n Do
 begin
  write('Nama Mahasiswa  : ');readln(nama[i]);
  write('Nilai Mahasiswa : ');readln(nilai[i]);
  writeln('------------------');
 end;
  writeln;

  {---proses---}

  jum:=0;
  for i:=1 to n do
 begin
  jum:=jum+nilai[i];
  rata:=jum/n;
 end;

 {---output---}

    writeln('DATA NILAI MAHASISWA');
    writeln('========================');
    writeln('NAMA           NILAI');
    writeln('========================');

  for i:=1 to n do
  begin
    writeln(nama[i],'                 ',nilai[i]);
  end;
     writeln('------------------');
    writeln('jumlah nilai: ', jum:2:1);
    writeln('rata-rata   : ',rata:2:1);
End.