PASCAL- CONTOH INPUT DATA MAHASISWA MENGGUNAKAN ARRAY

Listing Program:

program input_data;
uses crt;

type datamhs = record
     Nopokok : string[6];
     nama    : string[15];
     alamat  : string[15];
     j_sks   : integer;
end;
var mhs : array [1..100] of datamhs;

type datamk = record
     kode_mk: string[6];
     nama_mk: string[30];
     semester: string[2];
     j_sks: integer;
     nh: char;
end;
var mk : array [1..100] of datamk;
    i,j:integer;

begin
clrscr;
i:= 1;
j:= 1;
writeln('                            PROGRAM ENTRY DATA MAHASISWA');
 writeln('-------------------------------------------------------------------------------');
 write(' Input No pokok   : '); readln (mhs[i].nopokok);

 repeat
 write(' Input Nama       : '); readln(mhs[i].nama);
 write(' Input Alamat     : '); readln(mhs[i].alamat);
 write(' Input Jumlah SKS : '); readln(mhs[i].j_sks);
 writeln;

 if (mhs[i].j_sks >= 1 ) and (mhs[i].j_sks <= 22) then
  begin
     write(' Input semester   : '); readln(mk[i].semester);
   repeat
     write(' Input kode mk    : '); readln(mk[i].kode_mk);
     write(' Input nama mk    : '); readln(mk[i].nama_mk);
     write(' Input Jumlah SKS : '); readln(mk[i].j_sks);
     write(' Input Nilai Huruf: '); readln(mk[i].nh);
     writeln;
     write(' Input semester   : '); readln(mk[i].semester);
   until mk[i].semester ='x';
  end;

 if (mhs[i].j_sks < 1 ) and (mhs[i].j_sks > 22) then
    writeln(' Jumlah SKS maksimal 22');

 writeln;
 write(' Input No. Pokok  : '); readln(mhs[i].nopokok);
until mhs[i].nopokok = 'x';

 writeln('-------------------------------------------------------------------------------');
 writeln('|   No.Pokok    Nama    Alamat    Semester   kode_mk   Nama_Mk   SKS  N.Huruf |');
 writeln('-------------------------------------------------------------------------------');
 for i:= i downto 1 do
 begin
  write('|',mhs[i].nopokok: 8, mhs[i].nama:10, mhs[i].alamat:10, mhs[i].j_sks:10);
  write(mk[i].semester:8, mk[i].kode_mk:8, mk[i].nama_mk:8, mk[i].j_sks:5,mk[i].nh:5,'     |');
 end;
 readln;
end.

Jangan lupa tinggalkan pesan berupa saran dan kritik yang bermanfaat untuk blog  ini. Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama.