MENHITUNG RATA-RATA REPEAT UNTIL

                    Baik lah saya akan berbagi bagaimana cara mencari rata-rata REPEAT  UNTIL pada Aplikasi Turbo Pascal.

Apa itu REPEAT  UNTIL

          REPEAT –UNTIL yaitu bentuk pengulangan while do do mungkin tidak pernah mengeksekusi instruksi di dalam loop satu kali pun jika kondisi sudah tidak terpenuhi. Jika diinginkan agar minimal sebuah aksi dieksekusi sekali, maka gunakan bentuk perulangan repeat until

persyaratan looping repeat:  

1. Pada perulangan kondisi bernilai boolean
2. Di dalam badan perulangan harus ada intruksi untuk mengubah nilai kondisi
3. Peubah harus terdefinisi nilainya sebelum pengulangan dilaksanakan pertama kali
4. Repeat digunakan pada kasus yang terlebih dahulu memanipulasi objek , baru kemudian memeriksa objek tesebut.

repeat aksi;

until kondisi;

Aksi akan diulangi sampai kondisi bernilai true . bentuk ini sama saja dengan:

aksi;

while (not kondisi) do

begin

aksi

end;

Bentuk apliksasi nya sebagai berikut:

1.pertama buka dulu aplikasi turbo pascal kalian terlebih dahulu.

  

2.Setalah terbuka aplikasi pascal nya,lalu klik file setelah itu klik NEW….

  

3.Setelah di klik NEW pascal nya akn tebuka dan siap untuk pembuatan aplikasi repeat  until

PROGRAM MENCARI rata-rata  repeat until di pascal :

          Program  rata2_repeat_until;

          Uses crt;

          Var I,N,X,R,T:real;

                   Begin

                   Clrscr;

                   I:=1;

                   T:=0;

          Write <’masukan banyak data=’>;

          Readln <N>;

          Repeat

                   begin

                   write <’masukan nilai data=’>;

                   readln <x>;

                   I:=I+1;

                   T:=T+X;

          end;

unti I>N

R:=T/N;

Write <’masukan rata-rata adalah’,R>;

Readln;

End.

3.udah selesai di ketik , lalu klik compile untuk membuktikan jalan atau tidak nya aplikasi yang di buat.

4.kalau aplikasinya jalan klik run untuk mencari rata2 di repeat until.

Setelah itu masukan angka yang kita inginkan

TULIS ANGKA YANG KITA INGINKAN

SELAMAT  MENCOBA

AE SOB.

Posted by Unknown

Tweet