Semangat pagi kawan-kawan! dokter matematika mau sharing program Menghitung rata-rata nilai dengan menggunakan software Pascal. Program diawali dengan memasukan identitas, nilai ujian dan program ini akan memberikan nilai rata-rata seperti gambar dibawah ini.
Gimana kawan-kawan? Tertarik untuk mencoba?
Enkripsi yang dibutuhkan untuk membuat program diatas sebagai berikut:
program menghitung_rata2;
uses wincrt;
var
Nama : string;
Nis : integer;
Matematika,fisika,kimia,biologi,indonesia,inggris,komputer:real;
procedure baca_data;
begin write('Masukan Nis : ');readln(Nis);
write('Masukan Nama : ');readln(Nama);writeln;
write('Masukan nilai Matematika: ');readln(Matematika);
write('Masukan nilai Fisika : ');readln(fisika);
write('Masukan nilai Biologi : ');readln(biologi);
write('Masukan nilai Kimia : ');readln(kimia);
write('Masukan nilai Indonesia : ');readln(indonesia);
write('Masukan nilai Inggris : ');readln(inggris);
write('Masukan nilai Komputer : ');readln(komputer);
end;
procedure rata_rata;
var rata:real;
begin
Rata:=(matematika+fisika+biologi+kimia+indonesia+inggris+komputer)/7;
write('Nilai rata - rata adalah : ',rata:6:2);
end;
begin
baca_data;
rata_rata;
readln;
end.
selamat mencoba,
salam hangat dari dokter matematika. :)
