mungkin mxd ente: turbo delphi (ini jalan di windows dan free) sama turbo pascal 7 (ini program DOS dan jadul bgt). Terlihat dari sizenya: 22mb vs 2 mb.... :D :D :D
iya gan, semacem UPX... :D cuman kalo upx kan gampang bgt di un-compressed, nah kalo PECompact nih katanya sih rada2 susah.... Ya suatu saat pasti ada yg bisa un-compressed lah, tapi mendingan lah, rada susah di banding UPX yg malahan UPX nya sendiri kasih fasilitas buat un-compressed.... kekeke...
ane udah pake nih compressor sekitar bbrp taon. So far sih lom ada complain dari AV (Kaspersky, NAV, AVG, dll). FYI, ini compressor, termasuk salah satu compressor yg dipake google desktop installer... katanya sih... :D
ya si agan mah maunya terima jadi. :D Usaha dulu gan: 1. Desain Systemnya: modul2nya apa aja 2. Desain database-nya: data master dan transaksi. 3. Report Kupas deh tuh satu2 point di atas. Kalo ada kesulitan, baru nanya ke mari. :shakehand
ya iyalah, itu input kudu ditanya dulu atuh, pake: readln(input); mau di isi 1jt juga dia bakalan looping...
bedanya for... do sama repeat...until itu sbb: for...do for i:=1 to 5 do begin ... ... end; kalo mau pake repeat until: var i:=1; repeat ... ... i:=i+1; until (i>=5); atau var i:=0; repeat i:=i+1; ... ... until (i=5); met coba deh.....
ane bantu dikit deh ya, kesian gak ada yg jawab... pake delphi kan... (bukan turbo pascal) program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i do begin write(j); end; writeln; end; readln; end.
dimana ada kebohongan pertama, pasti akan ada kebohongan kedua dan selanjutnya... udah dari sononya gitu....
aneh2 aja, mosok gak kenal break, turbo pascal versi brp? btw, nih: var jum,baris,kolom,total,i,j,k,x : integer; myboo : boolean; begin write ('Input : ');readln(jum); write('Hasil -> '); writeln; myboo := false; baris := 0; kolom := 0; total := 0; while (myboo = false) ...
nih, copas aja deh (gw lagi iseng aja :D) var jum,baris,kolom,total,i,j,x : integer; myboo : boolean; begin write ('Input : ');readln(jum); write('Hasil -> '); writeln; myboo := false; baris := 0; kolom := 0; total := 0; while (myboo = false) do begin inc(baris); total :=...
