Program pascal Array mahasiswa

By Masprastyo

Saturday, June 29, 2013

Bismillah,

oke, alhamdulillah sekarang gw ingin share program pascal yang menggunakan array. program ini memiliki fasilitas untuk menyimpan nama, nim, dan nilai mahasiswa. kemudian program sendiri akan menghitungkan dan menampilkan nilai terendah, nilai tertinggi, dan nilai rata-rata. mau tau kodingnya..
cekidot.

uses crt;
var
        a,i:integer;
        total,tinggi,rendah,rata:real;
        Nilai:array[1..10] of integer;
        Nim,Nama:array[1..10] of string;
begin
clrscr;
        total:=0;
        writeln;
        write('Berapa data : '); readln(i);
        for a:=1 to i do
        begin
                writeln('Mahasiswa ke : ',a);
                write('Nama  : ');  readln(nama[a]);
                write('Nim   : ');   readln(nim[a]);
                write('Nilai : ');   readln(nilai[a]);
                total:=total +(nilai[a]);
                if a=1 then begin
                tinggi:=(nilai[a]);
                rendah:=(nilai[a]);
                end else
                if (nilai[a])>tinggi then
                tinggi:=(nilai[a])
                else
                if (nilai[a])<rendah  then rendah:=(nilai[a]);
                writeln;
        end;
        rata:=total/10;

        writeln;
        writeln('nilai terendah :',rendah:1:2);
        writeln('nilai tertinggi :',tinggi:1:2);
        writeln('Nilai rata - rata : ',rata:4:2);
        readln;
end. 

kalo mau donlot file .pasnya bisa (DISINI)
gw menggunakannya di program pascal dan ini outputnya :

Share :

Facebook Twitter Google+