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...
