CONTOH SCRIPT DASAR PEMBUATAN PROGRAM PADA DELPHI 7 (Part 3)

Contoh Statement Penulisan Coding Looping

• Coding For..to..do..

perulangan for adalah perulangan for yang berada pada perulangan yang lainnya.perulangan yang lebih dalam akan  di proses terlebih dahulu sampai habis,kemudian perulangannya yang lebih luar baru akan bertambah,mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya.

Nah langsung saja kita ke lembar kerja dan kita coba rumus sebagai berikut :

 program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

Var

i : integer;

begin

for I := 1 to 10 do

writeln(i,'Yadika');

writeln('Bangil');

Readln;

End.

 

Dan hasilnya akan seperti ini ..

• Coding While do

While do merupakan penyeleksian kondisi di gunakna agar program dapat  menyeleksi kondisi,sehingga program dapat menentukan tindakan apa yang harus di kerjakan,tergantung dari kondisi yang akan di seleksi tersebut.Perulangan WHILE-DO tidak di lakukan jika kondisi tidak terpenuhi.

Rumusnya sebagai berikut :

program Project1_while;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Var

      tot,i,jum:integer;

      rata:real;

      nilai:array[1..10]of integer;

begin

  i:=1;tot:=0;

  write('Masukkan Jumlah Data = ');

  readln(jum);

  while i<=jum do

begin

  write('Masukkan nilai ke ' ,i,':');

  readln(nilai[i]);

  tot:=tot+nilai[i];

  i:=i+1;

end;

  rata:=tot/jum;

  writeln('Rata-Rata nilai = ' ,rata:6:1);

  writeln('');

readln;

end.

Dan inilah hasil dari percobaan kita..

• Coding Repeat Until

Perulangan repeat-until di gunakan untuk mengulang statement atau blok statement sampai (until) kondisi yang di seleksi di until tidak terpenuhi.

Contoh rumusnya sebahai berikut :

 program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

Var

i : integer;

begin

i:=1;
Repeat

writeln(i,'Yadika');

i:=i+1;
Until 1>10;

Readln;

End.

Dan hasilnya akan seperti ini

Silahkan mencoba ^_^ ..