Blog is short for Weblog, a term first used by Jorn Barger in December 1997. Jorn Barger used the term to describe a group Weblog personal website is always updated continuously and contains links to other websites that they find interesting along with the comments of their own.
Broadly speaking, the Weblog can be summarized as a collection of personal websites that allow their makers display different types of content on the web with ease, such as paper, a collection of Internet links, documents (Word files, PDF, etc.), pictures or multimedia.
The creator of the blog called Blogger. Through this blog, Blogger personality to be easily identified based on what topics they like, what the response to the links in the select and the issues therein. Therefore it is very personal blog.
Other developments of the Blog is the Blog load when writing about what a Blogger think, feel, to what he does everyday. Blog Online Diary then also be located on the Internet. The only thing that distinguishes Blog from Diary or Journal of the ordinary that we have is that the Blog is created to read others.
HISTORY of the BLOG
The first blog is most likely the page “What’s New” on the Mosaic browser created by Marc Andersen in 1993. If we still remember, Mosaic was the first browser before the Internet Explorer even before Netscape.
Then in January 1994 Justin Hall started his personal website “Justin’s Home Page” which later changed to “Links from the Underground” which may be called the first blog as we know it today.
Until in 1998, the number of Blogs that are still very few. This is because the time required expertise and specialized knowledge about website creation, HTML, and web hosting to create a blog, so that only those working in the fields of Internet, System Administrator or Web Designer who later in his spare time creating their own blogs.
But this time, we do not have to be a programmer to be a Blogger, because we can display the entire contents of the Web with ease via the menu editor that has been provided.
The advantage of using Weblog is:
1. Through this weblog, we can expand the relationship of friends / acquaintances to be able to form a great community.
2. Weblog exceed electronic mail (email), because a blog post that you mentioned, can be read by unlimited visitors to your blog. Differences with the email that can only be read by people who we send. In addition, visitors to the blog also can quickly respond to blog posts via the comments that can be directly written on the blog.
As the development of weblogs from time to time, the meanings of weblog will also be developed along with the ideas and the willingness of Blogger.
PETRUK KELOMPOK
program tugas_kel_petruk;
uses wincrt;
const
spasi=#32;
type
namamhs=array[1..100]of string[20];
nilaimhs=array[1..100]of integer;
matakuliah=array[1..100]of string[20];
data_akademik=record
nmmhs: namamhs;
nilai:nilaimhs;
matakul:matakuliah;
end;
var
jumdata,x,m,n:integer;
datakad:data_akademik;
i:integer;
lagi:char;
procedure input_mahasiswa;
begin
clrscr;
gotoxy(15,2);write('Masukkan jumlah data mahasiswa : ');readln(jumdata);
for i:=1 to jumdata do
begin
clrscr;
gotoxy(15,2);write('DATA NAMA MAHASISWA KE - ',i);
gotoxy(15,3);write('===========================');
gotoxy(15,5);write('Nama Mahasiswa : ');readln(datakad.nmmhs[i]);
end;
end;
procedure tampil_mahasiswa;
begin
clrscr;
GOTOXY(21,2);writeln('DATA MAHASISWA');
GOTOXY(21,3);writeln('==============');
WRITELN;
gotoxy(15,5);writeln('==========================');
gotoxy(15,6);writeln(' NO NAMA MAHASISWA');
gotoxy(15,7);writeln('==========================');
m:=8;
for i:=1 to jumdata do
begin
gotoxy(15,m);
write(i:3,' ');
WRITELN(datakad.nmmhs[i] ,spasi:20 - length(datakad.nmmhs[i]));
m:=m+1;
end;
gotoxy(15,m);writeln('==========================');
m:=m+1;
gotoxy(17,m);
readln;
end;
procedure data_mhs;
begin
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
repeat
begin
CLRSCR;
gotoxy(15,3);writeln('DATA MAHASISWA');
gotoxy(15,4);WRITELN('==============');
WRITELN;
gotoxy(15,6);writeln('1. INFUT DATA MAHASISWA');
gotoxy(15,7);writeln('2. TAMPIL DATA MAHASISWA');
gotoxy(15,8);writeln('3. KELUAR');
gotoxy(15,10);write('MASUKKAN PILIHAN ANDA [1..3] ? ');READLN(x);
case x of
1:input_mahasiswa;
2:tampil_mahasiswa;
3:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA AKAN KELUAR DARI MENU "DATA MAHASISWA"...???');
GOTOXY(10,18);READLN;
END;
end;
end;
until x=3;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KEMBALI KE MENU UTAMA...??? [Y/T] ');READLN(lagi);
end;
end;
procedure input_nilai;
begin
clrscr;
for i:=1 to jumdata do
begin
clrscr;
gotoxy(15,2);writeln('INPUT DATA NILAI MAHASISWA KE - ',i);
gotoxy(15,3);writeln('==================================');
gotoxy(15,5);writeln('Nama Mahasiswa : ',datakad.nmmhs[i]);
gotoxy(15,6);write('Nilai Mahasiswa : ');readln(datakad.nilai[i]);
end;
end;
procedure tampil_nilai;
begin
clrscr;
GOTOXY(21,2);writeln('DATA NILAI MAHASISWA');
GOTOXY(21,3);writeln('====================');
WRITELN;
gotoxy(15,5);writeln('===============================');
gotoxy(15,6);writeln(' NO NAMA MAHASISWA NILAI');
gotoxy(15,7);writeln('===============================');
m:=8;
for i:=1 to jumdata do
begin
gotoxy(15,m);
write(i:3,' ');
write(datakad.nmmhs[i],spasi:20 - length(datakad.nmmhs[i]));
WRITELN(datakad.nilai[i]:5);
m:=m+1;
end;
gotoxy(15,m);writeln('===============================');
m:=m+1;
gotoxy(17,m);
readln;
end;
procedure data_nilai;
BEGIN
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
repeat
begin
CLRSCR;
gotoxy(15,3);writeln('DATA NILAI MAHASISWA');
gotoxy(15,4);WRITELN('====================');
WRITELN;
gotoxy(15,6);writeln('1. INFUT DATA NILAI MAHASISWA');
gotoxy(15,7);writeln('2. TAMPIL DATA NILAI MAHASISWA');
gotoxy(15,8);writeln('3. KELUAR');
gotoxy(15,10);write('MASUKKAN PILIHAN ANDA [1..3] ? ');READLN(x);
case x of
1:input_nilai;
2:tampil_nilai;
3:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA AKAN KELUAR DARI MENU "DATA NILAI MAHASISWA"...???');
GOTOXY(10,18);READLN;
END;
end;
end;
until x=3;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KEMBALI KE MENU UTAMA...??? [Y/T] ');READLN(lagi);
end;
end;
procedure input_matakul;
begin
clrscr;
for i:=1 to jumdata do
begin
clrscr;
gotoxy(15,2);writeln('INPUT DATA MATA KULIAH MAHASISWA KE - ',i);
gotoxy(15,3);writeln('==================================');
gotoxy(15,5);writeln('Nama Mahasiswa : ',datakad.nmmhs[i]);
gotoxy(15,6);write('Nilai : ',datakad.nilai[i]);
gotoxy(15,7);write('Mata Kuliah : ');readln(datakad.matakul[i]);
end;
end;
procedure tampil_matakul;
begin
clrscr;
GOTOXY(21,2);writeln('DATA MATA KULIAH MAHASISWA');
GOTOXY(21,3);writeln('==========================');
WRITELN;
gotoxy(15,5);writeln('=======================================================');
gotoxy(15,6);writeln(' NO NAMA MAHASISWA NILAI MATA KULIAH');
gotoxy(15,7);writeln('=======================================================');
m:=8;
for i:=1 to jumdata do
begin
gotoxy(15,m);
write(i:3,' ');
write(datakad.nmmhs[i],spasi:20 - length(datakad.nmmhs[i]));
WRITE(datakad.nilai[i]:5,' ');
WRITE(datakad.matakul[i],spasi:20 - length(datakad.matakul[i]));
m:=m+1;
end;
gotoxy(15,m);writeln('=======================================================');
m:=m+1;
gotoxy(17,m);
readln;
end;
procedure data_matakul;
BEGIN
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
repeat
begin
CLRSCR;
gotoxy(15,3);writeln('DATA MATA KULIAH MAHASISWA');
gotoxy(15,4);WRITELN('==========================');
WRITELN;
gotoxy(15,6);writeln('1. INFUT DATA MATA KULIAH MAHASISWA');
gotoxy(15,7);writeln('2. TAMPIL DATA MATA KULIAH MAHASISWA');
gotoxy(15,8);writeln('3. KELUAR');
gotoxy(15,10);write('MASUKKAN PILIHAN ANDA [1..3] ? ');READLN(x);
case x of
1:input_matakul;
2:tampil_matakul;
3:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA AKAN KELUAR DARI MENU "DATA MATA KULIAH MAHASISWA"...???');
GOTOXY(10,18);READLN;
END;
end;
end;
until x=3;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KEMBALI KE MENU UTAMA...??? [Y/T] ');READLN(lagi);
end;
end;
procedure menu;
begin
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
repeat
begin
clrscr;
gotoxy(20,2);WRITELN('******************');
gotoxy(20,3);writeln('** MENU UTAMA **');
gotoxy(20,4);WRITELN('******************');
writeln;
gotoxy(20,6);writeln('1. DATA MAHASISWA');
gotoxy(20,7);writeln('2. DATA NILAI');
gotoxy(20,8);writeln('3. DATA MATA KULIAH');
gotoxy(20,9);writeln('4. KELUAR');
gotoxy(20,11);write('MASUKKAN PILIHAN ANDA [1..4] ? ');READLN(x);
case x of
1:data_mhs;
2:data_nilai;
3:data_matakul;
4:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA AKAN SEGERA KELUAR APLIKASI...!!!');
GOTOXY(10,18);READLN;
END;
end;
end;
until x=4;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KELUAR APLIKASI...??? [Y/T] ');READLN(lagi);
end;
END;
{PROGRAM UTAMA}
begin
menu;
end.
Praktek 1
<html> <head> <title> Halaman Utama </title> </head>
<body bgcolor="green"> <font color="yellow"><h1 align="center">STMIK KHARISMA</h1></font color="blue"> <font face="arial" size=4 color="white"> <marquee direction="LEFT"> WILUJENG SUMPING DI DUNIA MAYA</MARQUEE> </FONT> <p><font color="navy"><h1>X<sup>2</sup><sub><u>y</u></sub></h1><font color></p> </body>
</html>
Buat Frame
<html> <head> <title> Membuat frame </title> <frameset rows="25%,75%"> <frame src=judul.html> <frameset cols="25%,50%,25%"> <frame src=menu.html> <frame src=isi.html name=frameisi> <frame src=link.html> </frameset> </frameset>
</head>
<body> </body>
</html>
PENGURUTAN NAIK/TURUN
program nawin_sorting;
uses wincrt;
type
pengurut=array[1..100]of longint;
nama_barang=array[1..100]of string;
harga_sat=array[1..100]of longint;
jumlah=array[1..100]of integer;
total=array[1..100]of longint;
var
urut:pengurut;
nmbar:nama_barang;
hrgsat:harga_sat;
jml:jumlah;
ttl:total;
data,i,x,y,c,pil:integer;
temp:longint;
lagi:char;
procedure input;
begin
clrscr;
gotoxy(15,2);write('masukkan jumlah data barang : ');readln(data);
for i:= 1 to data do
begin
clrscr;
gotoxy(15,2);writeln('DATA BARANG ',i);
gotoxy(15,3);writeln('--------------');
gotoxy(15,5);write('Masukkan Nama Barang : ');readln(nmbar[i]);
gotoxy(15,6);write('Masukkan Harga Barang : ');readln(hrgsat[i]);
gotoxy(15,7);write('Masukkan Jumlah Barang : ');readln(jml[i]);
ttl[i]:=hrgsat[i]*jml[i];
end;
readln;
end;
procedure tampil;
begin
clrscr;
gotoxy(15,2);writeln('DAFTAR PENJUALAN');writeln;
WRITELN('---------------------------------------------------------------------');
writeln(' NO NAMA BARANG HARGA/S JUMLAH TOTAL HARGA');
WRITELN('---------------------------------------------------------------------');
for i:= 1 to data do
begin
write(' ',nmbar[i]:10);
write(' ',hrgsat[i]:14);
write(' ',jml[i]:14);
writeln(' ',ttl[i]:14);
end;
WRITELN('---------------------------------------------------------------------');readln;
end;
procedure terendah;
begin
clrscr;
for c:=1 to data do
urut[c]:=hrgsat[c];
for x:=1 to data do
begin
for y:=x to data do
begin
if urut[y]
begin
temp:=urut[y];
urut[y]:=urut[x];
urut[x]:=temp;
end;
end;
end;
gotoxy(15,2);writeln('DAFTAR HARGA TERENDAH');writeln;
WRITELN('-----------------------------------');
writeln(' NO NAMA BARANG HARGA/S ');
WRITELN('-----------------------------------');
write(' ',nmbar[i]:10);
writeln(' ',urut[1]); WRITELN('-----------------------------------');
readln;
end;
procedure tertinggi;
begin
clrscr;
for c:=1 to data do
urut[c]:=hrgsat[c];
for x:=1 to data do
begin
for y:=x to data do
begin
if urut[y]>urut[x] then
begin
temp:=urut[y];
urut[y]:=urut[x];
urut[x]:=temp;
end;
end;
end;
gotoxy(15,2);writeln('DAFTAR HARGA TERTINGGI');writeln;
WRITELN('-----------------------------------');
writeln(' NO NAMA BARANG HARGA/S ');
WRITELN('-----------------------------------');
write(' ',nmbar[i]:10);
writeLN(' ',urut[1]);
WRITELN('-----------------------------------');
readln;
end;
{PROGRAM UTAMA}
begin
lagi:='T';
while (lagi='T')or(lagi='t')do
begin
REPEAT
begin
clrscr;
gotoxy(10,2);writeln('MENU PILIHAN');
gotoxy(10,3);writeln('------------');
WRITELN;
gotoxy(10,5);writeln('1. INFUT BARANG');
gotoxy(10,6);writeln('2. TAMPILKAN PENJUALAN BARANG');
gotoxy(10,7);writeln('3. CEK BARANG DENGAN HARGA JUAL TERENDAH');
gotoxy(10,8);writeln('4. CEK BARANG DENGAN HARGA JUAL TERTINGGI');
gotoxy(10,9);writeln('5. KELUAR');
gotoxy(10,12);write('MASUKKAN PILIHAN ANDA [1..5] ? ');READLN(pil);
case pil of
1:input;
2:tampil;
3:terendah;
4:tertinggi;
5:BEGIN
gotoxy(18,14);writeln('"PERINGATAN...!!!"');
GOTOXY(10,16);write('ANDA SEGERA AKAN KELUAR APLIKASI...!!!');
GOTOXY(10,18);READLN;
END;
else
GOTOXY(10,12);
writeln('PILIHAN YANG ANDA MASUKKAN SALAH...!!!');
GOTOXY(10,14);
writeln('SILAHKAN MASUKKAN KEMBALI PILIHAN ANDA...!!!');
GOTOXY(10,16);READLN;
end;
end;
UNTIL pil=5;
clrscr;
gotoxy(15,12);
write('ANDA SERIUS AKAN KELUAR APLIKASI...??? [Y/T] ');READLN(lagi);
end;
END.
SCANNER 2
program scanner_2;
uses wincrt;
var
a:text;
kar:array [1..1000] of char;
c:char;
token:array [1..50]of string;
nama_token:array[1..50]of string;
i,j,k,m:integer;
ch:set of char;
huruf:set of char;
procedure baca;
begin
assign (a,'scanner2.txt');
reset(a);
end;
procedure tampil;
begin
i:=0;
repeat
read(a,c);
i:=i+1;
write(c);
kar[i]:=c;
until (c='#');
j:=i;
end;
procedure cek_token;
begin
ch:=['a'..'z']+['A'..'Z']+['0'..'9']+['+']+['-']+['*']+['/']+[':']+[';']+['=']+['<'];
reset(a);
token[1]:='';
k:=0;
i:=1;
huruf:=['a'..'z']+['A'..'Z'];
for i:=1 to j do
begin
while kar[i] in ch do
begin
k:=k+1;
if kar[i] in huruf then
nama_token[k]:='Tpengenal'
else
nama_token[k]:='Tbilbulat';
repeat
token[k]:=token[k]+kar[i];
i:=i+1;
until not(kar[i] in ch);
if kar[i]='.' then
begin
token[k+1]:=kar[i];
nama_token[k+1]:='Ttitik';
end;
end;
end;
k:=k+1;
end;
procedure cek_nama_token;
begin
for i:=1 to k do
begin
if token[i]='Mulai' then
nama_token[i]:='Tmulai';
if token[i]='Jika' then
nama_token[i]:='Tjika';
if token[i]='=' then
nama_token[i]:='Tsama';
if token[i]='Maka' then
nama_token[i]:='Tmaka';
if token[i]=':=' then
nama_token[i]:='Tmasukan';
if token[i]='div' then
nama_token[i]:='Tdiv';
if token[i]='Beda' then
nama_token[i]:='Tbeda';
if token[i]='mod' then
nama_token[i]:='Tmod';
if token[i]=';' then
nama_token[i]:='Ttkoma';
if token[i]='Selesai' then
nama_token[i]:='Tselesai';
if token[i]='.' then
nama_token[i]:='Ttitik';
end;
end;
procedure tampil_token;
begin
clrscr;
writeln(' keyword Token');
writeln(' ******* *****');
for i:=1 to 22 do
begin
writeln(token[i]:10,' = ',nama_token[i]);
end;
gotoxy(35,1);writeln(' keyword Token');
gotoxy(35,2);writeln(' ******* *****');
m:=3;
for i:=23 to k do
begin
gotoxy(35,m);writeln(token[i]:10,' = ',nama_token[i]);
m:=m+1;
end;
end;
begin
baca;
tampil;
cek_token;
cek_nama_token;
tampil_token;
end.
Link
<html> <head> <title> Membuat frame </title>
</head>
<body> <font color="red"><h1>Klik Link-link ini</h1></font><br> <a href="masukyahoo.html" target=frameisi>Masuk ke situs yahoo</a><br> <a href="masukgoogle.html" target=frameisi>Masuk ke situs Google</a> </body>
</html>
Spirituous Of Mine (By Phietz)
Hidup ini penuh misteri
Semua serba tidak pasti
Susah senang antri silih berganti
kesuksesan dan keterpurukan menghampiri tanpa permisi
kita tak mungkin bernegosiasi dg nasib baik dan buruk
Kapan kita diatas?
Kapan kita di bawah?
Datangnya tak dpt kita prediksi
takdir tak pernah pilih kasih
Dia tak mengenal gender, usia dan rasa iba
dia datang tanpa kompromi
Dan pergi tanpa ber-kata2
Link Absolut
<html>
<head>
<title>
Halaman Utama
</title>
</head>
<body>
<h1>Halaman Utama</h1>
Silahkan Klik Pada Link-link berikut :<br>
<a href="http://www.yahoo.com">Masuk ke situs Yahoo</a>
</body>
</html>
isi
<html> <head> <title> Membuat frame </title>
</head>
<body> <font color="blue"><h1>Ini adalah Halaman Isi</h1></font> </body>
</html>
Menu
<html> <head> <title> Halaman Utama </title> </head>
<body> <h1>Halaman Hiji</h1> <h2> Silahkan klik Pada Link-link berikut :<br> <a href="halpertama.html">Halaman Pertama<a><br> <a href="halkedua.html">Halaman Kedua<a><br> </body>
</html>
Link Gambar
<html> <head> <title> Link dengan Gambar </title> </head>
<body bgcolor="blue"> <font color="red" size="18"> klik <a href="http://www.google.com"> <img src="google.bmp"align"center"width=200 height=100> </a>
</body>
</html>
Link Dalam Dokumen yang sama
<html> <head> <title> Memanggil Dokumen Dalam Halaman Yang Sama </title> </head>
<body bgcolor="blue"> <a name="bagianatas"> <a href=#bagianbawah>Bagian Bawah</a><br> <a href=#bagiantengah>Bagian Tengah</a><br> </a> <p> <font color="yellow" size="3" style="bold"> <h3>Bagian atas</h3> <pre> Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen
</pre>
<a name="Bagian Tengah"> <a href="#bagianatas">Bagian Atas</a><br> <a href="#bagianbawah">Bagian Bawah</a><br>
</a>
<font color="red" size="3" style="bold">
<h3>Bagian Tengah</h3> <pre> Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen pemanggilan bagian dalam dokumen
Tulisan ini adalah acak hanya untuk membedakan </pre>
</name="bagianbawah"></a href="#bagianatas">Bagian Atas</a><br></a href="#bagiantengah">Bagian Tengah</a><br></a><fontcolor="magenta" size="3"><h3>Bagian Bawah</h3><pre> Tulisan ini adalah acak hanya untuk membedakan pemanggilan Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen Tulisan ini adalah acak hanya untuk membedakan pemanggilan bagian dalam dokumen
</pre>
</body>
</html>
Judul
<html> <head> <title> Halaman Utama </title> </head>
<body bgcolor="green"> <font color="yellow"><h1 align="center">STMIK KHARISMA</h1></font color="blue"> <font face="arial" size=4 color="white"> <marquee direction="LEFT"> WILUJENG SUMPING DI DUNIA MAYA</MARQUEE> </FONT> <p><font color="navy"><h1>X<sup>2</sup><sub><u>y</u></sub></h1><font color></p> </body>
</html>
