loading...

Pascal :: Menghitung Nilai Rata-Rata Kelas

Script Pascal berikut adalah aplikasi yang akan melakukan perhitungan nilai rata-rata kelas, statemen while do akan mengakibatkan perulangan secara terus menerus. Untuk berhenti menginput data, isikan No. Induk dengan karakter ‘xx’, tanpa tanda kutip. Selamat Mencoba!


Program data_siswa;
Uses Wincrt;
Var
No_Siswa:String[5];
B_Data,J_Data,Nilai,Bil:Integer;
Rata:Real;
Begin
Writeln;
Writeln(' Program Penghitung Nilai Rata-Rata Kelas');
Writeln(' ----------------------------------------');
Writeln;
Writeln (' Jumlah Data Yang Sudah Masuk : ',B_Data);
Writeln;
Write(' No. Induk : ');
Readln (No_Siswa);
Write(' Nilai : ');
Readln (Bil);
Nilai:=0;
B_Data:=0;
Clrscr;
While No_Siswa <> 'xx' do
Begin
B_Data:=B_Data+1;
Nilai:=Nilai+Bil;
Writeln;
Writeln(' Program Penghitung Nilai Rata-Rata Kelas');
Writeln(' ----------------------------------------');
Writeln;
Writeln (' Jumlah Data Yang Sudah Masuk : ',B_Data);
Writeln;
Write(' No. Induk : ');
Readln (No_Siswa);
Write(' Nilai : ');
Readln (Bil);
Clrscr;
End;
Rata := Nilai/B_Data;
Writeln;
Writeln(' Hasil Perhitungan Nilai Rata-Rata Kelas');
Writeln(' ---------------------------------------');
Writeln;
Writeln (' Jumlah Data = ',B_Data);
Writeln (' Nilai Total = ',Nilai);
Writeln (' Rata-rata = ',Rata:5:2);
End.

16 Responses to Pascal :: Menghitung Nilai Rata-Rata Kelas

  1. lukman says:

    pak k’ g bsa d jlankn walaupun di akhri xx,,,,,,,,?
    n ylong bwtkan program menghitung rata-rata, simpangan baku dan varians yang jdi satu program

  2. … [Trackback]

    […] Find More on|Find More|Find More Infos here|Here you will find 55739 additional Infos|Infos on that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  3. … [Trackback]

    […] Read More here|Read More|Read More Infos here|Here you will find 7992 additional Infos|Infos to that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  4. Bdsm says:

    … [Trackback]

    […] Find More on|Find More|Find More Informations here|There you can find 74074 more Informations|Informations on that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  5. must watch says:

    … [Trackback]

    […] Find More here|Find More|Read More Infos here|Here you will find 84619 more Infos|Infos on that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  6. TS Escorts says:

    … [Trackback]

    […] Read More on|Read More|Find More Informations here|Here you can find 49710 more Informations|Informations to that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  7. More Info says:

    … [Trackback]

    […] Find More here|Find More|Find More Informations here|Here you will find 81030 more Informations|Infos on that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  8. … [Trackback]

    […] Find More here|Find More|Find More Infos here|Here you will find 20090 more Infos|Infos to that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  9. … [Trackback]

    […] Read More here|Read More|Find More Informations here|Here you will find 89236 additional Informations|Infos on that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  10. … [Trackback]

    […] Find More on|Find More|Read More Informations here|Here you can find 21717 more Informations|Informations to that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  11. … [Trackback]

    […] Find More here|Find More|Read More Informations here|Here you will find 42562 additional Informations|Infos to that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  12. … [Trackback]

    […] Read More here|Read More|Read More Infos here|Here you will find 65621 additional Infos|Infos on that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  13. … [Trackback]

    […] Read More here|Read More|Read More Informations here|There you will find 1430 additional Informations|Infos to that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  14. … [Trackback]

    […] Read More here|Read More|Read More Informations here|There you can find 31673 more Informations|Infos to that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  15. … [Trackback]

    […] Find More on|Find More|Read More Infos here|Here you can find 90712 more Infos|Infos on that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

  16. … [Trackback]

    […] Read More here|Read More|Find More Infos here|There you will find 55985 additional Infos|Infos on that Topic: blog.loksado.com/pascal-menghitung-nilai-rata-rata-kelas […]

Mari berdiskusi dengan santun...