1. Buka program Delphi7
2. Buat tampilan form seperti gambar di bawah
3. Double klik pada pilihan ‘FOR TO DO’ dan masukkan syntax seperti berikut:
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
memo1.Clear;
i:=strtoint(edit1.text);
for j:=1to strtoint(edit2.Text) do
begin
memo1.lines.add('ulang ke:' + inttostr(i));
i:=i+1
end;
end;
4. Double klik pada pilihan ‘FOR DOWN TO’ dan masukkan syntax seperti berikut:
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k:integer;
begin
memo1.Clear;
k:= strtoint(edit1.Text);
j:= 1;
for i:= strtoint(edit2.Text) downto j do
begin
memo1.lines.Add('ulang ke;' + '=' + inttostr(k));
k:= k-1;
j:= j+1;
end;
end;
end.
5. Syntax List
6. Run program yang sudah di buat atau klik F9
7. Output program yang telah di buat
8. Selesai
Sumber: Tugas Laporan Akhir Laboratorium Sistem Informasi universitas Gunadarma
Referensi link untuk Mahasiswa Universitas Gunadarma:
Tidak ada komentar:
Posting Komentar