Tugas Struktur data

2 comments
Membuat program untuk mencari nilai rata-rata dari 4 masukkan nilai.

source code :
Uses wincrt;
var nilai : array [1..4] of integer ;
jm,rata : real;
begin
clrscr ;

writeln(‘menghitung rata-rata 4 buah nilai’);
writeln(‘nilai =’);readln(nilai [1] );
writeln(‘nilai =’);readln(nilai [2] );
writeln(‘nilai =’);readln(nilai [3] );
writeln(‘niali =’);readln(nilai [4] );
jm := nilai[1]+nilai[2]+nila[3]+nilai[4];
rata:= jm/4;
writeln;
writeln(‘jumlah =’,jm :9:2);
writeln(‘rata-rata =’,rata :9:2);
end.

2 comments:

  1. hehehe aku juga ada program gituan tapi gua cuman bisa nyontek temen hehehe

    ReplyDelete
  2. kalo emang ada kenapa gak dishare bro?
    sapa tau ntar q bisa ngopy juga :D :D :D
    thanks 4 comment.

    ReplyDelete