P R O G R A M D A T A M A H A S I S W A

 P R O G R A M    D A T A   M A H A S I S W A

uses wincrt;

const max=15;  d   ='1234';

type mhs     =  record  

     nim     :  string[10];      nama    :  string[15];      alamat  :  string;      ttl     :  string;      jurusan :  string;

     kelas   :  string;      prog    : string;      total     :real;    end;

Jml=array [1..max] of mhs; {deklarasi array dari type mhs sebanyak 10 buah}

var      data         :mhs;       c            :jml;          i,n,j        :integer;          pil          :char;

         a,t,q,ut,us  :real;          nama         :string;    pass         :string;      

 begin

n:=0;

REPEAT

clrscr;

gotoxy(35,6);writeln('Masuk');

gotoxy(30,7);writeln('_____________');

gotoxy(30,9);write('| nama     : ');readln(nama);

gotoxy(30,10);write('| pass     : ');readln(pass);

if pass=d then

begin 

repeat

clrscr;

gotoxy(37,1);writeln('SELAMAT DATANG ',nama);

gotoxy(20,5);writeln('|  P R O G R A M    D A T A   M A H A S I S W A   |');

gotoxy(37,6);writeln('mohamad echa putra');

gotoxy(19,7);writeln('|==================================================|');

gotoxy(35,9);writeln('***** MENU ***** ');

gotoxy(35,10);writeln('==================');

gotoxy(35,11);write('1.TAMBAH DATA MAHASISWA ');

gotoxy(35,12);write('2.TAMPILAN ');

gotoxy(35,13);write('3.KELUAR ');

gotoxy(19,14);writeln('|-------------------------------------------------|');

gotoxy(20,15);write('1..3 PILIHAN : ');pil:=readkey;

 case pil of

'1':begin

    repeat

          clrscr;

          n:=n+1;

          gotoxy(30,1);writeln('PROGRAM DATA MAHASISWA');

          gotoxy(30,2);writeln('mohamad echa putra');

          gotoxy(20,3);writeln('--------------------------------------------');

            gotoxy(20,4);write('NIM             : ');readln(c[n].nim);

            gotoxy(20,5);write('NAMA            : ');readln(c[n].nama);

            gotoxy(20,6);write('TTL             : ');readln(c[n].ttl);

            gotoxy(20,7);write('JURUSAN         : ');readln(c[n].jurusan);

            gotoxy(20,8);write('SEMESTER        : ');readln(c[n].kelas);

            clrscr;

            gotoxy(30,1);writeln(' NILAI ');

            gotoxy(30,2);writeln('mohamad echa putra');

            gotoxy(20,3);writeln('-------------------------------------------');

            gotoxy(20,5);write('PROGRAM STUDY   : ');readln(c[n].prog);

            gotoxy(20,6);write('AKTIVITAS       : ');readln(a);

            gotoxy(20,7);write('TUGAS           : ');readln(t);

            gotoxy(20,8);write('QUIZ            : ');readln(q);

            gotoxy(20,9);write('UTS             : ');readln(ut);

            gotoxy(20,10);write('UAS             : ');readln(us);

            gotoxy(20,11);writeln('-------------------------------------------');

            c[n].total:=0.1*a+0.2*t+0.3*q+0.4*ut+05*us;

            gotoxy(20,12);write('TAMBAH DATA BARU [Y/T] : ');pil:=readkey;

    until upcase (pil)<>'Y';

    end;

'2' :begin

     repeat

       clrscr;

       gotoxy(30,1);writeln('|     DATA MAHASISWA       |'); writeln('===============================================================================');

       writeln('NIM         |NAMA           |TTL            |JURUSAN       |SEMESTER'); writeln('_______________________________________________________________________________');

         for i:=1 to n do

           begin

            writeln(c[i].nim:10,' | ',c[i].nama:12,' | ',c[i].ttl:13,' | ',c[i].jurusan:8,' | ',c[i].kelas:8,' | ');

           end; writeln('===========================================================================');

       writeln('NAMA        | PROGRAM STUDY        | NILAI  ');

         for i:=1 to n do

           begin

            writeln(c[i].nama:10,'|',c[i].prog:10,'|',c[i].total:15:2,'|');

writeln('__________________________________________________________________________');

           end;

       write('KEMBALI KE MENU [Y/T] : ');pil:=readkey;

       until upcase (pil)<>'T';

       end;

‘3’           :BEGIN

                DONEWINCRT;

                END;

end;

until pil='3';

end

else

begin;

writeln('maff pass anda salah ');

end;

clrscr;

gotoxy(35,10);write('mencoba masuk kembali [Y/N] : ');readln(pil);

until upcase(pil)<>'Y';

donewincrt;

end.