AnaK KoS EnTerTaiNmEnT

Ganti tulisan berwarna hijau ( E:gaji.dat ) sesuai kebutuhan anda, jika program tidak dapat running... atau download file nya disini ... { Program File } { Copyright By. Muss Mulyadie } Program File_1; uses crt; type     pegawai=record     nip : longint;     nmp : string[20];     gol : byte; end; var    rec_peg : pegawai;    file_peg : File of Pegawai;    benar,lagi : char;    pil,no : integer;    gp,totgp : longint; procedure entry; begin      assign(file_peg,' E:gaji.dat '); { rancang sebuah file dengan nama gaji.dat }      rewrite(file_peg);      benar:='T';      while upcase(benar)='T' do      begin      clrscr;      with rec_peg do      begin           writeln('ENTRY DATA GAJI');           writeln('<<<<<<<<>>>>>>>');           write('No. Induk Pegawai :');readln(nip);           write('Nama Pegawai      :');readln(nmp);           write('Golong

Contoh ini menggunakan for, jika ingin menggantinya denga fungsi yang lain anda dapat melihat caranya disini program Latihan8; uses crt; var    jd,i,dt : integer;    rata,tot: real; begin clrscr; for i:=1 to 5 do begin      write('Data Ke-',i,':');readln(dt);      tot:=tot+dt;      jd:=jd+1; end;      writeln('=========================');      writeln('Jumlah Data       :',jd);      writeln('Total Data        :',tot:6:2);      rata:=tot/jd;      writeln('Rata-Rata         :',rata:6:2);      readln; end.

*** Aku Merindukan Mu Di setiap kedipan mata ku *** Ku lukis bayang mu di sketsa hidup ku Detail tak ku memudar Kan ku ingat stiap goresan titik terang & gelap di sudut cahaya mu *** Mungkin mudah qw hapus lukisan ini Butuh waktu bertahun merangkainya *** Berulang ku rajut robekan itu Hingga bertubi kau lakukan dan lagi *** Semua bagai pancaroba Musim berganti tak tentu apa yang kau mau *** Aku hanya hinaan yang tak laen adalah sepah *** Manis mu telanlah sendiri Ku simpan pahit untuk kenangan *** Aku kan bermimpi lagi

-Gunakan CE -Scan Gold -Ganti address & value nya sesuai dengan ketentuan di bawah ini... xxxxx8c - Wind, Dodge and Agility Hack[Max 255] xxxxx88 - Water and Chakra Hack [max:64655] xxxxx84 - Fire and Damage Hack [max:64655] xxxxx90 - Earth and HP Hack [max:64655] xxxxx94 - Lightning and Hack Critical [max:64655]

Program ContohIf; uses crt; var NF:string[10];     tgl:string[10];     np:string[15];     al:string[25];     nb:string[10];     kb:char;     tba,dis,tb,h,jp:real; begin      clrscr;      writeln('ENTRY DATA TRANSAKSI');      writeln('====================');      write('No Faktur              :');readln(nf);      write('Tgl. Transaksi         :');readln(tgl);      write('Nama Pembeli           :');readln(np);      write('Alamat                 :');readln(al);      write('Kode Barang A/B/C      :');readln(kb);      write('Jumlah Pesan           :');readln(jp);      if(kb='A') then begin nb:='BUKU'; H:=1000; end else      if(kb='B') then begin nb:='PENA'; H:=2000; end else      if(kb='C') then begin nb:='PENCIL'; H:=500; end else                       begin nb:='Tidak Ada'; H:=0; end;      writeln;      writeln('Nama Barang       :',nb);      writeln('Harga  

program pro; uses crt; var    tothg,hrgs,dis,hrg,jmlpj,pj,hrgp,hrgd: real;    jum,pil: integer;    ulang: boolean;    lagi: char;    kdbr: string[10];    nmbrg: string[25]; procedure hitungtotalharga; begin      tothg:=jum*hrgs; end; procedure hitungdiskon; begin      dis:=dis/100*tothg;      hrgd:=tothg-dis; end; procedure hitungpajak; begin      jmlpj:=pj/100*tothg;      hrgp:=tothg+jmlpj; end; {Program Utama} begin      ulang:=true;      while ulang do      begin           clrscr;           writeln('Menu Utama');           writeln;           writeln('1. Hitung Total Harga');           writeln('2. Hitung Diskon');           writeln('3. Hitung Pajak Total Harga');           writeln('4. Selesai');           writeln;           write('Pilih : -');readln(pil);           case pil of                1:begin                       lagi:='Y';                       while upcase(lagi)='Y' do                       begin               

Extract to C: (Partisi Sistem) Download

Contoh Penggunaan While, For & Repeat pada Pascal... Program Contohfor; uses crt; var    c,r,f: real;    i : integer; begin      clrscr;      writeln('');      writeln('Tabel Konversi Suhu');      writeln('========================================');      writeln('||Celcius      Reamur        Farenheit||');      writeln('========================================');      c:=10;      for i:=1 to 5 do          begin               write(c:6:0);               r:=c*0.8; f:=c*1.8+32;               writeln('        ',r:6:2,'          ',f:6:2);               c:=c+5;          end;      writeln('========================================');      readln; end.

Kali ini saya akan share Modul HTML, namun ini hanya contoh-contoh sederhana saja, cocok untuk pemula seperti saya... http://www.4shared.com/file/2RZFdqD0/Contoh-contoh_HTML.html

Kalau tadi Modul Bahasa C, Sekarang saya share modul Sistem Operasi, Silahkan Download... http://www.4shared.com/document/t6WKFGE7/SistemOperasi.html

Masih seputar program Bahasa C, saya akan share Modul Bahasa C untuk pemula, silahkan Download... http://www.4shared.com/document/fNE3Umd_/Bahasa_C.html

Lama sudah gak posting, kali ini saya akan berbagi program sederhana hasil karya saya, . Langsung azha lihat SS nya... Tampilan Input Tampilan Output Sebenarnya ini adalah contoh program Looping menggunakan Do-While, namun perulangan tersebut tidak berjalan pada tampilan output... Download File exe. Untuk Syntax Code nya akan saya posting pada kesempatan lain...