While...do

While...do adalah perintah untuk melakukan pengulangan tetapi dengan menggunakan persyaratan . selama tidak dipenuhi ......kerjakanlah ini ....

Contoh:

Uses crt;

Var sandi1,sandi2:string;

Begin

Clrscr;

Sandi1:=’aku’;

Writeln(‘Silahkan Masukan Password’);

While sandi 1<>sandi2 do readln(sandi2);

Writeln(‘Sandi yang anda masukan benar’);

Readln;

End.

Contoh:

Uses crt;

Begin

Clrscr;

Writeln(‘Tekan sembarang tombol untuk memulai’);

While not keypressed do

Begin

Sound(600);

Delay(30);

Nosound;

End;

End.

Kembali ke Contoh Program Turbo Pacal