Program Input dan Hitung Nilai Siswa dengan Turbo Pascal

Sahabat semua saya akan sedikit berbagi lagi, kali ini saya akan berbagi ilmu dengan kalian. Saya akan sampaikan apa saya pahami dengan array pascal. Karena saya sebenarnya juga masih tahap belajar. Jadi nanti jika ada kesalahan dan kekurangan mohon maklumi dan untuk yang punya kesulitan boleh coret - coret di komen yaa.
Saya kira tidak-lah baik jika saya panjang lebarkan lagi pembukaan ini, maka kita langsung saja coba scriptnya ini.


PROGRAM COBA; USES CRT; VAR NM : ARRAY[1..100] OF STRING[15]; NL : ARRAY[1..100] OF INTEGER; X, JD,JML,NMIN,NMAX : INTEGER; TANYA : CHAR; RATA : REAL; BEGIN X:=0; REPEAT X:=X+1; CLRSCR; WRITELN('DATA KE : ', X:3); WRITE('NAMA SISWA :');READLN(NM[X]); WRITE('NILAI :');READLN(NL[X]); WRITELN; WRITE('MASIH ADA DATA Y/T: ');READLN(TANYA); UNTIL TANYA='T'; JD:=X; X:=0; CLRSCR; WRITELN(' DAFTAR NILAI'); WRITELN('========================================'); WRITELN(' NO NAMA SISWA NILAI'); WRITELN('----------------------------------------'); JML:=0; NMIN:=NL[1]; NMAX:=NL[1]; REPEAT X:=X+1; IF NL[X]<nmin THEN NMIN:=NL[X]; IF NL[X]>NMAX THEN NMAX:=NL[X]; WRITELN(X:3,NM[X]:15,NL[X]:15); JML:=JML+NL[X]; UNTIL X=JD; WRITELN('========================================'); RATA:=JML/JD; WRITELN('RATA-RATA : ', RATA:5:2); WRITELN('NILAI TERTINGGI : ', NMAX:3); WRITELN('NILAI TERENDAH : ', NMIN:3); READLN; END.

Selesai deh, buat yang mau coba silahkan di copy scrpt di atas.

Semoga Bermanfaat ^_^


Keyword : Program Input dan Hitung Nilai Siswa dengan Turbo Pascal Program Input dan Hitung Nilai Siswa dengan Turbo Pascal 7.1 Program Input Nilai Siswa dengan Turbo Pascal Program Hitung Nilai Siswa dengan Turbo Pascal