"Contoh Program Pada Struktur Data"

Program untuk menampilkan hasil ujian mahasiswa
Type
Rec : record
stb : string [8]; ‘[…] = panjang karakter’
nama : string [30];
jurusan : string [15];
nilai : string [3];
End;
Var
Mhs : array [1..5] of rec;
Begin
Clrscr;
For i := 1 To 5 Do Begin
Writeln(‘Data ke - ’,i);
Writeln(‘Stambuk :’); readln(mhs[i].stb);
Writeln(‘Nama :’); readln(mhs[i].nama);
Writeln(‘Jurusan :’); readln(mhs[i].jurusan);
Writeln(‘Nilai :’); readln(mhs[i].nilai);
Clrscr;
End;
Writeln(‘Data Stambuk Nama Jurusan Nilai’);
Writeln(‘--------------------------------------------------------------------’);

For i := 1 To 5 Do
Writeln(i,’ ‘,mhs[i].stb,’ ‘,mhs[i].nama,’ ‘,mhs[i].jurusan,’ ‘,mhs[i].nilai);
Writeln(‘-----------------------------------------------------------------------------’);
Readkey;
End.