Sabtu, 25 April 2015

*Waktu

Saya tidak tahu kenapa Tuhan menciptakan 7 hari dalam seminggu. Tapi sepertinya agar kita bisa 7 kali dalam seminggu berterimakasih atas semuanya.
Saya tidak tahu kenapa Tuhan menciptakan 24 jam dalam sehari. Tapi nampaknya agar kita bisa 24 kali dalam sehari bersyukur atas segalanya.
Saya tidak tahu kenapa Tuhan menciptakan 60 menit dalam sejam. Tapi rupanya agar kita bisa 60 kali dalam semenit menghela nafas penuh kelapangan untuk apa saja.
Saya sungguh tidak tahu kenapa Tuhan menciptakan 60 detik dalam semenit. Tapi boleh jadi, agar setiap detik itu, kita bisa belajar tentang kehidupan. Bahwa hidup ini selalu berkurang, dan waktu kembali semakin dekat.
— Tere Liye

Geopolitik

PROGRAM INPUT DATA TAK BERULANG

Program input_takberulang;
uses wincrt;
var
n, i, j,k,m : integer;
x : array [1..100] of integer;
Begin
Write ('Masukkan banyak data= '); readln (n);
Writeln;
for i:=1 to n do
Begin
Write ('Data ke-',i,'= '); readln (x[i]);
for j:= 1 to i-1  do
Begin
if x[i] = x[j] then
repeat
Write ('Data ke-',i,'= '); readln (x[i]);
until  (x[i] <> x[j]);
for m := 1 to i-1 do
for k:= 1 to i-1 do
if x[i] = x[k] then
repeat
Write ('Data ke-',i,'= '); readln (x[i]);
until  (x[i] <> x[k]);
end;
end;
writeln (' maka data hasil input anda adalah ...');
for i := 1 to n do
writeln (' x[',i,']: ',x[i]);
end.


Penjumlahan Basis 2

Media Pembelajaran

Triangular Pyramid


           A.    Materials and Tools
1.      6 of Paper
2.      Scissors
3.      Glue
4.      Ruler

          B.     Steps of Work
1.      Roll a sheet of used paper parallel to its diagonal.
2.      Glue the end of its corner.
3.      Redo step 1 and step 2.
4.      Make a group @ 3 person, so you have six rolled sheets.
5.      Cut one end of two rolled sheet ± 2 cm.
6.      Cut two ends of one rolled sheet ± 2 cm.
7.      Construct a pyramid based on triangle.

          C.     Photo or Sketch
     
   


           D.    Suggestions
1.      This activity can hone students' creativity.

2.      This activity can also teach teamwork.

Triangular Prism


        A. Materials and Tools
             1.      Paper
             2.      Scissors
             3.      Glue
             4.      Ruler
             5.      Pencil

        B. Steps of Work
            1.      Draw the nets of a triangular prism.
            2.      Cut out the nets.
            3.      Folding the nets corresponding line has been drawn.
            4.      Glue the nets.

       C.  Picture or Sketch
   

 



        D.  Suggestion
             This activity can hone students' creativity.

Jumat, 24 April 2015

Algoritma Turbo Pascal Mencari Modus

program nilaimodus;
uses crt;
var n,i,j: integer;
    ftinggi: real;
    fx: array[1..100]of integer;
                modus,x: array[1..100]of real;
begin
 clrscr;

 write ('masukan banyak data: '); readln (n);

 for i:=1 to n do
 begin
  write ('data ke-',i,' : '); readln(x[i]);
  fx[i]:=1;
 end;

 for i:=1 to n-1do
  for j:=i+1 to n do
    if x[i]=x[j] then fx[i]:=fx[i]+1;

ftinggi:=1; 

 for i:=1 to n do
   if fx[i]>ftinggi then ftinggi:=fx[i]; 

 writeln; 
 writeln ('Frekuensi tertinggi adalah: ',ftinggi:0:0);

 writeln;
 j:=0;
 for i:=1 to n do
  if fx[i]=ftinggi then
   begin
    j:= j+1;
                modus[j]:=x[i];
   end;

 writeln;
 if j=n then
                                                writeln('Tidak ada Modus')
                                else
 if ftinggi=n div j then
                                                writeln('Tidak ada Modus')
                                else


 begin
 writeln ('Banyak modusnya ',j,' buah, yaitu: '); 
 for i:=1 to j do
  writeln (modus[i]:0:0);
 end;
 

  readln;

end.

Minggu, 05 April 2015

*Rahasia Menjadi Hebat

Kita menjadi kuat,
Dari orang-orang yang menyakiti kita

Rasa sakit itu ibarat "racun" yang membuat kebal
Berdiri tegak melewati seluruh sesaknya

Kita menjadi bijak,

Dari orang-orang yang menghina kita
Setiap hinaan akan membuat kita paham
Toh, apapun yang kita lakukan, ada saja yang tidak suka

Kita belajar banyak,

Justeru dari orang-orang yang tidak sependapat dengan kita
Belajar dari sudut pandang mereka
Dijadikan masukan yang amat berharga

Kita menjadi pemberani,

Dari orang-orang atau situasi yang menganggap kita pengecut
Bahwa satu-satunya ketakutan yang harus dikalahkan
Justeru adalah rasa takut itu sendiri

Kita menjadi berharga,

Dari orang yang pergi meninggalkan kita
Pun dari orang-orang yang melupakan kita
Bahwa semua hal di dunia ini penting dan ada tujuannya
Tidak peduli jika orang lain telah pergi memilih yang lain
Sekecil apapun, semua tetap berharga

Sebagai penutup,
Ketahuilah,
Kita menjadi lebih bahagia justeru dari sesuatu yang tidak kita miliki
Ketika rasa syukur tetap menyertai 
Melepaskan dengan tulus nan lapang
Sungguh tiada bahagia yang bisa mengalahkannya lagi

*Tere Liye