Program Input Nilai Menggunakan Array Dimensi Dua di Free Pascal

Assalamu Alakikum Wr. Wb. Pada malam hari ini saya akan posting lagi dengan program baru yaitu saya menggunakan Free Pascal yang mana Free Pascal ini berjalan di windows 64 bit. Program yang saya posting malan ini adalah "Program Input Nilai Menggunakan Array Dimensi Dua".  (Baca Juga: Cara Menjaga Ketahanan Battery Laptop).

Berikut Listingnya:

program daftar_nilai;
uses crt;
var
    i,n:integer;
    DataMHS:array[1..10,1..5] of string;
    Nilai : array[1..50] of integer;
    jawaban:char;
Begin
repeat
clrscr;
writeln;
write ('BANYAK DATA Maks:10 : '); readln (n);
writeln;
        for i:=1 to n do
        begin
        write('NAMA MAHASISWA         :');readln(DataMHS[i,1]);
        write('Masukkan NPM Mahasiswa :');readln(DataMHS[i,2]);
        write('Masukkan Matakuliah    :');readln(DataMHS[i,3]);
        write('Masukkan Nilai         :');readln(Nilai[i]);
writeln;
end;
          for i:=1 to n do
          begin
          if (Nilai[i]>=91) and (Nilai[i]<=100) then DataMHS[i,4]:='A';
          if (Nilai[i]>=70) and (Nilai[i]<=90)  then DataMHS[i,4]:='B';
          if (Nilai[i]>=60) and (Nilai[i]<=69)  then DataMHS[i,4]:='C';
          if (Nilai[i]>=46) and (Nilai[i]<=59)  then DataMHS[i,4]:='D';
          if (Nilai[i]>=0)  and (Nilai[i]<=45)  then DataMHS[i,4]:='E';
          end;

          for i:=1 to n do
          begin
          if DataMHS[i,4]='A' then DataMHS[i,5]:='Istimewa';
          if DataMHS[i,4]='B' then DataMHS[i,5]:='Memuaskan';
          if DataMHS[i,4]='C' then DataMHS[i,5]:='Cukup';
          if DataMHS[i,4]='D' then DataMHS[i,5]:='Kurang';
          if DataMHS[i,4]='E' then DataMHS[i,5]:='Sangat Kurang';
          end;
clrscr;
writeln('                                            DAFTAR NILAI MAHASISWA                                    ') ;
writeln('|=======================================================================================================|');
writeln('|  No. |    NAMA      |        NPM       |        MATKUL    |    NILAI   |   ABJAD   |    KETERANGAN    |');
writeln('|=======================================================================================================|');
for i:=1 to n do
begin
writeln('|',i:3,DataMHS[i,1]:15,DataMHS[i,2]:19,DataMHS[i,3]:15,Nilai[i]:15,DataMHS[i,4]:12,DataMHS[i,5]:23,' |');
end;
writeln('|=======================================================================================================|');
writeln;
write('C O B A  L A G I [Y/T]? :  ');readln(jawaban);
until upcase( jawaban )<>'Y';

end.

Sekian dari Semoga Bermamfaat mohon like dan sharenya, dan juga kunjugannya kembali. OK

Read More