Contoh Program Bahasa 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 matemati kawan 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"

sumber : http://id.wikipedia.org/wiki/Pascal_%28bahasa_pemrograman%29

Pada zaman sekarang ini, mungkin dibeberapa kampus atau universitas jarang yang menggunakan bahasa pascal sebagai bahasa pemrograman. Tapi, dikampus saya, masih kok di pake. Gatau yah kenapa, tapi kita masih menggunakan bahasa pascal ini sebagai bahasa dasar untuk pemrograman. Kalo untuk fungsi dan manfaat nya sih kayaknya pascal punyai fungsi dan manfaat yang sama kok sama bahasa pemrograman yang lainnya misalnya ada bahasa C, bahasa Java dsb. 

Contoh program dalam Bahasa Pascal menggunakan Array Satu Dimensi :


uses wincrt;
type larik1=array[1..50] of string;
     larik2=array[1..50] of byte;
var nama:larik1;
    uts,uas:larik2;
    i,n,cacah,c1,c2,c3,c4,min,max,min1,max1,uts1,uas1:byte;
    nilai:real;
    jawab,ket,lagi:char;
    cari,nama1,nama2,nama3,nama4:string;

begin
writeln('Mengisi Nilai Pemograman Dasar Mahasiswa Angkatan 2012=2013');
writeln;
write('Jumlah data yg dimasukkan : ');readln(n);
writeln;
for i:=1 to n do
    begin
     write('Nama      : ');readln(nama[i]);
     write('Nilai UTS : ');readln(uts[i]);
     write('Nilai UAS : ');readln(uas[i]);
     writeln;
     end;

clrscr;
writeln('               Daftar Nilai UTS dan UAS               ');writeln;
writeln('______________________________________________________');
writeln('| No |      Nama     |  Nilai UTS |  Nilai UAS | Ket |');
writeln('|----|---------------|------------|------------|-----|');
for i:=1 to n do
begin
     nilai:=((uts[i]+uas[i])/2);
     if (nilai>=80) then ket :='A'
     else if (nilai>=60)then ket:='B'
     else if (nilai>=40)then ket:='C'
     else if (nilai>=20)then ket:='D'
     else ket:='E';

writeln('| ',i:2,' | ',nama[i]:13,' |     ',uts[i]:2,'     |     ',uas[i]:2,'     |  ',ket:1,'  |');
end;
writeln('|____|_______________|____________|____________|_____|');
writeln;

c1:=0;c2:=0;c3:=0;c4:=0;
max:=uts[1];min:=uts[1] ;
max1:=uas[1];min1:=uas[1];

for i:=2 to n do
begin
     if uts[i]>max then
     begin
          inc(c1);
          max:=uts[i];
          nama1:=nama[i];
          writeln('Nilai UTS Tertinggi = ',max,' Milik ',nama1);
     end;
    
end;
writeln('Yang Mendapat Nilai UTS Tertinggi ada ',c1,' anak');
writeln;

for i:=2 to n do
begin
     if uts[i]<min then
     begin
          inc(c2);
          min:=uts[i];
          nama2:=nama[i];
     writeln('Nilai UTS Terendah =',min,' Milik ',nama2);
     end;
end;
writeln('Yang Mendapat Nilai UTS Terendah ada ',c2,' anak');
writeln;

for i:=2 to n do
begin
if uas[i]>max1 then
   begin
        max1:=uas[i];
        nama3:=nama[i];inc(c3);
        writeln('Nilai UAS Tertinggi =',max1,' Milik ',nama3);
        end;
end;
writeln('Yang Mendapat Nilai UAS Tertinggi ada ',c3,' anak');
writeln;

for i:=2 to n do
begin
if uas[i]<min1 then
   begin
        min1:=uas[i];
        nama4:=nama[i];inc(c4);
        writeln('Nilai UAS Terendah =',min1,' Milik ',nama4);
        end;
   end;
writeln('Yang Mendapat Nilai UAS Terendah ada ',c4,' anak');writeln;

readln;
clrscr;
     repeat
     begin
     cacah:=0;
     write('Nama yang akan dicari : ');readln(cari);
     for i:=1 to n do
     begin                                   
          if (nama[i])=cari then
          begin
               uts1:=uts[i];uas1:=uas[i];inc(cacah);
               writeln('Nama ',cari,' Mempunyai Nilai UTS ',uts1,' dan Nilai UAS ',uas1);
               end;
          end;
          if cacah= 0 then
          writeln('Nama ',cari,' tidak ditemukan di Daftar Nilai')
          else writeln('Ada ',cacah,' Nama ',cari,' di Daftar Nilai');
          readln;
          write('Mau cari lagi<y/t>? ');readln(lagi);
          writeln;
     end;
     until(lagi<>'y');
clrscr;
writeln('Terima Kasih telah mencoba :)');
end.

Inputan Data

Hasil cetakkan

Pencarian nama dalam daftar nilai

Program Selesai