CONTOH DASAR PEMBUATAN SCRIPT PADA DELPHI 7(part 3)

Statement penulisan cooding looping

Perulangan pada bahasa pemrograman Java terdapat 3 macam yang memiliki sintaks dan penggunaan yang berbeda-beda. Ketiganya adalah FOR, WHILE, DO WHILE :

1.  Perulangan FOR digunakan untuk melakukan perulangan dengan jumlah yang sudah diketahui pasti.

2.  Perulangan WHILE digunakan untuk melakukan perulangan dengan jumlah yang belum diketahui pasti. Pernyataan pada WHILE akan dieksekusi setelah pengecekan kondisi pada WHILE bernilai TRUE.

3. Perulangan Repeat Until struktur pengulangandimana aksi dilakukan hingga kondisi     (persyaratan ) berhenti terpenuhi.

1. langsung saja kita ke lembar kerja yang pertama yaitu tentang perulangan FOR

contoh rumus sebagai berikut:

program for_to_do;

{$APPTYPE CONSOLE}

uses  SysUtils;

var

 i:integer;

Begin

for i:= 1 to 10 do;

writeln(i,'yadika');

readln;

end.

maka hasilnya akan seperti ini:

2. perulangan WHILE

  contoh rumus 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.

  maka seperti ini hasilnya:

3. REPEAT UNTIL

contoh rumus sebagai berikut:

program repeat_until;

{$APPTYPE CONSOLE}

uses  SysUtils;

var

 i:integer;

Begin

i:= 1;

repeat;

writeln(i,'yadika');

i:= i+1;

until i>10;

readln;

end.

maka hasilnya seperti ini:

semoga berhasil dan tetap semangat ^_^