Diposting oleh
Unknown
komentar (0)
FUNGSI PERULANGAN
Sebuah program fungsi perulangan digunakan untuk mengulang suatu perintah
tanpa menuliskan scriptnya kembali, fungsi perulangan yang di pelajari disini
adalah for to do, for down to do, while do dan repeat until. Fungsi pengulangan
ini digunakan untuk melakukan perulangan pada suatu baris perintah tertentu dan
diulang sejumlah tertentu sesuai kondisi yang diberikan. Salah satu aplikasi
fungsi ini adalah untuk menampilkan data dari suatu tabel database.- Fungsi while
kondisi adalah syarat pengulangan yang akan dijalankan. perintah1, perintah2 dan seterusnya adalah baris-baris program yang akan diulang.
- Fungsi for()
Fungsi for merupakan fungsi pengulangan yang sama dengan while, namun for bersifat lebih rumit atau kompleks.
-Fungsi while …..do()
Fungsi do…while hampir sama dengan fungsi while, perbedaan dengan fungsi while adalah bahwa
pengujian dilakukan pada akhir pengulangan.
Berikut adalah contoh dari fungsi perulangan :
Pertama buat form seperti gambar di bawah ini
Setelah kita selesai membuat formnya klik button dan tulis scripnya:
unit Unit1;
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
ForToDo: TButton;
ForDowntoDo:
TButton;
WhileDo: TButton;
RepeatUntil:
TButton;
btkeluar: TButton;
btpangkat:
TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure
btkeluarClick(Sender: TObject);
procedure
ForToDoClick(Sender: TObject);
procedure
ForDowntoDoClick(Sender: TObject);
procedure
WhileDoClick(Sender: TObject);
procedure
RepeatUntilClick(Sender: TObject);
procedure btpangkatClick(Sender:
TObject);
private
{ Private
declarations }
public
{ Public
declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btkeluarClick(Sender: TObject);
begin
close;
end;
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;
procedure TForm1.ForDowntoDoClick(Sender: TObject);
var
i,j:integer; b:string;
begin
b:=''; j:=2;
for i:=10 downto 1 do
begin
b:=b+inttostr(i)+'';
j:=j+2;
end;
label2.Caption:=b;
end;
procedure TForm1.WhileDoClick(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:=1;
b:='';
while i<=10 do
begin
b:=b+inttostr(i)+'';
i:=i+1;
end;
label3.Caption:=b;
end;
procedure TForm1.RepeatUntilClick(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:=1;
b:='';
repeat
b:=b+inttostr(i)+'';
i:=i+1;
until i>10;
label4.Caption:=b;
end;
procedure TForm1.btpangkatClick(Sender: TObject);
var
bil,hasil,pangkat,a:integer;
begin
bil:=strtoint(edit1.Text);
hasil:=bil;
pangkat:=strtoint(edit2.Text);
if edit2.Text='0'
then edit3.Text:='1' else
if edit2.Text='1'
then edit3.Text:=edit1.Text
else
begin
for a:=2 to pangkat
do
hasil:=hasil*bil;
edit3.Text:=inttostr(hasil);
end;
end;
end.
Dan selesai, program siap di
running muncullah hasil seperti gambar berikut:
Diposting oleh
Unknown
komentar (2)
2.1 Tugas pemrograman delphi 7
Tugas mata kuliah "PEMROGRAMAN BORLAND DELPHI 7" yang pertama kali ini adalah tentang "membuat program dengan menampilkan grade nilai dengan menggunakan statement case of " dengan kriteria:
nilai 0 s/d 25 Grade = E
nilai 26 s/d 55 Grade = D
nilai 56 s/d 75 Grade = C
nilai 76 s/d 85 Grade = B
nilai >86 Grade = A
dengan menggunakan basis teks maka inilah langkah-langkah mengerjakan delphi 7 :
Jangan dilewatkan yyyy....
Tugas mata kuliah "PEMROGRAMAN BORLAND DELPHI 7" yang pertama kali ini adalah tentang "membuat program dengan menampilkan grade nilai dengan menggunakan statement case of " dengan kriteria:
nilai 0 s/d 25 Grade = E
nilai 26 s/d 55 Grade = D
nilai 56 s/d 75 Grade = C
nilai 76 s/d 85 Grade = B
nilai >86 Grade = A
dengan menggunakan basis teks maka inilah langkah-langkah mengerjakan delphi 7 :
- pertama mulailah membuka program delphi 7
- setelah terbuka pilih menu file > new > other
- kemudian akan tampil kotak new items > console application
- setelah muncul kotak script maka tulislah script tersebut, seperti :
program nilaigrade;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
nilai:integer;
grade, ket:string;
begin
write ('masukkan nilai anda = '); readln(nilai);
case nilai of
0..25 : begin grade:='E'; ket:='jelek' end;
26..55 : begin grade:='D'; ket:='kurang' end;
56..75 : begin grade:='C'; ket:='cukup' end;
76..85 : begin grade:='B'; ket:='baik' end;
else
begin grade:='A'; ket:='amat baik' end;
end;
writeln('Grade = ',grade);
writeln('keterengan = ',ket);
readln;
end.
- jalankan program tersebut dengan run program atau F9 dan akan muncul kotak basis teks seperti di bawah ini :
nilai 24 grade E keterangan "jelek"
nilai 48 grade D keterangan "kurang"
nilai 68 grade C keterangan "cukup"
nilai 83 grade B keterangan "baik"
nilai 99 grade A keterangan "amat baik"
- dan yang terakhir adalah save jika diperlukan
nama saya : Aisyah Ar-Rudhowi...sekian tugas "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.1 dan akan dilanjutkan tugas delphi dengan nomer urut 2.2...
Jangan dilewatkan yyyy....
Diposting oleh
Unknown
komentar (0)
2.2 Tugas pemrograman delphi 7
Tugas mata kuliah "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.2, diberi tugas oleh dosen mata kuliah dengan tugas "membuat tugas bebas dengan menggunakan case of minimal tiga pencabangan dengan basis teks" dan kali ini saya mencoba membuat progam tentang potongan harga, karena saya belum pernah belajar tentang ini di sekolah saya dulu SMA maka mohon dimaklumi jika progam saya kurang menarik ya..bagi para pembaca..
Kriteria progam saya:
- Pembeli akan mendapat potongan harga jika barang yang dibeli memenuhi harga yang telah ditentukan di bawah ini :
Kriteria progam saya:
- Pembeli akan mendapat potongan harga jika barang yang dibeli memenuhi harga yang telah ditentukan di bawah ini :
- 200.000 - 500.000 mendapat potongan 30%
- 600.000 - 1.000.000 mendapat potongan 50%
- >1.000.000 mendapat potongan 60%
- pertama mulailah membuka program delphi 7
- setelah terbuka pilih menu file > new > other
- akan muncul kotak new items > console application
- setelah muncul kotak script tulislah script pada kotak tersebut
program jumlahdiskon;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
nilai:integer;
ket, potongan:string;
begin
write ('masukkan jumlah harga = Rp.'); readln(nilai);
case nilai of
200000..500000 : begin ket:='selamat anda mendapat potongan';
potongan:='30%' end;
600000..1000000 : begin ket:='selamat anda mendapat potongan';
potongan:='50%' end;
else
begin ket:='selamat anda mendapat potongan';potongan:='60%' end;
end;
writeln('keterangan = ', ket);
writeln('jumlah potongan yang didapat = Rp. ', potongan);
readln;
end.
- jalankan program tersebut dengan "run program" atau F9 dan akan muncul kotak basis teks seperti berikut.
gambar runing program
harga 345.000 dengan potongan 30%
harga 673.000 dengan potongan 50%
harga 2.348.000 dengan potongan 60%
- dan yang terakhir adalah save jika diperlukan
Sekian tugas yang 2 tunggu tugas-tugas yang lain y.......
Diposting oleh
Unknown
komentar (0)
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Masukkan_Nilai: TLabel;
txtNilai: TEdit;
Keterangan: TLabel;
txtstatus: TEdit;
cmdHasil: TButton;
Label3: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
procedure cmdHasilClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.cmdHasilClick(Sender: TObject);
Var
nl:integer;
begin
nl := strtoint(txtNilai.text);
if nl >70 then txtstatus.Text := 'Lulus'
else txtstatus.Text := 'Tidak lulus';
end;
end.
