Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Struktur Kendali Perulangan Bagian III : Repeat Until

Nah pada bagian ini kita mempelajari struktur bagian Repeat Until, Syntax :

Repeat
…..
perintah1;
perintah2;
perintahn;

Until  kondisi ;
jika anda sudah memahami sebuah kondisi yang disebutkan di atas, maka sepertinya tidak perlu saya jelaskan kembali arti dari sebuah kondisi, karna pada prinsipnya perulangan akan terjadi jika kondisi BENAR.

Perbedaan antara perulangan While dan REPEAT yaitu terletak dari penulisan kondisi, jika WHILE kondisi diletakkan di atas, tetapi REPEAT kondisi diletakkan di bawah. Sehingga hal ini akan menyebabkan PASTI terdapat 1 perulangan pada REPEAT.😀 (paham)

sebagai contoh

USES CRT ;
Var i : byte ;

BEGIN
CLRSCR ;
i := 1 ;
REPEAT
TextColor(i) ;
GotoXY(30, 5+i) ; Write ('PENING...') ;
i := i + 1 ;
UNTIL i>10 ;

END.

akan menghasilkan seperti ini :
PENING
PENING
PENING
PENING
PENING
PENING
PENING
PENING
PENING
PENING
dengan warna yang berbeda tentunya 😀

Nah ini contoh kedua :
USES CRT ;

BEGIN
REPEAT
Write ( ‘Zz’ ) ;
UNTIL KeyPressed
END.

Hasilnya ?
Selamat Mencoba.

Filed under: Pemrograman Pascal,

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

Sponsored

C&C Online Shop

Blog Stats

  • 355,907 sejak 12 Jan 2011

User’s Online


My Music

Enter your email address to follow this blog and receive notifications of new posts by email.

Join 223 other followers

February 2011
M T W T F S S
« Jan   Mar »
 123456
78910111213
14151617181920
21222324252627
28  
%d bloggers like this: