PENULISAN CODING ARRAY SATU DIMENSI MENGGUNAKAN FUNGSI WHILE

Perulangan ini mirip dengan perulangan Repeat Until tetapi pengecekannya berada di awal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.

Bentuk umum dari While Do adalah seperti berikut :

           While kondisi do

            Begin

            Perintah;

            Perintah;

            End;

Berikut ini contoh script program pada delphi 7 :

program Project5;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Var

  tot,i,jum:integer;

  rata:real;

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

begin

  writeln('NIM  : 114224010');

  writeln('NAMA : BENNY KURNIAWAN');

  writeln('=================================');

  writeln('CONTOH SCRIPT PENENTUAN RATA-RATA');

  writeln('=================================');

  writeln('                              ');

  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('');

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

  readln;

end.