PERTEMUAN TANGGAL 2 MEI 2012
SEMESTER 2D
TUGAS 4
Buat Program untuk Perpangkatan pada Delphi 7
procedure TForm1.fortodoClick(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:=' ';j:=2;
for i:=1 to 10 do
begin
b:=b+inttostr (j)+'
';
j:=j+2;
end;
label1.Caption:=b;
end;
