Perulangan Dengan Repeat Until Menggunakan Turbo Pascal

Berikut ini adalah Program untuk menghitung nilai rata-rata dari sejumlah bilangan, yang menggunakan Perulangan Repeat Until.

Lihat Output Programnya :

Lihat Source codenya :

Program Perulangan1;
Uses wincrt;
Var
i,jum,bil,n : Integer;
rata : Real;

Begin
i:= 1;
jum:= 0;
writeln('***************************************');
writeln(' Program Menghitung Rata-rata Bilangan');
writeln('***************************************');
writeln;
write('Isikan Banyaknya Data : '); Readln(n);
writeln;
  Begin
    Repeat
    write('Isikan Bilangan ke ',i,' = '); Readln(bil);
    i:= i + 1;
    jum:= jum + bil;
    Until n < i;
  End;
writeln;
rata:= jum / n;
writeln('Nilai Rata-rata Bilangan = ',rata:0:2);
writeln('Jumlah Bilangan          = ',jum);
End.

Artikel Terkait:

Pemrograman

• Menggerakkan Komponen & Membuat Animasi menggunakan komponen tTimer
• Cara Membuat Aplikasi Chatting Menggunakan Delphi 7
• String dalam Bahasa C
• Array dalam Bahasa C
• Fungsi dalam Bahasa C
• Perulangan dalam Bahasa C
• Percabangan dalam Bahasa C
• Fungsi-fungsi Dasar Dalam Bahasa C
• Tipe Data Primitif dalam Bahasa C
• Sejarah Perkembangan Bahasa Pemrograman C
• Menghitung Bilangan Ganjil dan Genap Menggunakan Turbo Pascal
• Pengurutan Bilangan mengunakan Turbo Pascal
• MEMBUAT APLIKASI KONVERSI BILANGAN DENGAN PROGRAM VB
• MEMBUAT PROGRAM DATABASE MAHASISWA DENGAN VB 6.0
• MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0
• MEMBUAT PROGRAM PEMUTAR MUSIK DENGAN VB 6.0 | APLIKASI MP3 PLAYER
• MEMBUAT PROGRAM PORT PARALEL LED BERJALAN DENGAN VB
• MEMBUAT PROGRAM SIMULASI LAMPU LALU LINTAS DENGAN VISUAL BASIC
• MEMBUAT PROGRAM KALKULATOR DENGAN VISUAL BASIC
• MEMBUAT APLIKASI ACAK ANGKA (RANDOM) DENGAN VISUAL BASIC
• MEMBUAT APLIKASI PASSWORD DENGAN VISUAL BASIC
• MEMBUAT APLIKASI PENGHITUNG HARGA BARANG DENGAN VISUAL BASIC
• MEMBUAT PROGRAM MENGKONVERSI SUHU DENGAN VISUAL BASIC
• CONTOH-CONTOH PROGRAM MATEMATIKA SEDERHANA DENGAN VB 6.0