Nugroho's blog.

Friday, April 7, 2017

Prime Number on Delphi

Using Delphi to generate prime number? Okay, there's some code out there with

if (i mod 2 <>0) and (i mod 3 <>0) and (i mod 5 <>0) and (i mod 7 <>0) then i is prime.

Don't use that.

That's just for prime number below 100.

Use this instead.

var i,j:integer;
prime:boolean;
begin
for i:=2 to 200 do begin
prime:=true;
for j:=2 to i-1 do begin
if i mod j=0 then prime:=false;
end;
if prime=true then memo1.Lines.Append(intToStr(i));
end;
end;
.

Wednesday, March 29, 2017

Rutinitas Sore.

Buka pintu garasi. 

Disambut Alfa Beta.

Memasukkan si ducati sambil dengar mereka cerita tentang hari mereka.

Dikasih sandal sama Beta saat lepas sepatu, sambil dengar rentetan cerita Alfa tentang di sekolah dan di rumah Budhe yang diulang persis sama Beta.

Masuk rumah, mandi, makan sambi baca buku, cerita mereka belum habis.

Kruntelan serumah, diiringi Sophia, Mickey dkk, Kion, Bunga, Beasty, PJ Mask, Captain Jack, ...

Jam tujuh Alfa minta makan, didulang ayah. Beta minta susu dan iPad buat pengantar tidur.

Jam delapan Alfa migrasi dari depan tipi ke kamar, nonton tipi di kasur, semua lampu padam kecuali kamar Beta.

Dan tertidurlah Alfa.

Lampu kamar loteng nyala, sound-mixer nyala, dengan gitar/piano/bass. Main musik sampai ngantuk atau sampai jari bengkak.

Lanjut baca e-book sampai terbangun oleh alarm pagi, :D




Tuesday, March 21, 2017

Adonan.

 Saat mengaduk adonan semen+pasir+air, sering tak sengaja ter-ciprat ke kaki saya yang tak terlindung, akibatnya kulit akan melepuh seperti luka bakar jika tidak segera dibersihkan.

Tak terbayangkan jika melakukan itu secara sengaja.

Friday, March 17, 2017

Idhar bukan idghom, :)


Beta belajar merangkai kata.

Jaranan dia bilang jaran -an
sabunan, sabun -an
mainan, main -an

Kata -an terpisah jelas, mudah bagi dia, tapi coba kita lakukan, susah bagi kita karena terbiasa yang lain.

Saya suka, artinya dia tahu kata dasar, :)

Saturday, March 11, 2017

Terdepan.

Jika yang lain rame-rame mundur, kamu akan tampak paling depan meski tak melakukan apapun.

If others are backing up, you will appear at the front, even if you don't do anything

Menolong yang Tersesat?

Pastikan si penolong juga tidak sedang tersesat, :D

Friday, March 10, 2017

Langit yang jernih

 biasanya terjadi setelah hujan badai.
323f (5) amp (1) android (12) apple (7) arduino (18) art (1) assembler (21) astina (4) ATTiny (23) blackberry (4) camera (3) canon (2) cerita (2) computer (106) crazyness (11) debian (1) delphi (39) diary (286) flash (8) fortran (6) freebsd (6) google apps script (8) guitar (2) HTML5 (10) IFTTT (7) Instagram (7) internet (12) iOS (5) iPad (6) iPhone (5) java (1) javascript (1) keynote (2) LaTeX (6) lazarus (1) linux (29) lion (15) mac (28) macbook air (8) macbook pro (3) macOS (1) Math (3) mathematica (1) maverick (6) mazda (4) microcontroler (35) mountain lion (2) music (37) netbook (1) nugnux (6) os x (36) php (1) Physicist (29) Picture (3) programming (189) Python (109) S2 (13) software (7) Soliloquy (125) Ubuntu (5) unix (4) Video (8) wayang (3) yosemite (3)