tugas 2 pemrograman dasar

Download Tugas saya disini !!

Skrip

procedure TForm1.Button1Click(Sender: TObject);
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;
nam:string;

begin
n:=StrToInt(edit1.text);
i:=i+1;
for i:= 1 to n do
begin
nam:=(InputBox('nama','Nama',''));
nim:=StrToInt(InputBox('nim','NIM',''));
nilai:=StrToInt(InputBox('nilai','Nilai',''));
Memo1.Lines.Append(IntToStr(i)+#9+(nam)+#9+('')+#9+IntToStr(nim)+#9+('')+#9+IntToStr(nilai));
end;
edit1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Memo1.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

end.

Read more »

Posted in: pemrograman dasar