CARA BIKIN BLOG....!!!!!!!!!

di postingan pertama saya ini, saya akan membahas tentang bagaimana cara membuat web blog dan menambahkan fitur2 gadget didalamnya.. 
untuk mendaftar kamu bisa menujungi blogspot itu untuk domain .blogspot.com dan untuk yang berdomain .wordpress.com anda bisa mengunjungi wordpress..
tapi kali ini saya akan menjelaskan web blog yang berdomain .blogspot.com.
setelah kamu mendaftar dan mengisi semua pertanyaan yang ditanyakan pak blog, coba kamu lihat hasil web blog kamu.. masih kosong? kurang menarik?
nah mari kita tambahkan fitur2 keren dalam web blog kamu..
caranya?
masuk ke dashboard dan langsung meluncur ke rancangan.. let's go!!
klik tambah gadget dan langsung tambahkan 'HTML/Java Script' maka akan muncul halaman 'menkonfigurasi HTML/Java Script' nah isi judul sesuai dengan gadget yang ingin kamu tampilkan semisal untuk jam dan tanggal kamu bisa kunjungi halaman ini, untuk hewan peliharaan yang lucu2 kamu bisa datangi halaman ini, untuk visitor counter kamu bisa datangi halaman ini, untuk buku tamu kamu bisa kunjungi halaman ini. nah setelah kamu mendapatkan kode2 html nya kamu paste dikonten...
finish it, let's chekidod!!!! hahahhaha.....
selamat mencoba kawan.. :D

program konversi suhu

program konversi;
uses wincrt;
var pilihan,c,f,k,r: real;pilihasn:string;
        begin
        writeln('konversi suhu');
        writeln('1. menghitung C ke F');
        writeln('2. menghitung C ke K');
        writeln('3. menghitung C ke R');
        begin
        writeln('pilih nomor(1-3)?');read(pilihan);
        end;


        if pilihan= 1 then
        begin
        write('tulis berapa derajat celcius?');
        readln(c);
        f:=32+c*1.8;
        writeln;
        writeln(c,'derajat celcius adalah ',F,'derajat fahrenheit');
        readln;
        end;

        if pilihan =2 then
        begin
        write('tulis berapa derajat celcius?');
        readln(c);
        k:=c+273.15;
        writeln;
        writeln(c,'derajat celcius adalah',k,'derajat kelvin');
        readln;
        end;

        if pilihan =3 then
        begin
        write('tulis berapa derajat celcius?');
        readln(C);
        r:=c*0.8;
        writeln;
        writeln(c,'derajat celcius adalah',r,'derajat reamur');
        readln;
        end;
        end.

program bintang piramit

Program bintang_piramid;

Var c,a,b,n : integer;

begin

write(‘masukan angka genap sembarang utk menunjukkan baris pyramid’);

readln(n);

writeln;

for a := 1 to (n div 2)+1 do

begin

for b := 1 to (n div 2)+(1-a) do

write(‘ ‘);

for c := 1 to (a*2)-1 do

write(‘*’);

writeln;

end;

end.

program bilangan ganjil genap

Program ganjil_genap;

Var X, sisa : integer ;

Ket : string;

Begin

Write(‘masukkan semua bilangan : ‘);

readln(x);

Sisa := x mod 2;

If sisa = 0 then ket :=’genap’ else ket :=’ganjil’;

Write(‘jadi jenis bilangan adalah : ‘);

writeln(ket);

readln;

end.