implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender:
TObject);
begin
Memo1.Clear;
b:=strtoint(edit1.Text);
c:=strtoint(edit2.Text);
For i:= b to
c do
Memo1.Lines.add(inttostr(i));
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
b:=strtoint(edit1.Text);
c:=strtoint(edit2.Text);
For i:=c
downto b do
Memo1.Lines.add(inttostr(i));
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
Memo1.Clear;
b:=strtoint(Edit1.Text);
c:=strtoint(Edit2.Text);
a :=' ' ;
while
c>=b do
begin
a :=
a+inttostr(c)+ ' ';
c := c-1
end;
Memo1.Lines.add(a);
end;
procedure
TForm1.Button4Click(Sender: TObject);
begin
Memo1.Clear;
b:=strtoint(edit1.Text);
c:=strtoint(edit2.Text);
a := ' ';
repeat
a := a
+inttostr(b)+' ';
b:=b+1
until
b>c;
Memo1.Lines.add(a)
end;
end.
Pada pertemuan kali ini kita akan
membuat pemrograman Delphi 7 dengan menggunakan kondisi perulangan. Dimana
terdapat 4 struktur perulangan yang terdapat pada Delphi 7 yaitu For to Do, For
Downto Do, While Do, dan Repeat Until.
Di dalam pemrograman kali ini kita
menggunakan dua tipe data yaitu integer dan string. Pada tipe data integer
digunakan untuk membuat variabel i, b, dan c. Sedangkan tipe data string
digunakan untuk untuk membuat variabel a.
implementation
{$R *.dfm}
var
Form1: TForm1;
var i,b,c:integer;
var
a:string;
Pada pemrograman kali ini kita
menaruh pendeklarasian tepat di bawah var Form1:Tform1; ini digunakan agar
tidak perlu pendeklarasian kembali pada blok program selanjut nya karena sangat
tidak efisien.
Pada pemrograman perulangan For to
Do pertama kita harus menuliskan sintaks Memo1.Clear; fungsi nya adalah untuk
menghapus tulisan memo 1 yang terdapat pada memo ketika menjalankan program.
Lalu kita tuliskan sintaks b:=strtoint(edit1.Text);
kita harus merubah variabel b string ke integer dengan sintaks strtoint agar pada variabel b kita anggap sebagai nilai 1
untuk memasukkan variabel b ke nilai 1 adalah dengan sintaks edit 1.Text dimana
edit1 adalah merupakan nama dari komponen edit1 sedangkan .Text fungsi nya
adalah agar dapat dibaca di dalam edit1.
Lalu kita tuliskan sintaks
c:=strtoint(edit2.Text); kita harus merubah variabel c string ke integer dengan
sintaks strtoint pada variabel c kita anggap sebagai nilai 2 untuk memasukkan
variabel c ke nilai 2 adalah dengan sintaks edit 2.Text dimana edit2 adalah
merupakan nama dari komponen edit2 sedangkan .Text fungsi nya adalah agar dapat
dibaca di dalam edit 2.
Lalu kita masuk pada sintaks
perulangan For To Do yaitu dengan bentuk umum nya adalah For <variabel
kendali>:=<nilai awal> to <nilai akhir> do dimana di program
kali ini kita dengan menuliskan sintaks
For i:= b to c do fungsi dari variabel b adalah sebagai nilai awal dari
perulangan For To Do sedangkan c adalah merupakan nilai akhir dari program For
To Do sedangkan variabel i adalah sebagai hasil dari pemroraman perulangan
variabel b dan c.
Sedangkan sintaks Memo1.Lines.add(inttostr(i));
fungsi dari sintaks Memo1.Lines.add adalah digunakan agar dari setiap hasil
diberi jarak kebawah sedangkan (inttostr(i)) adalah digunakan untuk mengubah
hasil dari variabel i yaitu integer ke string.
Lalu kita masuk ke blok program For
Downto Do pertama kita harus menuliskan sintaks begin karna pada setiap blok
program di delphi 7 harus diawali dengan sintaks begin lalu kita menuliskan
sintaks Memo1.Clear; adalah digunakan menghapus Memo1 pada saat kita
menjalankan program.
Pada pemrograman perulangan For to
Do pertama kita harus menuliskan sintaks Memo1.Clear; fungsi nya adalah untuk
menghapus tulisan memo 1 yang terdapat pada memo ketika menjalankan program.
Lalu kita tuliskan sintaks b:=strtoint(edit1.Text);
kita harus merubah variabel b string ke integer dengan sintaks strtoint pada
variabel b kita anggap sebagai nilai 1 untuk memasukkan variabel b ke nilai 1
adalah dengan sintaks edit 1.Text dimana edit1 adalah merupakan nama dari
komponen edit1 sedangkan .Text fungsi nya adalah agar dapat dibaca di dalam
edit 1.
Lalu kita tuliskan sintaks
c:=strtoint(edit2.Text); kita harus merubah variabel c string ke integer dengan
sintaks strtoint pada variabel c kita anggap sebagai nilai 2 untuk memasukkan
variabel c ke nilai 2 adalah dengan sintaks edit 2.Text dimana edit2 adalah
merupakan nama dari komponen edit2 sedangkan .Text fungsi nya adalah agar dapat
dibaca di dalam edit 2.
Lalu kita masukkan sintaks untuk
melakukan perulangan For Downto Do dengan sintaks For i:=c downto b do dimana c
adalah nilai awal dari perulangan For Downto Do sedangkan variabel b adalah di
gunakan sebagai nilai akhir dari perulangan For Downto Do, Sedankan variabel i
adalah hasil dari perulangan yang di lakukan dari nilai variabel b dan c.
Sedangkan sintaks Memo1.Lines.add(inttostr(i));
fungsi dari sintaks Memo1.Lines.add adalah digunakan agar dari setiap hasil
diberi jarak kebawah sedngkan (inttostr(i)) adalah digunakan untuk mengubah
hasil dari variabel i yaitu integer ke string. Lalu kita tuliskan sintaks end;
fungsi nya adalah sebagai akhir dari sebuah blok program.
Lalu kita masuk ke dalam blok
program While Do pertama kita harus menuliskan sintaks begin. Sintaks begin
adalah digunakan untuk memulai sebuah blok program lalu kita menuliskan
Memo1.Clear; adalah digunakan untuk menghapus kata Memo1 ketika kita akan
menjalankan program.
Lalu kita tuliskan sintaks b:=strtoint(edit1.Text);
kita harus merubah variabel b string ke integer dengan sintaks strtoint
agar pada variabel b kita anggap sebagai
nilai 1 untuk memasukkan variabel b ke nilai 1 adalah dengan sintaks edit
1.Text dimana edit1 adalah merupakan nama dari komponen edit1 sedangkan .Text
fungsi nya adalah agar dapat dibaca di dalam edit1.
Lalu kita tuliskan sintaks
c:=strtoint(edit2.Text); kita harus merubah variabel c string ke integer dengan
sintaks strtoint pada variabel c kita anggap sebagai nilai 2 untuk memasukkan
variabel c ke nilai 2 adalah dengan sintaks edit 2.Text dimana edit2 adalah
merupakan nama dari komponen edit2 sedangkan .Text fungsi nya adalah agar dapat
dibaca di dalam edit 2.
Pada perulangan While Do pertama a:=' ' ; fungsi dari sintaks ini adalah variabel a
digunakan sebagai insial karena tipe data dari variabel a ini adalah string
lalu kita tambahkan sintaks ' ' ini
digunakan agar variabel a tidak mempunyai nilai sama sekali atau dalam artian
kosong.
Bentuk umum dari perulangan While Do
adalah While <kondisi_perulangan> do dalam sintaks program While Do kali
ini adalah while c>=b do dimana c>=b adalah sebagai kondisi perulangan
dimana nilai dari variabel c lebih besar sama dengan dari c.
Lalu kita masukkan sintaks begin
kembali untuk memulai program, lalu kita masukkan sintaks a:=a+inttostr(c)+' '; fungsi ini adalah untuk menambahkan
variabel a dengan variabel c tapi sebulum kita menambahkan variabel c perlu
kita ubah dahulu variabel c dari tipe data integer ke string dengan menggunakan
sintaks inttostr(c) karena variabel a tipe data nya adalah string.
Lalu kita masukkan sintaks c:=c-1
fugsi dari sintaks ini adalah mengurangi nilai dari variabel c dikurangi satu.
Pada program kali ini akan terus melakukan looping (perulangan) sampai memenuhi
kondisi variabel c lebih dari sama dengan b maka proses looping(perulangan) nya
akan berhenti.
Lalu kita masukkan sintaks end untuk
blok program pemrosesan di While Do Lalu kita tuliskan sintaks Memo1.Lines.add(a);
fungsi dari sintaks ini adalah untuk menuliskan hasil dari angka-angka yang
terdapat pada pemrosesan sintaks a:=a+inttostr(c)+' ';.
Lalu kita masuk pada pemrograman
perulangan Repeat Until pertama kita
harus menuliskan sintaks begin lalu menuliskan sintaks Memo1.Clear; fungsi nya
adalah untuk menghapus tulisan memo 1 yang terdapat pada memo1 ketika
menjalankan program.
Lalu kita tuliskan sintaks b:=strtoint(edit1.Text);
kita harus merubah variabel b string ke integer dengan sintaks strtoint
agar pada variabel b kita anggap sebagai
nilai 1 untuk memasukkan variabel b ke nilai 1 adalah dengan sintaks edit
1.Text dimana edit1 adalah merupakan nama dari komponen edit1 sedangkan .Text
fungsi nya adalah agar dapat dibaca di dalam edit1.
Lalu kita tuliskan sintaks
c:=strtoint(edit2.Text); kita harus merubah variabel c string ke integer dengan
sintaks strtoint pada variabel c kita anggap sebagai nilai 2 untuk memasukkan
variabel c ke nilai 2 adalah dengan sintaks edit 2.Text dimana edit2 adalah
merupakan nama dari komponen edit2 sedangkan .Text fungsi nya adalah agar dapat
dibaca di dalam edit 2.
Pada perulangan Repeat Until pertama
a:=' ' ; fungsi dari sintaks ini adalah
variabel a digunakan sebagai insial karena tipe data dari variabel a ini adalah
string lalu kita tambahkan sintaks ' '
ini digunakan agar variabel a tidak mempunyai nilai sama sekali atau dalam
artian kosong.
Lalu kita masukkan sintaks
perulangan Repeat Until yaitu dimana bentuk umum nya adalah:
Repeat
.... {aksi}
Until<kondisi>;
Lalu kali ini kita menuliskan
sintaks a:=a+inttostr(b)+' '; fungsi nya
adalah untuk menambahkan variabel a dengan variabel b tapi sebulum kita
menambahkan variabel b perlu kita ubah dahulu variabel c dari tipe data integer
ke tipe data string dengan menggunakan sintaks inttostr(b) karena variabel a
tipe data nya adalah string.
Lalu kita tuliskan sintaks b:=b+1
fungsi dari sintaks ini adalah digunakan untuk menambahkan variabel b ditambah
satu. Pada blok program kali ini akan terus melakukan looping(perulangan) nya
sampai memenuhi kondisi Until. Didalam program kali ini kita menuliskan kondisi
b>c; maka pada blok program Repeat Until akan terus melakukan
looping(perulangan) sampai nilai dari variabel b lebih besar dari c.
Lalu kita tuliskan sintaks Memo1.Lines.add(a);
fungsi dari sintaks ini adalah untuk menuliskan hasil dari angka-angka yang
terdapat pada pemrosesan sintaks a:=a+inttostr(b)+' ';.
Lalu kita tuliskan sintaks End.
Sintaks ini digunakan untuk mengkahiri seluruh program Tform1.
Inilah
gambaran Flowchart blok pemrograman Repeat Until:
 |
LISTING
PROGRAM
LOGIKA
PROGRAM
Pada pertemuan kali ini kita akan
membuat pemrograman Delphi 7 dengan menggunakan kondisi perulangan. Dimana
terdapat 4 struktur perulangan yang terdapat pada Delphi 7 yaitu For to Do, For
Downto Do, While Do, dan Repeat Until.
Di dalam pemrograman kali ini kita
menggunakan dua tipe data yaitu integer dan string. Pada tipe data integer
digunakan untuk membuat variabel i, b, dan c. Sedangkan tipe data string
digunakan untuk untuk membuat variabel a.
implementation
{$R *.dfm}
var
Form1: TForm1;
var i,b,c:integer;
var
a:string;
Pada pemrograman kali ini kita
menaruh pendeklarasian tepat di bawah var Form1:Tform1; ini digunakan agar
tidak perlu pendeklarasian kembali pada blok program selanjut nya karena sangat
tidak efisien.
Pada pemrograman perulangan For to
Do pertama kita harus menuliskan sintaks Memo1.Clear; fungsi nya adalah untuk
menghapus tulisan memo 1 yang terdapat pada memo ketika menjalankan program.
Lalu kita tuliskan sintaks b:=strtoint(edit1.Text);
kita harus merubah variabel b string ke integer dengan sintaks strtoint agar pada variabel b kita anggap sebagai nilai 1
untuk memasukkan variabel b ke nilai 1 adalah dengan sintaks edit 1.Text dimana
edit1 adalah merupakan nama dari komponen edit1 sedangkan .Text fungsi nya
adalah agar dapat dibaca di dalam edit1.
Lalu kita tuliskan sintaks
c:=strtoint(edit2.Text); kita harus merubah variabel c string ke integer dengan
sintaks strtoint pada variabel c kita anggap sebagai nilai 2 untuk memasukkan
variabel c ke nilai 2 adalah dengan sintaks edit 2.Text dimana edit2 adalah
merupakan nama dari komponen edit2 sedangkan .Text fungsi nya adalah agar dapat
dibaca di dalam edit 2.
Lalu kita masuk pada sintaks
perulangan For To Do yaitu dengan bentuk umum nya adalah For <variabel
kendali>:=<nilai awal> to <nilai akhir> do dimana di program
kali ini kita dengan menuliskan sintaks
For i:= b to c do fungsi dari variabel b adalah sebagai nilai awal dari
perulangan For To Do sedangkan c adalah merupakan nilai akhir dari program For
To Do sedangkan variabel i adalah sebagai hasil dari pemroraman perulangan
variabel b dan c.
Sedangkan sintaks Memo1.Lines.add(inttostr(i));
fungsi dari sintaks Memo1.Lines.add adalah digunakan agar dari setiap hasil
diberi jarak kebawah sedangkan (inttostr(i)) adalah digunakan untuk mengubah
hasil dari variabel i yaitu integer ke string.
Lalu kita masuk ke blok program For
Downto Do pertama kita harus menuliskan sintaks begin karna pada setiap blok
program di delphi 7 harus diawali dengan sintaks begin lalu kita menuliskan
sintaks Memo1.Clear; adalah digunakan menghapus Memo1 pada saat kita
menjalankan program.
Pada pemrograman perulangan For to
Do pertama kita harus menuliskan sintaks Memo1.Clear; fungsi nya adalah untuk
menghapus tulisan memo 1 yang terdapat pada memo ketika menjalankan program.
Lalu kita tuliskan sintaks b:=strtoint(edit1.Text);
kita harus merubah variabel b string ke integer dengan sintaks strtoint pada
variabel b kita anggap sebagai nilai 1 untuk memasukkan variabel b ke nilai 1
adalah dengan sintaks edit 1.Text dimana edit1 adalah merupakan nama dari
komponen edit1 sedangkan .Text fungsi nya adalah agar dapat dibaca di dalam
edit 1.
Lalu kita tuliskan sintaks
c:=strtoint(edit2.Text); kita harus merubah variabel c string ke integer dengan
sintaks strtoint pada variabel c kita anggap sebagai nilai 2 untuk memasukkan
variabel c ke nilai 2 adalah dengan sintaks edit 2.Text dimana edit2 adalah
merupakan nama dari komponen edit2 sedangkan .Text fungsi nya adalah agar dapat
dibaca di dalam edit 2.
Lalu kita masukkan sintaks untuk
melakukan perulangan For Downto Do dengan sintaks For i:=c downto b do dimana c
adalah nilai awal dari perulangan For Downto Do sedangkan variabel b adalah di
gunakan sebagai nilai akhir dari perulangan For Downto Do, Sedankan variabel i
adalah hasil dari perulangan yang di lakukan dari nilai variabel b dan c.
Sedangkan sintaks Memo1.Lines.add(inttostr(i));
fungsi dari sintaks Memo1.Lines.add adalah digunakan agar dari setiap hasil
diberi jarak kebawah sedngkan (inttostr(i)) adalah digunakan untuk mengubah
hasil dari variabel i yaitu integer ke string. Lalu kita tuliskan sintaks end;
fungsi nya adalah sebagai akhir dari sebuah blok program.
Lalu kita masuk ke dalam blok
program While Do pertama kita harus menuliskan sintaks begin. Sintaks begin
adalah digunakan untuk memulai sebuah blok program lalu kita menuliskan
Memo1.Clear; adalah digunakan untuk menghapus kata Memo1 ketika kita akan
menjalankan program.
Lalu kita tuliskan sintaks b:=strtoint(edit1.Text);
kita harus merubah variabel b string ke integer dengan sintaks strtoint
agar pada variabel b kita anggap sebagai
nilai 1 untuk memasukkan variabel b ke nilai 1 adalah dengan sintaks edit
1.Text dimana edit1 adalah merupakan nama dari komponen edit1 sedangkan .Text
fungsi nya adalah agar dapat dibaca di dalam edit1.
Lalu kita tuliskan sintaks
c:=strtoint(edit2.Text); kita harus merubah variabel c string ke integer dengan
sintaks strtoint pada variabel c kita anggap sebagai nilai 2 untuk memasukkan
variabel c ke nilai 2 adalah dengan sintaks edit 2.Text dimana edit2 adalah
merupakan nama dari komponen edit2 sedangkan .Text fungsi nya adalah agar dapat
dibaca di dalam edit 2.
Pada perulangan While Do pertama a:=' ' ; fungsi dari sintaks ini adalah variabel a
digunakan sebagai insial karena tipe data dari variabel a ini adalah string
lalu kita tambahkan sintaks ' ' ini
digunakan agar variabel a tidak mempunyai nilai sama sekali atau dalam artian
kosong.
Bentuk umum dari perulangan While Do
adalah While <kondisi_perulangan> do dalam sintaks program While Do kali
ini adalah while c>=b do dimana c>=b adalah sebagai kondisi perulangan
dimana nilai dari variabel c lebih besar sama dengan dari c.
Lalu kita masukkan sintaks begin
kembali untuk memulai program, lalu kita masukkan sintaks a:=a+inttostr(c)+' '; fungsi ini adalah untuk menambahkan
variabel a dengan variabel c tapi sebulum kita menambahkan variabel c perlu
kita ubah dahulu variabel c dari tipe data integer ke string dengan menggunakan
sintaks inttostr(c) karena variabel a tipe data nya adalah string.
Lalu kita masukkan sintaks c:=c-1
fugsi dari sintaks ini adalah mengurangi nilai dari variabel c dikurangi satu.
Pada program kali ini akan terus melakukan looping (perulangan) sampai memenuhi
kondisi variabel c lebih dari sama dengan b maka proses looping(perulangan) nya
akan berhenti.
Lalu kita masukkan sintaks end untuk
blok program pemrosesan di While Do Lalu kita tuliskan sintaks Memo1.Lines.add(a);
fungsi dari sintaks ini adalah untuk menuliskan hasil dari angka-angka yang
terdapat pada pemrosesan sintaks a:=a+inttostr(c)+' ';.
Lalu kita masuk pada pemrograman
perulangan Repeat Until pertama kita
harus menuliskan sintaks begin lalu menuliskan sintaks Memo1.Clear; fungsi nya
adalah untuk menghapus tulisan memo 1 yang terdapat pada memo1 ketika
menjalankan program.
Lalu kita tuliskan sintaks b:=strtoint(edit1.Text);
kita harus merubah variabel b string ke integer dengan sintaks strtoint
agar pada variabel b kita anggap sebagai
nilai 1 untuk memasukkan variabel b ke nilai 1 adalah dengan sintaks edit
1.Text dimana edit1 adalah merupakan nama dari komponen edit1 sedangkan .Text
fungsi nya adalah agar dapat dibaca di dalam edit1.
Lalu kita tuliskan sintaks
c:=strtoint(edit2.Text); kita harus merubah variabel c string ke integer dengan
sintaks strtoint pada variabel c kita anggap sebagai nilai 2 untuk memasukkan
variabel c ke nilai 2 adalah dengan sintaks edit 2.Text dimana edit2 adalah
merupakan nama dari komponen edit2 sedangkan .Text fungsi nya adalah agar dapat
dibaca di dalam edit 2.
Pada perulangan Repeat Until pertama
a:=' ' ; fungsi dari sintaks ini adalah
variabel a digunakan sebagai insial karena tipe data dari variabel a ini adalah
string lalu kita tambahkan sintaks ' '
ini digunakan agar variabel a tidak mempunyai nilai sama sekali atau dalam
artian kosong.
Lalu kita masukkan sintaks
perulangan Repeat Until yaitu dimana bentuk umum nya adalah:
Repeat
.... {aksi}
Until<kondisi>;
Lalu kali ini kita menuliskan
sintaks a:=a+inttostr(b)+' '; fungsi nya
adalah untuk menambahkan variabel a dengan variabel b tapi sebulum kita
menambahkan variabel b perlu kita ubah dahulu variabel c dari tipe data integer
ke tipe data string dengan menggunakan sintaks inttostr(b) karena variabel a
tipe data nya adalah string.
Lalu kita tuliskan sintaks b:=b+1
fungsi dari sintaks ini adalah digunakan untuk menambahkan variabel b ditambah
satu. Pada blok program kali ini akan terus melakukan looping(perulangan) nya
sampai memenuhi kondisi Until. Didalam program kali ini kita menuliskan kondisi
b>c; maka pada blok program Repeat Until akan terus melakukan
looping(perulangan) sampai nilai dari variabel b lebih besar dari c.
Lalu kita tuliskan sintaks Memo1.Lines.add(a);
fungsi dari sintaks ini adalah untuk menuliskan hasil dari angka-angka yang
terdapat pada pemrosesan sintaks a:=a+inttostr(b)+' ';.
Lalu kita tuliskan sintaks End.
Sintaks ini digunakan untuk mengkahiri seluruh program Tform1.
Tidak ada komentar:
Posting Komentar