semangat baru

apa yang kalian lakukan di tahun baru ini.............

pascal

PROGRAM UINPUT NILAI MAHASISWA

uses crt;
label
        ulangi,selesai;
procedure kop;
begin
        textbackground(0);
        textcolor(yellow);
        gotoxy(7,1);writeln('NAMA = LUKMANUL HAKIM');
        gotoxy(7,2);writeln('NIM/KLS = 11012356 / J');
        gotoxy(7,3);writeln('DOSEN PEMBIMBING = EKO PURNOMO,S.Kom.');
        textbackground(green);
        textcolor(yellow);
        gotoxy(13,5);writeln('*************** DATA INPUTAN NILAI ***************');
        gotoxy(13,6);writeln('************** UJIAN AKHIR SEMESTER **************');
        gotoxy(13,7);writeln('***************** STT NURUL JADID ****************');

end;
var
a,jml:longint;
U:string;
nim:array [1..10] of string;
jum:array[1..10] of longint;
rat:array[1..10] of real;
nama,ket:array [1..25] of string;
mtk,bhs,pas:array [1..10] of longint;
 begin
  clrscr;
  ulangi:
   kop;
   textbackground(0);
   writeln;
   write('MASUKKAN JUMLAH INPUTAN = ');
   readln(jml);
        for a:=1 to jml do
         begin
         clrscr;
           textcolor(yellow);
           writeln('NO   ',a);
           write('NIM   = ');readln(nim[a]);
           write('NAMA = ');readln(nama[a]);
           write('MTK = ');readln(mtk[a]);
           write('BHS = ');readln(bhs[a]);
           write('PAS = ');readln(pas[a]);
           jum[a]:=mtk[a]+ bhs[a]+ pas[a];
           rat[a]:=jum[a]/3;
           writeln;
         end;
         for a:= 1 to jml do
         begin
         clrscr;
         end;

        for a:= 1 to jml do
          begin
          clrscr;
          kop;
          textbackground(0);
          textcolor(white);
            gotoxy(3,10);writeln('+====+===========+==============+=====+=====+=====+=====+======+=====+');
            gotoxy(3,11);writeln('| NO |    NIM    |    NAMA      | MTK | BHS | PAS | JML | RATA | KET |');
            gotoxy(3,12);writeln('+----+-----------+--------------+-----+-----+-----+-----+------+-----+');
          end;
          for a:= 1 to jml do
          begin
          kop;
            textbackground(0);
            textcolor(white);
            gotoxy(3,a+12);write('|  ',a);
            gotoxy(8,a+12);write('| ',nim[a]);
            gotoxy(20,a+12);write('| ',nama[a]);
            gotoxy(35,a+12);write('| ',mtk[a]);
            gotoxy(41,a+12);write('| ',bhs[a]);
            gotoxy(47,a+12);write('| ',pas[a]);
            gotoxy(53,a+12);write('| ',jum[a]);
            gotoxy(59,a+12);write('| ',rat[a]:0:0);


           if (rat[a]>89) and (rat[a]<101)  then
           begin
           gotoxy(66,a+12); write('|  A');
           end
           else
           if (rat[a]>74) and (rat[a]<90) then
           begin
           gotoxy(66,a+12);write('|  B');
           end
           else
           if (rat[a]>59) and (rat[a]<75) then
           begin
           gotoxy(66,a+12);write('|  C');
           end
           else
           if (rat[a]<60) then
           begin
           gotoxy(66,a+12);write('|  D');

          end;

     gotoxy(72,a+12);write('|');

  end;
  gotoxy(3,13+a);writeln('======================================================================');
  writeln;
    write('INGIN MENGULANGI Y/T ? ');readln(U);
         if (U='y') OR (U='Y') then
                begin
                goto ulangi;
                end
         else
             begin
                goto selesai;
    end;
readln;
selesai:
end.
END.






   




   

This is default featured slide 1 title

Easy to customize it, from your blogger dashboard, not needed to know the codes etc. Video tutorial is available, also a support forum which will help to install template correctly. By DeluxeTemplates.net

This is default featured slide 2 title

Easy to customize it, from your blogger dashboard, not needed to know the codes etc. Video tutorial is available, also a support forum which will help to install template correctly. By DeluxeTemplates.net

This is default featured slide 3 title

Easy to customize it, from your blogger dashboard, not needed to know the codes etc. Video tutorial is available, also a support forum which will help to install template correctly. By DeluxeTemplates.net

This is default featured slide 4 title

Easy to customize it, from your blogger dashboard, not needed to know the codes etc. Video tutorial is available, also a support forum which will help to install template correctly. By DeluxeTemplates.net

This is default featured slide 5 title

Easy to customize it, from your blogger dashboard, not needed to know the codes etc. Video tutorial is available, also a support forum which will help to install template correctly. By DeluxeTemplates.net

Power Iso

PowerISO adalah sebuah aplikasi yang digunakan untuk membuat, membuka, mount / meniru, kompres, mengenkripsi, dan sebaliknya memanipulasi CD / DVD file gambar. Hal ini paling umum dikenal untuk format disk citra eksklusif DAA. Format yang didukung lainnya termasuk ISO, BIN, NRG, dan CDI. PowerISO dapat memodifikasi semua gambar CD format yang didukung, terutama ISO. Versi trial tidak dapat membuat atau mengedit gambar yang lebih besar dari 300 megabyte, tapi dapat membakar file dari berbagai ukuran untuk disk. Ukuran file maksimum PowerISO dapat memproses adalah 256GB Membuat, mengedit, ekstrak, mengkonversi, kompres, mengenkripsi, gunung CD file gambar! PowerISO adalah pengolahan gambar yang kuat dan alat kompresi file, yang memungkinkan Anda untuk membuat, ekstrak, kompres, mengedit dan mengkonversi ISO / BIN file gambar, dan me-mount file-file dengan virtual drive internal. Dan kebanyakan dari semua, file yang dikompresi dapat digunakan secara langsung tanpa dekompresi. Fitur Dukungan ISO, BIN, NRG, IMG, DAA Buka, Buat, Edit, Extract file ISO Compress, Encrypt, Split file ISO Terintegrasi dengan Virtual Drive internal Fitur Utama Mendukung hampir semua CD / DVD-ROM format file gambar (ISO, BIN, NRG, IMG, DAA dan sebagainya). Catatan: DAA (Direct-Access-Archive) adalah format canggih untuk file gambar, yang mendukung beberapa fitur canggih, seperti kompresi, proteksi password, pemecahan untuk multi-volume. Hal ini dapat ditangani langsung seperti format lain, seperti ISO, BIN, ... Mendukung on-the-fly pembakaran. Mendukung file gambar UDF. Buat file gambar dari file hard disk atau CD / DVD-ROM. Mengedit file gambar yang sudah ada. Dapat mengedit dan membakar file gambar CD Audio. Ekstrak file dan folder dari file gambar. Mengkonversi file gambar antara ISO / BIN dan format lainnya. Membuat file gambar bootable, dapatkan booting informasi dari file gambar bootable. Membuat file disk image floppy. Optimalkan file untuk menghemat ruang disk sambil menyimpan file gambar. Gunung file gambar dengan virtual drive internal. Bahkan jika file gambar disimpan sebagai format DAA, virtual drive dapat menangani format secara langsung. Mendukung integrasi shell, seperti menu konteks, Drag dan Drop, clipboard ... Mendukung parameter baris perintah. Dapat membuka file gambar XBOX. Mendukung beberapa bahasa