Perulangan While do di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang Perulangan For do di Turbo Pascal.
Kali ini saya akan memposting tentang Perulangan While do di Turbo Pascal.
Perulangan While do digunakan untuk melakukan proses perulangan statement terus menerus selama expresi pada while do bernilai True atau belum terpenuhi

Contoh Perulangan While do

program while_do;
uses crt;
var
	bil,x:integer;
begin
	clrscr;
	writeln('=================');
	writeln('Tutorial Koding');
	writeln('==================');
	write('Masukan sebuah bilangan : ');readln(bil);
	
	x:=1;
	while x <= bil do
	begin
		writeln('Tutorial Koding ',x);
		x:=x+1;
	end;
	
	readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini

Pada gambar di atas akan melakukan perulangan dari x samapi x kurang atua sama dengan bilangan yang ditentukan

Semoga berhasil
Semoga bermanfaat, jangan lupa berikan komentar anda pada postingan ini