Program Hitung Rata n Kali Ulangan di Pascal

Salam Pascal Mania !

Kali ini admin mau kasih script pada Bahasa Pemrogramman Pascal mengenai Looping. Kita tau Looping bermakna pengulangan sebuah kondisi sampai pada pemberhentian yang kita set sebelumnya. Pada Pascal terdapat tiga yang sering digunakan yaitu For, While, dan Repeat. Masing-masing tersebut mempunyai kegunaan yang hampir mirip yang pada intinya tentang pengulangan kondisi.

Script yang akan kita bahas tentang for berikut menjelaskan bagaimana menghitung n (inputan bebas) kali ulangan kemudian mencari rata-rata nya. Berikut kodingnya semoga bermanfaat bagi sobat Pascal mania

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Uses crt;
Var
n : integer;
i,b : integer;
jum : integer;
rata : real;
Begin
Clrscr;
jum:=0;
Write('Masukan Banyak Ulangan : ');
Readln(n);
For i:= 1 to n do
Begin
     Write('Ulangan Ke-',i,' : ');
     readln(b);
     jum:= jum + b;
End;
rata:= jum/n;
Writeln('Rata nya = ',rata:2:1);
Readln;
End.

Penjelasan tiap barisnya sebagai berikut :

  1. Fungsi Pengguna
  2. Deklarasi variabel n sebagai penyimpan banyaknya ulangan
  3. Deklarasi variabel i, dan b sebagai looping (pengulangan) dengan tipe data integer
  4. Deklarasi variabel jum untuk jumlah dengan tipe data integer
  5. Deklarasi variabel rata dengan tipe data real (desimal) karena nanti hasilnya bisa pake koma-komaan 
  6. Mulai
  7. Panggil fungsi penghapus layar apabila program dijalankan kembali
  8. Nilai variabel jum bernilai awal 0 (Nol)
  9. Inputan banyaknya n kali ulangan
  10. Disimpan nilainya di variabel n
  11. Ulangilah variabel i yang awalnya 1 sampai pada nilai variabel n (tadi)
  12. Mulai
  13. Inputan untuk ngisi tiap nilai ulangan kemudian disimpan di variabel b
  14. ini bagian proses penjumlahan dengan variabel jum yang awalnya 0 + perulangan jumlah pada nilai variabel b
  15. Tahap looping selesai
  16. Ini rumus/script untuk menghitung ratanya
  17. Tampilan output nanti terisi otomatis disini dari proses perhitungan rata tadi 
  18. Dibaca
  19. Selesai
Berikut outputnya setelah di compile 


Demikian penjelasannya, untuk agan atau sobat pascal mania yang kurang paham boleh komentar di artikel ini. Saya sangat senang, apalagi dikritik. Terimakasih banyak

Salam Pascal Mania !

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Label: