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.

Sumber : Link