Pascal – Menghitung Nilai Rata-Rata Kelas

Hai teman-teman, jangan lupa subscribe Channel Youtube saya.
Subscribe tidak dipungut bayaran, mari dukung saya dengan klik tombol subscribe.


Ngobrol bareng seputar ngoprek mari bergabung di grup "Android TV dan STB".
Terakhir diupdate pada 10/02/2020 oleh Wira Loksado

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.

Was this helpful?


0 / 0


DMCA.com Protection Status
Artikel ini dilidungi oleh DMCA Takedown Services & Website Content Protection. Dilarang Copy-Paste.
Yang mau ngajakin ngopi silahkan klik

Hai teman-teman, jangan lupa subscribe Channel Youtube saya.
Subscribe tidak dipungut bayaran, mari dukung saya dengan klik tombol subscribe.


Ngobrol bareng seputar ngoprek mari bergabung di grup "Android TV dan STB".

Like Facebook Wira Loksado dengan menekan tombol "Suka" di bawah ini agar tetap update informasi terbaru:

Mari Berdiskusi

lukman

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

erektionsstörung

erektionsstörung

… [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 […]

visit homepage

visit homepage

… [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 […]

Bdsm

Bdsm

… [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 […]

must watch

must watch

… [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 […]

TS Escorts

TS Escorts

… [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 […]

More Info

More Info

… [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 […]

St George Utah Real Estate

St George Utah Real Estate

… [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 […]

wiet hash kopen Nederland

wiet hash kopen Nederland

… [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 […]

Geruchsentferner

Geruchsentferner

… [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 […]

?????????, ???????????, ??????, ??????....

?????????, ???????????, ??????, ??????....

… [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 […]

boot camp equipment

boot camp equipment

… [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 […]

furnace service vancouver

furnace service vancouver

… [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 […]

http://www.funnelmode.com

http://www.funnelmode.com

… [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 […]

Bermuda Triangle mystery in Hindi

Bermuda Triangle mystery in Hindi

… [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 […]

lose weight plate

lose weight plate

… [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 […]

what is NFL game pass

what is NFL game pass

… [Trackback]

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

make money with a iphone

make money with a iphone

… [Trackback]

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

Stix Events Hyderabad

Stix Events Hyderabad

… [Trackback]

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

Chat via WA
1
Kontak WA hanya untuk kepentingan donasi, tanya jawab silahkan gunakan kolom komentar pada akhir artikel.