Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Latihan Perulangan

Mari latihan berikut ini :

USES CRT  ;
VAR   i : Byte ;
BEGIN
CLRSCR ;

FOR i :=  1 to 80 DO
BEGIN
GotoXY( i ,  1 ) ;  Write( '-' ) ;
Delay (300) ;
END ;

FOR i :=  1 to 24 DO
BEGIN
GotoXY( 79 ,  i ) ;  Write( '|' ) ;
Delay (300) ;
END ;

FOR i :=  80 DOWNTO 1  DO
BEGIN
GotoXY( i ,  24 ) ;  Write( '-' ) ;
Delay (300) ;
END ;

END.

PENJELASAN
1. Perintah Delay ( n ) berguna untuk memberikan jeda waktu antara satu aktifitas proses dengan aktifitas proses yang lain.
2. Perintah FOR i := 80 DOWNTO 1 DO bertujuan untuk melakukan perulangan dari nilai TERTINGGI ke nilai TERENDAH, yah bisa di simpulkan perulangan MENURUN.

Bagaimana Hasilnya ?

Apakah anda bisa menambahkan program untuk menaikkan kembali dari bawah ke atas ?

Advertisements

Filed under: Pemrograman Pascal,

One Response

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

%d bloggers like this: