Sabtu, 19 Mei 2012

0 komentar

program RAPOR_SEMENTARA;
uses crt;
type
   M = record
     nmk,kode    :array[1..10] of string;
     nl          :array[1..10] of char;
     sks,nilai   :array[1..10] of integer;
end;

var
   w:M;
   ftext                               : text;
   nama,nim,prog                       : string;
   i,j,pl                              : byte;
   total_sks,tn,total_nilai            : integer;
   ip                                  : real;

label menu;
begin
clrscr;

menu:
assign(ftext,'cetak isi KRS.doc');
rewrite(ftext);

       gotoxy(5,1);writeln('--------------------------------------------------------------------');
       gotoxy(21,2);writeln('          JURUSAN MATEMATIKA        ');
       gotoxy(17,3);writeln('FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM');
       gotoxy(30,4);writeln('UNIVERSITAS HASANUDDIN');
       gotoxy(5,5);writeln('--------------------------------------------------------------------');
       writeln;
       gotoxy(27,7);writeln('*KARTU HASIL STUDI SEMESTER*');
       writeln;
       gotoxy(5,9);write('SEMESTER : 2011/2');

       gotoxy(50,9);write('PROG STUDI: ');readln(prog);
       if prog <>'' then

       begin
       gotoxy(5,10);write('Nama    : ');readln(nama);
       if nama <>'' then

       begin
       gotoxy(5,11);write('NIM     : ');readln(nim);
       if nim <>'' then

       begin
       gotoxy(5,12);writeln('====================================================================');
       gotoxy(5,13);writeln('| NO |  Kode Mata Kuliah  |     nama mata kuliah   |  sks  | nilai |');
       gotoxy(5,14);writeln('====================================================================');

       i:=0;
       total_sks:=0;
       repeat
       i:=i+1;

       gotoxy(5,14+i);write('|',i);
       gotoxy(10,14+i);write('|');
       gotoxy(12,14+i);readln(w.kode[i]);
         if(w.kode[i]) <>'' then
         begin

         gotoxy(31,14+i);write('|');
         gotoxy(34,14+i);readln(w.nmk[i]);
         gotoxy(56,14+i);write('|');
         gotoxy(59,14+i);readln(w.sks[i]);

       gotoxy(64,14+i);write('|');readln;
       gotoxy(68,14+i);readln(w.nl[i]);
       gotoxy(72,14+i);write('|');

       total_sks:=total_sks+w.sks[i];


       if upcase(w.nl[i])='A' then
       begin w.nilai[i]:=4;
       end
       else

       if upcase(w.nl[i])='B' then
       begin w.nilai[i]:=3;
       end
       else
       if upcase(w.nl[i])='C'then
       begin w.nilai[i]:=2;
       end
       else
       if upcase(w.nl[i])='D'then
       begin w.nilai[i]:=1
       end
       else
       w.nilai[i]:=0;
       end;
        tn:=0;
       tn:=tn+w.nilai[i];
       total_nilai:=0;
       total_nilai:=total_nilai+(w.nilai[i]*w.sks[i]);
       ip:=total_nilai/total_sks;
       until w.kode[i]='';



       j:=i-1;
       gotoxy(5,15+j);write('===================================================================');
       gotoxy(5,15+j+1);write('Total Sks : ',total_sks);

       gotoxy(5,15+j+2);write('total sks * nilai : ',total_nilai);

       gotoxy(5,15+j+3);write('IP: ',ip);
       gotoxy(5,15+j+4);write('=================================================================');
       close(ftext);

       end;

       begin
       gotoxy(5,15+j+5);writeln('1  : CETAK KE FILE RAPOR.DOC');
       gotoxy(5,15+j+6);writeln('2  : Input Ulang');
       gotoxy(5,15+j+7);writeln('3  : EXIT');
       gotoxy(5,15+j+8);write('pilihan: ');readln(pl);

       case pl of

       1:
       begin
       assign(ftext,'cetak KRS.doc');
       rewrite(ftext);

       writeln(ftext,'=================================================================');
       writeln(ftext,'                        JURUSAN MATEMATIKA                       ');
       writeln(ftext,'          FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM          ');
       writeln(ftext,'                      UNIVERSITAS HASANUDDIN                     ');
       writeln(ftext,'=================================================================');
       writeln(ftext,'                  * KARTU HASIL STUDI SEMESTER*                        ');
       writeln(ftext,'');
       writeln(ftext,'');
       writeln(ftext,'SEMESTER   : 2011/2                  PROGRAM STUDI : ',prog       );
       writeln(ftext,'NAMA       : ',nama);
       writeln(ftext,'NIM        : ',nim);
       writeln(ftext,'');
       writeln(ftext,'=================================================================');
       writeln(ftext,'| No | KODE MATAKULIAH |     NAMA MATAKULIAH      | SKS | NILAI |');
       writeln(ftext,'=================================================================');

       i:=0;
       REPEAT
       i:=i+1;
       if w.kode[i] <>'' then

       writeln(ftext,'|',i:4,'|',w.kode[i]:17,'|',w.nmk[i]:26,'|',w.sks[i]:5,'|',w.nilai[i],'|');
       until w.kode[i]='' ;

       writeln(ftext,'===================================================================');
       writeln(ftext,'');
       writeln(ftext,'TOTAL SKS             : ',total_sks);
       writeln(ftext,'TOTAL SKS * NILAI     : ',total_nilai);
       writeln(ftext,'IP                    : ',ip:0:0);
       writeln(ftext,'===================================================================');
       close(ftext);
     end;

       2 :
        goto menu;
       3 :
        end;
     end;

         begin
         writeln('DATA TELAH DICETAK');
         readln;
         end;
          end;

end;
end.

program pascal menggunakan data file

0 komentar

program input nama;
uses crt;
var
   ftext        : text;
   x,y,z        : string;
   n            : array[1..20] of string;
   i            : integer;

begin
clrscr;

writeln('INPUT NAMA FILE DAN LETAKNYA , CONTOH => D:\EDY.txt');readln;
writeln('----------------------------------------------------');readln;

write('nama file : ');readln(x);
write('posisi : ');readln(y);

assign(ftext,x+y);
rewrite(ftext);

writeln('----------------------------------------------------');
write('input nama mata kuliah : ');readln(z);
writeln('----------------------------------------------------');
writeln('Masukkkan nama mahasiswa yang mengambil mata kuliah ',z,',satu perbaris.');
writeln('Masukkan baris kosong jika ingin selesai');readln;

 i:=0;
 repeat
 i:=i+1;
 write(i,'. ');readln(n[i]);
 readln;
 until n[i]='';

 begin
 writeln(ftext,'-------------------------------------------------------------');
 writeln(ftext,'MATA KULIAH : ',z);
 writeln(ftext,'-------------------------------------------------------------');
 writeln(ftext,'Nama-nama Mahasiswa yang mengambil mata kuliah ini : ');

 i:=0;
 repeat
 i:=i+1;

 if n[i]<> '' then
 writeln(ftext,i,'.',n[i]);
 until n[i]='';

 writeln(ftext,'=============================================================');
 writeln('Nama-nama mahasiswa telah tersimpan di dalam file ',x,'',y,'');readln;
 close(ftext);

 readln;
 end;end.