Mencari jumlah dan rata-rata dari sejumlah data yang dimasukkan

A. Programing
1. uses wincrt;
2. var a, siswa : integer;
3. nilai, total, jumlah, rata : real;
4. begin
5. total := 0;
6. write ('jumlah siswa : '); readln (siswa);
7. writeln;
8. for a := 1 to siswa do
9. begin
10. write ('nilai siswa ke ',a,' : '); readln (nilai);
11. total := total + nilai;
12. if a = 1 then begin
13. jumlah := nilai;
14. rata := nilai;
15. end
16. end;
17. rata := total / siswa;
18. writeln;
19. writeln ('jumlah : ', jumlah :1:2);
20. writeln ('rata-rata : ',rata :1:2);
21. end.

B.Penjelasan Listening Program
1. mulai
2. input jumlah
3. i = 0
4. total = 0
5. selama I < jumlah kerjakan langkah 6 sampai 8
6. i = i + 1
7. input data
8. total = total + data
9. rata-rata = total/jumlah
10. cetak data
11. selesai

Related Articles by Categories