This is default featured slide 1 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
This is default featured slide 2 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
This is default featured slide 3 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
This is default featured slide 4 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
This is default featured slide 5 title
Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.
Minggu, 04 Desember 2016
Puisi Masa SMA Alay..
Contoh Program Perulangan ( PASCAL )
- FOR TO DO
program Contoh_for_to_do;
var
x: integer;
begin
for x := 1 to 10 do
begin
write(x , ' ');
end;
readln;
end.
- FOR DOWNTO DO
Program Anak_Ayam;
Uses Crt;
Var
UI: char;
a,b,c,d:integer;
Begin
clrscr;
Writeln(' ---*****--- ');
Writeln(' PROGRAM ANAK AYAM ');
Writeln('=======================');
Writeln('');
Writeln('Tek kotek kotek kotek');
Writeln('Anak ayam turun berkotek');
Writeln('Tek kotek kotek kotek');
Writeln('Anak ayam turun berkotek');
Writeln('');
Write('Anak ayam turunnya '); readln(a);
if a=0 then
Writeln('Oh tidak bisa bro');
Begin
Writeln('Mati satu tinggallah ',a-1);
for c:=a-1 downto 2 do
Writeln('Anak ayam turun ',c,' mati satu tinggallah ',c-1);
Writeln('');
d:=c-1;
Writeln('Anak ayam turunnya ',d);
Writeln('Mati satu tinggal INDUKNYA');
Writeln('');
Writeln('============================');
end;
if a=2 then
Writeln('Anak Ayam turun 1 mati satu tinggal induknya'); readln;
end.
- REPEAT
program repeat_until;
uses crt;
var
x : integer;
begin
x:= 1;
repeat
x:=x+1;
writeln(x);
until x =10 ;
readln;
end.
- WHILE
program while_do;
uses crt;
var
i:integer;
begin
i:=2;
while i< 3 do
begin
writeln( i );
end;
readln;
end.
Semoga Berguna.....
Sabtu, 12 November 2016
Cara Membuat Sup Ikan Batam
- 250 gram Ikan Tenggiri Fillet, kemudian anda iris melebar miring
- ½ sendok teh Air Jeruk Nipis
- 1500 ml Air
- 1 sendok makan Ebi Sangrai, kemudian anda haluskan
- 2 sendok makan Bawang Merah Goreng, kemudian anda remas-remas halus
- 1 sendok makan Garam
- ¾ sendok teh Merica Bubuk
- 100 gram Sawi Asin, kemudian anda cuci bersih
- 1 sendok makan Kecap Ikan
- 3 buah Tomayt Hijau, kemudian anda potong-potong
- 3 tangkai (15 gram) Daun Kemangi
- Pertama anda lumuri ikan tenggiri dengan air jeruk nipis, sisihkan.
- Kemudian anda rebus air, ebi dan bawang merah goreng, garam dan merica bubuk hingga mendidih dan harum.
- Lalu anda masukkan ikan tenggirinya, dan anda masak hingga berubah warna.
- Selanjutnya anda masukkan sawi asin, kecap ikan dan tomat hijau, anda masak lagi hingga matang dan mendidih.
- Anda tambahkan daun kemangi dan anda aduk rata.
- Sajikan dengan hangat.
Minggu, 30 Oktober 2016
Cerita Lucu
Jono : Kamu tahu gak gunung Everest di Himalaya ?
Tono : Emang kenapa Jon ?
Jono : Itu nenek moyang ku yang nyusun batunya satu persatu sampai jadi gunung.
Tono : Oooh ya ? wah hebat nenek moyang mu Jon, trus kamu tau gak gurun sahara di Afrika ?
Jono : Emang kenapa tu gurun ?
Tono : Dulu itu namanya hutan sahara dan aku dan bapak ku yang nebangi pohonnya sampai jadi gurun, hahahaha....
Dengan santainya Tumeno Berkata
Tumeno : Gitu saja kalian sombong setengah mati, kalian tahu kan laut mati di Yordania ? itu aku yang BUNUH. hahahaha wkwkwkwk.......
Keindahan Pulau Batam
- Welcom To Batam
- Jembatan Barelang
- Alun-alun Engku Putri
- Wisata Sejarah Kampung Vietnam
- Hutan Wisata Mata Xucing
- Kebun Raya Batam