MEMBUAT ARRAY DAN RECORD

TUGAS PEMROGRAMAN DASAR

1.Buatlah tampilan seperti dibawah ini:

Dengan komponen objek:
a.Edit.text
b.Tbotton
c.Memo
d.Mainmemu
e.Panel
f.Label
g.XP Manifest



2.Setelah membuat tampilan seperti gambar diatas,isikan Script pada tombol Proses seperti berikut:
type nilai_mhs= record
nim:LongInt;
nama:String;
nilai:integer;
end;
type mhs=array[1..10] of nilai_mhs;
var t:nilai_mhs;
n,i,nilai: integer;
nim:longint;
nama:string;

begin
n:=StrToInt(edit1.text);
i:=i+1;
for i:= 1 to n do
begin
nama:=(InputBox('nama','Nama',''));
nim:=StrToInt(InputBox('nim','NIM',''));
nilai:=StrToInt(InputBox('nilai','Nilai',''));
Memo1.Lines.Append(IntToStr(i)+#9+(nama)+#9+('')+#9+IntToStr(nim)+#9+('')+#9+IntToStr(nilai));
Memo1.ScrollBars:=ssVertical;
end;
edit1.SetFocus;
end;
3.Isikan juga scrip yang sama diatas pada main menu(Proses).
4.Isikan Script dibawah ini pada Main menu (exit)
if messageDlg('Yakin Keluar aplikasi?',mtconfirmation,[mbok,mbCancel],0)= mrOk then
application.terminate;
5.Untuk melihat hasilnya klik RUN Atau F9

Untuk download filenya klik disini.TUGAS PEMROGRAMAN DASAR.