Modul Turbo Pascal IV

Modul IV

 Operasi Perulangan

Tujuan :

1.      Agara praktikum memahami statemen-statemen perulangan.

2.      Praktikum mampu menyederhanakan program dengan memanfaatkan perulangan.

Teori :

       Operasi perulangan digunakan untuk perulangan terhadap suatu proses. Turbo pascal menyediakan 3 pertanyaan, yaitu  For.. To/Downto… Do; while… Do; reapet… Until. Bentuk umum ketiga Statemen tersebut adalah sebagai berikut :

Bentuk umu For… To/Downto… Do;

For < Variable >  : = < value > To/Downto < Value > Do < Statement >;

Atau

For < Variable > := <value> To/Downto < Value > Do Begin

       <Statement>;

       <Statement>;

End;

Bentuk Umum While… Do :

While (<BooleanExpresion>) DO < statement>;

Atau

While (<BooleanExpresion>)Do Begin

               <Statement>;

               <Statement>;

End;

Bentuk Umum Reapet… Until :

Reapet

               <Statement>;

               <Statement>;

Until (BooleanExpression);

Contoh :

Program Perulangan For_To_Do;

Uses Crt;

Var

X, Y : Byte ;

Begin

ClrScr;

X := 1;

While (X <=4 ) Do Begin

Y := 1;

While ( Y < X ) Do Begin

Write (‘ ‘ : 2 );

Inc ( Y );

End;

Writeln ( X : 2 );

Inc ( X );

End;

End.

Program Perulangan_Reapet_Until;

Uses Crt;

Cosnt

S : string = ‘ FT -  Teknik – Universitas – Widyagama*’;

Begin

ClrScr;

Reapet

S := Copy ( S, 2, Ord (S[0])) + S [1];

Gotoxy(10, 10); Writeln (S);

Until Keypressed;

End;

Latihan :

1. Buatlah program dengan menggunakan statemen For… To/Downto… Do dan While… Do, untuk mencetak pola sebagai berikut:

a.       4   3  2  1                   b.   1  2  3  4

4  3  2                              2  3  4

4  3                                      3  4

4                                            4

               c.    4                                    d.                4

                    4  3                                    3  4

                     4  3  2                           2  3  4

                    4  3  2  1                                1  2  3  4

2.      Buatalah program dengan menggunakan statemen Repeat… Until, unutk memanipulasi konstanta string menjadi seolah-olah bergerak kekanan, dengan konstanta sebagai berikut :

Cosnt

      S : String = ‘ UWG-FT-Fakultas-Teknik*’;

Tugas:

1. Buatlah rangkuman mengenai perbedaan karakteristik statemen For… To/Downto… Do, While… Do dan Repeat… Until, lenglapi dengan contoh program.
2. Buatlah program dengan menggunakan statemen  perulangan For… To/Downto… do, While… do dan Repeat… Until, untuk membuat pola sebagai berikut :

@  @  @  @  @  @  @  @  @

@  @  @                    @  @  @

@  @                            @  @

@                                      @

@  @                            @  @

@  @  @                    @  @  @

@  @  @  @  @  @  @  @  @                 

                    Latihan 1.

Ø  Program menggunakan Statemen For..To/Downto..Do dan While...Do untuk Mencetak Pola.

Hasil Running 1 For..To/Downto..Do

Hasil Running 2 While...Do

                                   Latihan 2.

Ø  Program mengunakan Constanta : Const = ‘UWG-FT-Fakultas-Teknik*’;

Hasil Runing

Tugas 1.

Ø  For..To/ Down..Do

Adalah perintah untuk membuat pengulangan (loop) sebanyak angka yang diberikanpada variable awal dan akhir. Perinta To digunakan untuk angka menarik, sedangkkan DownTo digunakan untuk angka menurun.

   Hasil Dari Runing

Ø  While..Do

Perintah untuk melakukkan pengulangan selama kondisi yang digunakan masih bernilai benar(terpenuhi). Seleksi kondisi pada While..Do terleatak di atas sehingga, Jika kondisi tidak terpenuhi maka tidak akan masuk ke pengulangan.

     

     Hasil Dari Runing

Repeat..Until.

Digunakan untuk mengulang pernyataan atau blok pernyataan sampai kondisi yang di seleksi di until tidak terpenuhi. Dalam penggunaan repeat..until paling sedikit diproses Sekali, Hal ini disebabkan Aturan penulisan pernyataan Repeat..Until

            Repead ( Perintah yang di ulang) Until(Kondisi)

                Hasil Runing

               Tugas 2.

Ø  Program Statemen Perulangan Untuk Membuat Pola.

 

Hasil Runing