Archive for July 2011

Beauty of Mathematics

Lagi sercing sercing digugel gk sengaja nemu artikel menarik, buat nambah ilmu langsung simak aja lahh..


1 x 8 + 1 = 9
12 x 8 + 2 = 98
123 x 8 + 3 = 987
1234 x 8 + 4 = 9876
12345 x 8 + 5 = 98765
123456 x 8 + 6 = 987654
1234567 x 8 + 7 = 9876543
12345678 x 8 + 8 = 98765432
123456789 x 8 + 9 = 987654321 


1 x 9 + 2 = 11
12 x 9 + 3 = 111
123 x 9 + 4 = 1111
1234 x 9 + 5 = 11111
12345 x 9 + 6 = 111111
123456 x 9 + 7 = 1111111
1234567 x 9 + 8 = 11111111
12345678 x 9 + 9 = 111111111
123456789 x 9 +10= 1111111111 

9 x 9 + 7 = 88
98 x 9 + 6 = 888
987 x 9 + 5 = 8888
9876 x 9 + 4 = 88888
98765 x 9 + 3 = 888888
987654 x 9 + 2 = 8888 888
9876543 x 9 + 1 = 88888888
98765432 x 9 + 0 = 888888888 

Keren kan?! :D


Lanjut ya gan, misal : 

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Dipresentasikan sebagai :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26. 

Maka :

H-A-R-D-W-O- R- K
(Kerja Keras)
8+1+18+4+23+ 15+18+11 = 98% 

K-N-O-W-L-E- D-G-E
(Pengetahuan)
11+14+15+ 23+ 12+5+4+7+ 5 = 96% 

Dan

A-T-T-I-T-U- D-E 
(Sikap)
1+20+20+9+20+ 21+4+5 = 100% 


Kemudian lihat seberapa jauh kasih Allah akan membawa anda :


L-O-V-E-O-F- G-O-D 
12+15+22+5+15+ 6+7+15+4 = 101% 

 Jika 100% merupakan wujud dari sebuah keberhasilan, dapat disimpulkan dengan kepastian matematika bahwa :


'Kerja keras' dan 'Pengetahuan' akan membuat anda lebih dekat menuju keberhasilan, dan 'Sikap' membuat anda berada disana, maka ingatlah 'Kasih Allah' yang akan menempatkan anda diatasnya.


Tapi ini rumus yang berlaku di luar negeri gan

kalo di Indonesia, itung-itungannya jadi gini :

- G – I – G – I – H (HARDWORK)
7 9 7 9 8 = 40%
- I – L – M – U (Knowledge)
9 12 13 21 = 55%
- L – O – B – I (Lobbying)
12 15 2 9 = 38%
- M – U – J – U – R (Luck)
13 21 10 21 18 = 83%
- S – I – K – A – P (Attitude)
19 9 11 1 16 = 46%
- K – O – R – U – P – S – I
11 15 18 21 16 19 9 = 109% :hammer

itulah hebatnya negeri kita.. ^^
Read More

July 9, 2011 by Ahmad Fauzi
Categories: | Leave a comment

latihan pake pascal

mohon dimaklumi jika banyak kesalahan.. (_ _)'


program tunjangan_keluarga;
uses crt;
var
    kk, jk, pg : string;
    pb, ja, bt : real;
begin;
clrscr;
write ('nama kepala keluarga    : '); readln (kk);
write ('jenis kelamin (L/P)     : '); readln (jk);
write ('jumlah anggota keluarga : '); readln (ja);
write ('penghasilan per bulan     : '); readln (pb);
if pb >= 1000000 then
if ja > 4 then
   bt := 2500000;
if pb >= 1000000 then
if ja <= 4 then
   bt := 200000;
if pb < 999999 then
if ja > 4 then
   bt := 300000;
if pb < 999999 then
if ja > 4 then
   bt := 250000;
   
   if jk = 'L' then
   begin
   write ('pak ');
   write (kk);
   write (pg);
   write (' mendapat tunjangan Rp. ',bt :1:2);
   readln;
   end

   if jk = 'P' then
   begin
   write ('ibu ');
   write (kk);
   write (pg);
   write ('mendapat tunjangan Rp. ',bt :1:2);
   readln;
   end;
end.
Read More

July 6, 2011 by Ahmad Fauzi
Categories: | Leave a comment