Menu Close

Pascal – Menghitung Nilai Rata-Rata Kelas

Terakhir diperbaharui pada

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!

loading...
loading...

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.


DMCA.com Protection Status
Artikel ini dilidungi oleh DMCA Takedown Services & Website Content Protection. Dilarang Copy-Paste.
Yang mau ngajakin ngopi silahkan klik
Jangan lupa like kami di Facebook untuk update informasi terbaru:

Artikel ini berada dalam kategori Pascal

Artikel Terkait:

19 Komentar

  1. lukman

    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. Pingback:erektionsstörung

  3. Pingback:visit homepage

  4. Pingback:Bdsm

  5. Pingback:must watch

  6. Pingback:TS Escorts

  7. Pingback:More Info

  8. Pingback:St George Utah Real Estate

  9. Pingback:wiet hash kopen Nederland

  10. Pingback:Geruchsentferner

  11. Pingback:?????????, ???????????, ??????, ??????....

  12. Pingback:boot camp equipment

  13. Pingback:furnace service vancouver

  14. Pingback:http://www.funnelmode.com

  15. Pingback:Bermuda Triangle mystery in Hindi

  16. Pingback:lose weight plate

  17. Pingback:what is NFL game pass

  18. Pingback:make money with a iphone

  19. Pingback:Stix Events Hyderabad

Mari Berdiskusi

Chat via WA
1
Hai,
Semoga harimu menyenangkan...
Powered by