Beranda > Pascal > Pascal Bab : 6 Pernyataan Perulangan While

Pascal Bab : 6 Pernyataan Perulangan While

Pernyataan While biasanya dipakai untuk melakukan pengulangan yang jumlahnya tidak diketahui di depan atau selang pencacah tidak sebesar 1 atau -1, sehingga pernyataan akan dilakukan terus menerus selama kondisi bernilai True bentuk pernyataan While :

WHILE kondisi DO pernyataan

Contoh sebuah program untuk mengurutkan angka dari 10 sampai dengan 1, dengan penurunan sebanyak 1.

               Program cobawhile_1;

               Uses crt;

              Var ulang: Integer;

              Begin

              Clrscr;

                     Ulang:=10;(Nilai awal)

                     While ulang>=1 do

                     Begin

                          Writeln(ulang);

                           Ulang:=ulang-1;

           End;

           Readln;

           End.

Contoh potongan program untuk apabila kenaikan atau penurunan tidak sebesar 1.

               Ulang:=1;

              While ulang <= 10 DO

              Begin

             Write(ulang);

              Ulang:=ulang+2;

              End.

Bagian yang diulang oleh while juga bisa mengandung WHILE yang lainnya, inilah yang disebut dengan WHILE bersarang.

Contoh program WHILE bersarang adalah sebagai berikut :

           Program cobawhile_2;

           Uses crt;

           Var nilai,total,rata: Real;

            N,I : Integer;

                 lagi : char;

           Begin

                lagi:=’Y’;

                while lagi=’Y’ do

           Clrscr;

                  Write(‘Jumlah data :’);readln(n);

                   Writeln;

                    I:=0;

                    total:=0;

                 While I<n do

           Begin

            I:=I+1;

                  Write(‘Nilai data ke’,I, ‘:’); readln(nilai);

                   total:=total + nilai;

            end;

            rata:=total/n;

                   writeln;

                   writeln(‘Total nilai =’, total:8:2);

                   writeln(‘Jumlah data =’, n:3);

                   writeln(‘rata-rata nilai =’, rata:8:2);

                   writeln;

                   writeln(‘Hitung lagi (Y/T)’);readln(lagi);

             end.

        End;

Kategori:Pascal
  1. 13 Maret 2016 pukul 1:27 pm

    I enjoy what you guys are up too. Such clever work and coverage!
    Keep up the amazing works guys I’ve incorporated you guys to
    our blogroll.

  1. No trackbacks yet.

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

%d blogger menyukai ini: