Niali Pemrograman Terstuktur

{SAMSUL MA'ARIF}
uses crt;
type
    recnilai=record
            nim:real;
            nama:string;
            niltgs: real;
            niluts:real;
            nilabsen:real;
            niluas:real;


  end;
var
   nilai :array[1..10] of recnilai;
   i,n: integer;
   NA:real;
   gr:string;
   Ket:string;

procedure isidata;
     begin
     clrscr;
     writeln('Mengisi data');
     for i:=1 to n do
     begin
     clrscr;
     gotoxy(2,24);writeln('Copyright@SAMSUL MAARIF Programer.com');
         gotoxy(2,2);writeln('Data ke-',i);
         gotoxy(2,4);write('NIM         : ');readln(nilai[i].nim);
         gotoxy(2,5);write('Nama        : ');readln(nilai[i].nama);
         gotoxy(2,6);write('NILAI ABSEN : ');readln(nilai[i].nilabsen);
         gotoxy(2,7);write('NILAI TUGAS : ');readln(nilai[i].niltgs);
         gotoxy(2,8);write('NILAI UTS   : ');readln(nilai[i].niluts);
         gotoxy(2,9);write('NILAI UAS   : ');readln(nilai[i].niluas);
     end;
end;
     procedure cetakdata;
          begin
            Clrscr;
            GotoXY(3,3);Writeln('DAFTAR NILAI SISWA');
            GotoXY(3,4);Writeln('============================================================================');
            GotoXY(3,5);Writeln('|');
            GotoXY(78,5);Writeln('|');
            GotoXY(5,5);Write('NO');
            GotoXY(8,5);Write('NIM');
            GotoXY(15,5);Write('NAMA SISWA');
            GotoXY(27,5);Write('N.ABSEN');
            GotoXY(36,5);Write('N.TUGAS');
            GotoXY(45,5);Write('N.UTS');
            GotoXY(52,5);Write('N.UAS');
            GotoXY(59,5);Write('N.A');
            GotoXY(65,5);Write('GRD');
            GotoXY(70,5);Write('KET');
            GotoXY(3,6);Writeln('============================================================================');
            gotoxy(2,24);writeln('Copyright@SAMSUL MAARIF Programer.com');
            gotoxy(50,22);writeln('NB:  N.A= Nilai Akhir');
            gotoxy(55,23);writeln('GRD= Grade');


            {gotoxy(50,24);writeln('code:Pas v1.3,Auto Logout in');}
            For i:=1 to n do
                Begin
                     na:=(0.1* nilai[i].nilabsen)+(0.25 * nilai[i].niltgs)+(0.25 * nilai[i].niluts) + (0.4 * nilai[i].niluas);
                     if na>=85 then
                     begin
                         gr:='A';
                         ket:='LULUS'
                     end else if (na>=75) and (na<=84) then
                     begin
                          gr:='B';
                          ket:='LULUS'
                     end else if (na>=60) and (na<=74) then
                     begin
                         gr:='C';
                         ket:='LULUS'
                     end else if (na>=45) and (na<=59) then
                     begin
                         gr:='D';
                         ket:='REMEDIAL'
                     end else
                     begin
                         gr:='E';
                          ket:='GAGAL'


                     end;
                     GotoXY(78,6+i);Writeln('|');
                     GotoXY(3,6+i);Writeln('|');
                     GotoXY(5,6+i);Write(i);
                     GotoXY(8,6+i);Write(nilai[i].nim:0:0);
                     GotoXY(15,6+i);Write(nilai[i].nama);
                     GotoXY(27,6+i);Write(nilai[i].nilabsen:0:1);
                     GotoXY(36,6+i);Write(nilai[i].niltgs:0:1);
                     GotoXY(45,6+i);Write(nilai[i].niluts:0:1);
                     GotoXY(52,6+i);Write(nilai[i].niluas:0:1);
                     GotoXY(59,6+i);Write(na:0:1);
                     GotoXY(66,6+i);Write(gr);
                     GotoXY(70,6+i);Write(ket);

    end;
     GotoXY(3,6+i+1);Writeln('============================================================================');
 end;
  Procedure gerak;
       begin

            for i:=1 to 10 do
       begin
            clrscr;
            textcolor(7);
            gotoxy(35, 12-i); write('PROGRAM');
            gotoxy(5+i*2,2); write('APLIKASI');
            gotoxy(65-i*2,2); write('SEDERHANA');
            delay(50000);
       end;
  End;

  begin
  clrscr;
       {gerak;}
       {gotoxy(26,14);write('Tekan enten u/ input data:');}
       gotoxy(2,24);writeln('Copyright@SAMSUL MAARIF Programer.com');
       gotoxy(2,4);write('Berapa Data [maks. 10] : ');readln(n);
     isidata;

             cetakdata;
   readln;
end.


http://id.wikipedia.org/wiki/Pemrograman_terstruktur