KUIS PASCAL KARIN

PROGRAM KUIS PASCAL;
USES WINCRT;
VAR
MENU : INTEGER ;
LG : CHAR ;
PROCEDURE NILAI;
VAR A,SISWA:INTEGER;
NILAI, TOTAL, TINGGI, RENDAH, RATA : REAL;

BEGIN
TOTAL:=0;
WRITE('JUMLAH SISWA : ');READLN (SISWA);
WRITELN;
FOR A := 1 TO SISWA DO
BEGIN
     WRITE('NILAI SISWA KE',A,':');READLN(NILAI);
     TOTAL :=TOTAL+NILAI;
     IF A= 1 THEN BEGIN
        TINGGI := NILAI;
        RENDAH := NILAI;
     END
     ELSE BEGIN
     IF NILAI > TINGGI THEN TINGGI := NILAI
     ELSE BEGIN
     IF NILAI < RENDAH THEN RENDAH:=NILAI;
     END;
     END;
END;
RATA:= TOTAL / SISWA;
WRITELN;
WRITELN ('NILAI TERENDAH        :',RENDAH:1:2);
WRITELN ('NILAI TERTINGGI       :',TINGGI:1:2);
WRITELN ('RATA - RATA           :',RATA:1:2);
END;
PROCEDURE DATA_MAHASISWA;
TYPE MAHASISWA = RECORD
NIM  : STRING[8];
NAMA : STRING[25];
UMUR :INTEGER;
END;
VAR
DATA:MAHASISWA;
BEGIN
WRITELN ('MASUKAN DATA DIRI ANDA :');
WRITE   ('NIM     :');READLN(DATA.NIM);
WRITE   ('NAMA    :');READLN(DATA.NAMA);
WRITE   ('UMUR    :');READLN(DATA.UMUR);
WRITELN;

WRITELN('BERIKUT INI INFORMASI DATA DIRI YANG TELAH ANDA MASUKAN : ');
WRITELN('NIM     : ', DATA.NIM);
WRITELN('NAMA    : ',DATA.NAMA);
WRITELN('UMUR    : ',DATA.UMUR);
READLN;
END;
BEGIN
REPEAT CLRSCR;
WRITELN('MENU KUIS PASCAL');
WRITELN('1.PROCEDURE NILAI');
WRITELN('2.PROCEDURE DATA_MAHASISWA');
WRITELN('3.EXIT');
WRITE('PILIH MENU (1/2/3) : ');READLN(MENU);
CASE MENU OF
1:NILAI;
2:DATA_MAHASISWA;
3:EXIT;
END;
WRITE('MAU PILIH LAGI (Y/T):');
READLN(LG);
UNTIL UPCASE (LG)<>'Y';
END.