Membuat record dengan Pascal

Program record ini digunakan untuk menginput data dengan menggunakan tipe data array. Yaitu tipe data yang terstruktur yang mempunyai tipe sama. Tipe data array mempunyai jumlah komponen yang banyaknya tetap.

uses crt;

type

      mhs = record

      nama : string[20];

      kelas : string[5];

      mid : integer;

      fin : integer;

      nilai : real;

     end;

var

    mahasiswa : array[1..5] of mhs;

    i, n : integer;

begin

      clrscr;

      write('BAnyaknya Data: ');

       readln(n);

for i := 1 to n do

begin

      clrscr;

      write('Nama Anda: ');

      readln(mahasiswa[i].nama);

      write('Kelas Anda: ');

      readln(mahasiswa[i].kelas);

      write('NIlai UTS Anda: ');

      readln(mahasiswa[i].mid);

      write('Nilai UAS Anda: ');

      readln(mahasiswa[i].fin);

      mahasiswa[i].nilai := (mahasiswa[i].mid + mahasiswa[i].fin) div 2;

      end;

      clrscr;

     

for i:= 1 to n do

begin

      writeln('Halo ',mahasiswa[i].nama,' Kamu berada di Kelas: ',mahasiswa[i].kelas);

      writeln('Nilai Anda Adalah ',mahasiswa[i].nilai :3:2);

      readln;

      end;

end.

Ini dia outputnya :

Jumlah data yang dimasukkan dan salah satu contoh proses penginputan nama, kelas dan nilai.

Maka, data yang tercetak :