Array dalam Turbo Pascal

Kawan semua saya akan berbagi tips dengan kalian, kali ini saya akan menshare tentang membuat Array dengan Turbo Pascal. Turbo Pascal yang saya pakai yaitu Turbo Pascal 7.1 jika anda mempunyai yang versi lain silahkan saja karena hampir sama dengan yang versi ini.  sebenarnya Turbo Pascal hampir sama dengan C++ namun ada beberapa hal yang berbeda  Kelebihannya yaitu bahasa yang dipakai dan ada kriteria tertentu yang berbeda.  Jika kita membuat array dengan menggunakan C++ maka kita tidak memerlukan perintah array untuk mendeklarasikannya. berbeda dengan Turbo Pascal, di Turbo Pascal jika ingin membuat array maka harus mendeklasikan perintah untuk memperkenalkannya.

Langsung saja kita ke kasus nya, flowchartnya adalah sebagai berikut : 

Untuk scriptnya berikut 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 data-blogger-escaped-if="" data-blogger-escaped-nl="" data-blogger-escaped-nmin:="NL[X];" data-blogger-escaped-then="">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.
Untuk program yang sudah jadi silahkan download di lin berikut ini

Download

Terima kasih semoga bermanfaat (^_^)