Membuat Program Bintang Dengan Menggunakan Perulangan For-Do

Membuat Program Bintang Dengan Menggunakan Perulangan For-Do

  1. Program for_to_do;

             Uses crt;

             Var

                     I,j,k:integer;

            Begin

                   For k:= 1 to 5 do

                  Begin

                          For i:= 5 downto k do

                         Write(‘ ‘);

                         For j:= 1 to k do

                         Write(‘*’);

                        Writeln;

                       End;

          Readln

          End.

 Hasil :

               *

              **

             ***

            ****

           *****

 2. Program for_to_do;

     Uses crt;

     Var

              I,j,k:integer;

     Begin

              For k:= 1 to 5 do

             Begin

                       For i:= 1 to k do

                       Write(‘ ‘);

                               For j:= 5 downto k do

                               Write(‘*’);

                             Writeln;

                            End;

     Readln

     End. 

Hasil :  

 *****

  ****

   ***

    **

     *

3. Program for_to_do;

     Uses crt;

     Var

              I,j,k:integer;

     Begin

              For k:= 1 to 5 do

             Begin

                         For i:= 1 to k do

                        Write(‘ ‘);

                                    For j:= 5 downto k do

                                     Write(‘**’);

                                   Writeln;

                                  End;

     Readln

     End.

 Hasil :

 **********

  ********

   ******

    ****

     **

4. Program for_to_do;

     Uses crt;

     Var

              I,j,k:integer;

     Begin

                   For k:= 1 to 5 do

                   Begin

                                 For i:= 1 to k do

                               Write(‘ ‘);

                                         For j:= 5 downto k do

                                      Write(‘*’);

                                        Writeln;

                                   End;

                  For k:= 1 to 5 do

     Begin

              For i:= 1 to k do

              Write(‘ ‘);

              For j:= 5 downto k do

              Write(‘*’);

              Writeln;

              End;

     Readln

     End.

Hasil :

               *

              **

             ***

            ****

           *****

           *****

            ****

             ***

              **

               *

 5.  Program for_to_do;

     Uses crt;

     Var

              I,j,k:integer;

     Begin

     Clrscr;

              For k:= 1 to 5 do

     Begin

              For i:= 5 downto k do

              Write(‘ ‘);

              For j:= 1 to k do

              Write(‘**’);

              Writeln;

              End;

     Readln

     End.

     Hasil :

    **

   ****

  ******

 ********

**********

Post Comments:

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