Biaya Kuliah

Program Pembayaran_kuliah;
{By: Samsul Ma'arif}
uses crt;
type
  recdata = record
     kd_bayar: integer;
nama : string;
bikul : integer;
uma : integer;
ktm : integer;
almamater : integer;
  end;
const biaya = 1.000000;
var
  Data : Array [1..20] of recdata;
  ttl_bayar : real;
  ket : string;
  i,n : integer;
  Ul : Char;

Procedure IsiData;
    Begin
    For i:=1 to n do
Begin
        Writeln;
        Writeln('Data ke-',i);
        Write('KODE            : ');Readln(data[i].kd_bayar);
        Write('Nama            : ');Readln(data[i].nama);
        Write('BIKUL           : ');Readln(data[i].bikul);
        Write('UMA             : ');Readln(data[i].uma);
Write('KTM             : ');Readln(data[i].ktm);
Write('AlMAMATER       : ');Readln(data[i].almamater);
    End;
End;

Procedure CetakData;
Begin
    Clrscr;
    GotoXY(20,1);Writeln('DAFTAR PEMBAYARAN');
    GotoXY(1,4);Writeln('========================================================');
    GotoXY(2,5);Write('NO');
    GotoXY(5,5);Write('KODE');
    GotoXY(9,5);Write('NAMA');
    GotoXY(25,5);Write('BIKUL');
    GotoXY(35,5);Write('UMA');
    GotoXY(44,5);Write('KTM');
    GotoXY(51,5);Write('ALMAMATER');
    GotoXY(58,5);Write('BIAYA');
    GotoXY(66,5);Write('TOTAL');
    GotoXY(72,5);Write('KET');
    GotoXY(1,6);Writeln('========================================================');
    For i:=1 to n do
    Begin
       ttl_bayar := data[i].bikul + data[i].uma + data[i].ktm + data[i].almamater;
if ttl_bayar >=1.000000 then
begin
  ket := 'LUNAS';
                   end
                   else
                   begin
                      ket := 'BELUM';
end;

        GotoXY(2,6+i);Write(i);
        GotoXY(5,6+i);Write(data[i].kd_bayar);
        GotoXY(9,6+i);Write(data[i].nama);
        GotoXY(25,6+i);Write(data[i].bikul:2);
        GotoXY(35,6+i);Write(data[i].uma:4);
        GotoXY(44,6+i);Write(data[i].ktm:4);
GotoXY(51,6+i);Write(data[i].almamater:4);
GotoXY(58,6+i);Write(biaya:3);
GotoXY(68,6+i);Write(ttl_bayar:0:2);
GotoXY(72,6+i);Write(ket);
End;

        GotoXY(1,6+i+1);Writeln('===================================================');
End;

Begin
    Repeat
    Clrscr;
    Write('Masukkan Data  : ');Readln(n);
    IsiData;
    CetakData;
    Writeln;
    Write('Mau Ulang Lagi.? [Y/T]: ');Readln(Ul);
    Until Upcase(Ul)<>'Y';
    Writeln('Copy@SAMSUL MAARIF');
    Readln;
End.

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