TAG PROGRAM WHILE DO DALAM PASCAL

WHILE . . . DO

Bila banyaknya perulangan suatu pernyataan belum bisa diketahui, maka perintah For . . . Do tidak bisa digunakan.  Untuk itu, perintah yang digunakan salah satunya adalah While . . . Do.

Syntax 1 :

While <syarat logika> Do

Statement;

Syntax 2 :

While <syarat logika> Do

Begin

Statement1;

Statement2;     Block Statement

………;

End;

Contoh:

Program CetakChar;

Uses Crt;

Var

Ch : Char;

Begin

Clrscr;

Write(‘Masukkan sebuah Karakter : ’);Readln(Ch);

While (Ch <> ‘.’) Do    {Jika Bukan Character ‘.’}

Begin                   {Lakukan Proses Looping}

Write(‘Masukkan Sebuah Karakter : ’);Readln(Ch);

End;

Readln;

End.

 

Contoh:

Program berikut adalah mencetak tulisan PASCAL sebanyak 5 buah dengan perintah looping While . . . Do.

Program CetakChar;

Uses Crt;

Var

N : Integer;

Begin

Clrscr;

N := 0;

While N > 5 Do

Begin

N := N + 1;

Write(‘Looping ke- ’,N);

Writeln(‘  PASCAL);

End;

Readln

End.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s