Algoritma Menghitung_Nilai_Rata2
Deklarasi
Jdata, J, N : Byte
TotN : Integer
Rata : Real
Deklarasi
TotN- 0
Rata- 0
J- 1
Read (Jdata)
While J<= Jdata
Write ('Nilai :'J)
Read (N)
TotN- TotN+N;
J-J+1
End While
Rata- TotN / Jdata
Write ('Nilai Rata-Rata', Rata)
Deklarasi
Jdata, J, N : Byte
TotN : Integer
Rata : Real
Deklarasi
TotN- 0
Rata- 0
J- 1
Read (Jdata)
While J<= Jdata
Write ('Nilai :'J)
Read (N)
TotN- TotN+N;
J-J+1
End While
Rata- TotN / Jdata
Write ('Nilai Rata-Rata', Rata)
Komentar
Posting Komentar