Contoh Program Inputan (Array) Dalam Pascal

Program Input_nilai_mhs;

Uses WinCrt;

Const

garis='----------------------------------------------------------';

Var

nil1,nil2 : Array [1..10] Of 0..100; {Array dgn Type subjangkauan}

nim : Array [1..10] Of String [8];

nama : Array [1..10] Of String [50];

n,i,bar : Integer;

jum : Real;

tl : Char;

Begin

  ClrScr;

  { pemasukan data dalam array }

  Writeln ('Maximize dulu windows anda,');

  Writeln ('untuk mendapat hasil yang maksimal!!!');

  Write ('Berapa Data Mahasiswa yang aka diinput :');

  Readln (n);

  For i:= 1 To n Do

  Begin

    ClrScr;

    GotoXY(30,4+1); Write('Data Ke-:',i:2);

    GotoXY(10,5+i); Write('NIM :'); Readln(nim[i]);

    GotoXY(10,6+i); Write('Nama :'); Readln(nama[i]);

    GotoXY(10,7+i); Write('Nilai 1 :'); Readln(nil1[i]);

    GotoXY(10,8+i); Write('Nilai 2 :'); Readln(nil2[i]);

  End;

  { proses data dalam array }

  ClrScr;

  GotoXY(5,4); Write(Garis);

  GotoXY(5,5); Write ('No');

  GotoXY(9,5); Write ('NIM');

  GotoXY(18,5); Write ('Nama');

  GotoXY(38,5); Write ('Nilai 1');

  GotoXY(45,5); Write ('Nilai 2');

  GotoXY(52,5); Write ('Rata');

  GotoXY(59,5); Write ('Abjad');

  GotoXY(5,6); Write (Garis);

  { proses Cetak isi array dan seleksi kondisi }

  bar := 7;

  For i:= 1 To n Do

  Begin

    jum:=(nil1[i]+nil2[i])/2;

    If jum>= 90 Then tl:='A'

    Else

      If jum>80 Then tl:='B'

    Else

      If jum>60 then tl:='C'

    Else

      If jum >50 Then tl:='D'

    Else

      tl:='E';

    { cetak hasil yang disimpan di array dan hasil }

    { penyeleksian kondisi }

    GotoXY(5,bar); Writeln(i:2);

    GotoXY(9,bar); Writeln (NIM[i]);

    GotoXY(18,bar); Writeln (NAMA[i]);

    GotoXY(38,bar); Writeln (NIL1[i]:4);

    GotoXY(45,bar); Writeln (NIL2[i]:4);

    GotoXY(52,bar); Writeln (jum:5:1);

    GotoXY(59,bar); Writeln (tl);

    bar:=bar+1;

  End;

  GotoXY(5,bar+1);Writeln(garis);

  Readln;

End.