Kalkulator Nilai Rata-Rata --- Menghitung nilai rata-rata dari kumpulan nilai merupakan hal yang membutuhkan lumayan banyak waktu untuk mencarinya secara manual. Makanya sekarang beredar berbagai aplikasi yang memberikan kemudahan dalam melakukan perhitungan nilai rata-rata. Nilai rata-rata diperlukan untuk menghitung sebuah nilai sesuatu mencapai nilai yang ditargetkan, nilai rata-rata berkaitan dengan seseorang Mahasiswa atau siswa, karena ini berhubungan dengan nilai yang didapat dari dosen atau gurunya. Kita bisa dengan mandiri mencari nilai kita dengan menghitung nilai rata-rata dengan melakukan pemrograman.
Berbagai bahasa pemrograman bisa kita gunakan untuk membuat kalkulator nilai rata-rata dengan algoritmanya masing-masing. Namun dalam artikel ini akan menggunakan Pascal, dalam membuat program pascal banyak algoritma yang bisa digunakan, saya menggunakan Procedure dan array sebagai penampungan datanya, jadi program berikut bisa menjadi contoh program pascal menggunakan Procedure dan array.
Berikut kode Program Pascal dengan Procedure dan Array membuat kalkulator nilai rata-rata.
Program rata_rata_kumpulan_nilai;
Uses wincrt;
Var
Banyak_nilai,urutan: integer;
Procedure rata2(a,b:integer);
Var
Nilai:array [1..999] of Integer;
Rata_rata:real;
Jumlah:integer;
Begin
For a:=1 to b do
Begin
Write ('Nilai ke-',a,' = ');readln (nilai[a]);
End;
Jumlah:=0;
For a:=1 to b do
Jumlah:=jumlah+nilai[a];
Rata_rata :=jumlah/5;
Write ('Rata-rata = ', rata_rata:0:2);
End;
Begin
writeln(' Program Menghitung Nilai Rata-Rata');
writeln('==========================================================');
Writeln;
Write ('Banyak nilai yang ingin diratakan = ');readln(banyak_nilai);
Rata2(urutan,banyak_nilai);
readln;
End.
Uses wincrt;
Var
Banyak_nilai,urutan: integer;
Procedure rata2(a,b:integer);
Var
Nilai:array [1..999] of Integer;
Rata_rata:real;
Jumlah:integer;
Begin
For a:=1 to b do
Begin
Write ('Nilai ke-',a,' = ');readln (nilai[a]);
End;
Jumlah:=0;
For a:=1 to b do
Jumlah:=jumlah+nilai[a];
Rata_rata :=jumlah/5;
Write ('Rata-rata = ', rata_rata:0:2);
End;
Begin
writeln(' Program Menghitung Nilai Rata-Rata');
writeln('==========================================================');
Writeln;
Write ('Banyak nilai yang ingin diratakan = ');readln(banyak_nilai);
Rata2(urutan,banyak_nilai);
readln;
End.
Hasil Running
Nah, seperti itu hasil kalkulator nilai rata-rata yang sudah dibuat berdasarkan algoritma diatas, algoritma yang digunakan bisa berbeda-beda setiap pembuat program. Namun program diatas bisa digunakan sebagai contoh untuk pembelajaran program pascal dengan Procedure dan Array.
Sekian. Wassalam
No comments:
Post a Comment
Silahkan isi komentar, jika ada yang ingin ditanyakan...