uses wincrt; var A,B,jumlah:integer; nama,MP,NIM:string; rata_rata:real; begin write('Nama Anda :');readln(Nama); write('NIM :');readln(NIM); B:= 1; jumlah:= 0; for B:= 1 to 5 do beginwrite('Masukkan Mata Pelajaran Anda:');readln (MP); write('nilai :') ; readln(A); jumlah:=jumlah + A ; end; rata_rata:=jumlah/5; writeln('Total Nilai Anda =',jumlah);writeln('Nilai Rata-Rata Anda =',Rata_rata : 0 : 2); end. |
Mesti diingat brooo,setiap huruf harus sama harus teliti dalam menginput codenya contoh hasil programnya seperti di bawah ini
semoga berhasil brooo kalo ada pertanyaan silahkan tinggalkan komentarnya, Terima kasih ...
Tidak ada komentar:
Posting Komentar