- Back to Home »
- Bahasa Pemograman Komputer »
- Mencari Nilai Rata-Rata
Posted by : Trigger
Jumat, 12 November 2010
Iseng-iseng cari Foto untuk ngambil KRS buat UTS malah ketemu Source code program Pascal judulnya mencari nilai rata-rata sebenarnya sih tugas semester dua kemaren. Baru ketemu lagi source codenya yahhh ane posting aja sapa tau dari temen-temen memerlukannya tinggal copas aja dehhh dan sedikit di modifikasi yahhh biar lebih berisi programnya kaga kaya punya ane. Programnya sederhana aja kok brooo hanya butuh ketelitian dan sedikit paham code-codenya ;D ane ajah gak paham-paham dari dulu yah mungkin ane cuma bisa ngasih dikit doang ni source codenya broo...
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 ...