tugas ke-8 "input data"

brikut coding input data mahasiswa untuk memnuhi tugas 8 algoritma danpemrograman (pascal)

Uses crt;

procedure tampil;

begin

      gotoxy(13,14);writeln('======================================================');

      gotoxy(13,15);writeln('----------               DATA               ----------');

      gotoxy(13,16);writeln('**********         NILAI DAN UMUR           **********');

      gotoxy(13,17);writeln('======  SEKOLAH TINGGI TEKNOLOGINURUL JADID   ======= ');

      gotoxy(13,18);writeln('======================================================');

end;

procedure gratis;

begin

           gotoxy(7,21);writeln('====+===========+===============+=============+===============');

      textbackground(3);

               gotoxy(7,22);writeln('|NO | NIM       | NAMA          | NILAI       | UMUR         |');

               textbackground(0);

             gotoxy(7,23);writeln('====+===========+===============+=============+===============');

             

end;

var

      nim   : array[1..10] of string[8];

      nama  : array[1..10] of string[15];

      nilai : array[1..10] of real;

      umur  : array[1..10] of byte;

      banyak,i,x: longint;

begin

clrscr;

      write('MASUKKAN JUMLAH DATA :');readln(banyak);

       for i := 1 to banyak do

        begin

        //clrscr;

        writeLN('DATA KE ',i);

        write(' nim  =');readln(nim[i]);

        write(' nama =');readln(nama[i]);

        write(' nilai =');readln(nilai[i]);

        write(' umur =');readln(umur[i]);

        end;

           clrscr;

           tampil;

           gratis;

           for i :=1 to banyak do

           begin

            textbackground(0);

            textcolor(i);

            gotoxy(7,23+i);   write('|',i);

            gotoxy(11,23+i);  write('| ',nim[i]);

            gotoxy(23,23+i);  write('| ',nama[i]);

            gotoxy(39,23+i);  write('| ',nilai[i]:0:0);

            gotoxy(53,23+i);  write('| ',umur[i]);

            gotoxy(68,23+i);  writeln('|');

            end;

            textbackground(0);

            gotoxy(7,24+i); writeln('==============================================================');

writeln('created by: khairul anas nur islam hadi ')

          readln;

end.

selengkapnya bisa di download di