Operasi While Dalam pascal

Contoh Porgram While untuk mengoperasikan output dari 0 sampai 5 :
uses crt;
var i : integer;
begin
clrscr;
i := 0 ;
while i < 6 do
begin
writeln(i);
i := i +1;
end;
end.
outputnya akan tampil seperti berikut :

Read More

Pernyataan While

 Pernyataan while biasa dipakai untuk melakukan pengulangan yang jumlahnya tidak diketahui di depan atau selang pencacah tidak sebesar 1 atau -1, sehingga pernyataan akan dilakukan terus menerus selama kondisi bernilai true bentuk pernyataan while :

While kondisi DO pernyataan 

Contoh program pernyataan while:

Program Cobawhile_1;

Uses crt;

Var

ulang : integer;

Begin

Clrscr;

ulang := 10;                   

While ulang >=1 do

Begin

Writeln(ulang);

ulang := ulang -1;

End;

Readln;

End.

 

Read More