Tugas Array Terstruktur

1. Buatlah dalam notasi algoritma atau bahasa C atau bahasa Pascal :
Definisikan sebuah type terstruktur Array untuk menyatakan data Mahasiswa disebuah Kampus.
Data Mahasiswa terdiri atas field NIM, Nama Mahasiswa, Jenjang, Prodi, dan Nilai.
Untuk setiap field definisikan type data yang cocok.

Jawab : 

{Dalam Bahasa Pascal}

Program Array_Data_Mahasiswa;

{Identifikasi Type Data}

Uses crt;

Type

Data = Record

NIM : String;

Nama : String[15];

Jenjang : String [2];

Prodi : String [5];

Nilai : Real;

End;

{Array & Variabel Type Data}

Var

Jml,X,Y : Byte;

Mahasiswa : Array[1..20] of Data;

Temp : Data;

{Input Data Mahasiswa}

Begin

Clrscr;

Write('Masukkan Jumlah Data Mahasiswa : '); Readln(Jml);

For X := 1 to Jml Do

Begin

Writeln;

With Mahasiswa[X] do

Begin

Writeln;

Write('NIM ',X,' : '); readln(NIM);

Write('Nama ',X,' : '); readln(Nama);

Write('Jenjang ',X,' : '); readln(Jenjang);

Write('Prodi ',X,' : '); readln(Prodi);

Write('Nilai ',X,' : '); readln(Nilai);

End;

End;

{Sorting Data berdasarkan NIM}

For X:=1 to Jml-1 do

For Y:=1 to Jml-X do

If Mahasiswa[X].NIM > Mahasiswa[X+1].NIM Then

Begin

Temp := Mahasiswa[Y];

Mahasiswa[Y] := Mahasiswa[Y+1];

Mahasiswa[Y+1] := Temp;

End;

{Cetak Varibel Array}

Clrscr;

Writeln(' Data Mahasiswa ');

Writeln('*===============================================================');

Writeln('* NIM * Nama Mahasiswa * Jenjang * Prodi * Nilai *');

Writeln('*==============================================================*');

For X:= 1 to Jml Do

Begin

With Mahasiswa[X] do

Writeln(NIM:12 ,Nama:10, Jenjang:19, Prodi:10, Nilai:10:1);

End;

Writeln('*--------------------------------------------------------------*');

Readln;

End.

Selamat Menikmati..