algoritma

Type
DataMhs = Record
NPM : String;
Nama : String;
KodeMK : String;
NamaMK : String;
SKS : Integer;
Nilai : Integer;
End;
Var
db : DataMhs;
Batas, Hit, DataFind : Integer;
Cari : String;
myData : Array[1..25] of DataMhs;

Begin
Writeln('Program Input Data Nilai Mahasiswa');
Writeln('');
Write('Banyaknya Data yang akan diinput : ');
Readln(Batas);
Writeln('');
For Hit := 1 to Batas Do
Begin
Writeln('Data ke ',Hit);
Write('NPM : ');Readln(db.NPM);
Write('Nama : ');Readln(db.Nama);
Write('Kode Mata Kuliah : ');Readln(db.KodeMK);
Write('Nama Mata Kuliah : ');Readln(db.NamaMK);
Write('Jumlah SKS : ');Readln(db.SKS);
Write('Nilai : ');Readln(db.Nilai);
Writeln('');
End;
Writeln('');
Writeln('');
Write('Masukkan Data NPM yang Anda cari : ');Readln(Cari);
DataFind := 0;
For Hit := 1 to Batas Do
Begin
If Cari = myData[Hit].NPM Then DataFind := Hit;
End;
If DataFind > 0 Then
Begin
Writeln('NPM : ',myData[DataFind].NPM);
Writeln('Nama : ',myData[DataFind].Nama);
Writeln('Kode Mata Kuliah : ',myData[DataFind].KodeMK);
Writeln('Nama Mata Kuliah : ',myData[DataFind].NamaMK);
Writeln('Jumlah SKS : ',myData[DataFind].SKS);
Writeln('Nilai : ',myData[DataFind].Nilai);
End;

If DataFind = 0 Then Writeln('Data NPM ', Cari,' tidak diketemukan');
If DataFind > 0 Then Writeln('Data NPM ', ' diketemukan');
readln;
End.