
Hai. bagi anda yang ingin memasang iklan anda disini silahkan hubungi +6285265522600 atao email ke aritha.mail@gmail.com. juga bisa by facebook Aritha Handrico Read more.....
just for sharing
<script language='javascript' src='http://www.onlineleaf.com/savetheenvironment.js' type='text/javascript'/>
<style type='text/css'>
div#energysaving, div#energysaving * { -moz-border-radius: 0; -webkit-border-radius: 0; border: 0; background: url(http://urlgambaranda/) no-repeat center center fixed black; }
div#energysaving p { margin: 0; padding: 0; width: 100%; font-size: 0px; font-family: arial; color: transparent; position: relative; top: 40%; line-height: 20px; font-weight: bold; text-align: center; text-shadow: none; display: none; }
div#energysaving p span { color: transparent; font-size: 0px; font-weight: normal; display: none; }
</style>
<html>
<head>
<title>Personal WEB</title>
</head>
<link href="webstyle.css" rel="stylesheet" type="text/css"/>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
</body>
</html>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div id="header"></div>
<div id="content"></div>
<div id="footer"></div>
</body>
#header {
Width:90%; height:50px;
Padding: 10px 5% 10px 5%;
Background-color : #efeffe;
}
#footer {
Width:100%; height:50px;
Padding: 10px 0 5px 0;
Text-align:center; Font-size:12px; Color:#ffffff;
Background-color : #3f3f3f;
}
#content{
Width:1000px; height:450px;
margin:auto;
border-left: 3px #efefff solid;
border-right: 3px #efefff solid;
}
<div id="header"><h2>WEB Personal<h2></div>
<div id="content">Isi dari web ini dapat berupa artikel dan lain lain</div>
<div id="footer">© WEB Personal 2011<br> Workshop Pemrograman WEB</div>
#header h2 {
font-family : tahoma, verdana, serif;
font-size: 18px;
color : #e33;
}
<div id="content">
<form name="form1" action="">
<table>
<tr> <td width="120px">Nama </td> <td><input type="text" name="nama"></td></tr>
<tr> <td>Jenis Kelamin </td> <td><input type="radio" name="jkel" value="Pria"> Pria <input type="radio" name="jkel" value="Wanita"> Wanita</td></tr>
<tr> <td>Jurusan </td> <td>
<select name="jurusan">
<option>T Informatika</option>
<option> T Industri </option>
<option> Matematika </option>
<option> Sis Informasi </option>
<option> T Elektro </option>
</select>
</td></tr>
<tr><td> </td> <td><input type="submit" name="submit" value="submit"></td></tr>
</table>
</form>
</div>
<html>
<head><title>Personal WEB</title>
<link href="webstyle.css" rel="stylesheet" type="text/css"/>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<div id="header"><h2>WEB Personal<h2></div>
<div id="content">
<form name="form1" action="">
<table>
<tr> <td width="120px">Nama </td> <td><input type="text" name="nama"></td></tr>
<tr> <td>Jenis Kelamin </td> <td><input type="radio" name="jkel" value="Pria"> Pria <input type="radio" name="jkel" value="Wanita"> Wanita</td></tr>
<tr> <td>Jurusan </td> <td>
<select name="jurusan">
<option>T Informatika</option>
<option> T Industri </option>
<option> Matematika </option>
<option> Sis Informasi </option>
<option> T Elektro </option>
</select>
</td></tr>
<tr><td> </td> <td><input type="submit" name="kirim" value="kirim"></td></tr>
</table>
</form>
</div>
<div id="footer">© WEB Personal 2011<br> Workshop Pemrograman WEB</div>
</body>
</html>
#header {
Width:90%; height:50px;
Padding: 10px 5% 10px 5%;
Background-color : #efeffe;
}
#header h2 {
font-family : tahoma, verdana, serif;
font-size: 18px;
color : #e33;
}
#footer {
Width:100%; height:50px;
Padding: 10px 0 5px 0;
Text-align:center; Font-size:12px; Color:#ffffff;
Background-color : #3f3f3f;
}
#content{
Width:1000px; height:450px;
margin:auto;
border-left: 3px #efefff solid;
border-right: 3px #efefff solid;
}
body
{
background-color:#d0e4fe;
}
h1
{
color:orange;
text-align:center;
}
p
{
font-family:"Times New Roman";
font-size:20px;
}
p {color:red;text-align:center;}
p
{
color:red;
text-align:center;
}
/*This is a comment*/
p
{
text-align:center;
/*This is another comment*/
color:black;
font-family:arial;
}
<link rel="stylesheet" type="text/css" href="mystyle.css" />
</head>
hr {color:sienna;}
p {margin-left:20px;}
body {background-image:url("images/back40.gif");}
<head>
<style type="text/css">
hr {color:sienna;}
p {margin-left:20px;}
body {background-image:url("images/back40.gif");}
</style>
</head>
<p style="color:sienna;margin-left:20px">This is a paragraph.</p>
program arh_bsort_menaik;
uses wincrt;
var i,n,j : integer;
a: array [1..100] of integer;
procedure buble;
var z: integer;
begin
for i:= 1 to n-1 do
begin
for j:= n downto i+1 do
begin
if a[j] < a[j-1] then
begin
z:= a[j];
a[j]:= a[j-1];
a[j-1]:=z;
end;
end;
end;
end;
begin
write('masukkan banyak larik (maks 100) : '); readln(n);
for i:= 1 to n do
begin write('A[',i,'] : '); readln(a[i]);
end;
buble;
write('data setelah diurutkan : ');
for j:=1 to n do
write (a[j],' ');
end.
program arh_bsort_menurun;
uses wincrt;
var i,n,j : integer;
a: array [1..100] of integer;
procedure buble;
var z: integer;
begin
for i:= 1 to n-1 do
begin
for j:= n downto i+1 do
begin
if a[j] > a[j-1] then
begin
z:= a[j];
a[j]:= a[j-1];
a[j-1]:=z;
end;
end;
end;
end;
begin
write('masukkan banyak larik (maks 100) : '); readln(n);
for i:= 1 to n do
begin write('A[',i,'] : '); readln(a[i]);
end;
buble;
write('data setelah diurutkan : ');
for j:=1 to n do
write (a[j],' ');
end.
program arh_si2plarik;
uses wincrt;
var N, x,r,i,idx : integer;
ketemu :boolean;
a: array [1..100] of integer;
begin
write('masukkan banyak data '); readln(n);
for r:= 1 to n do
begin write('A[',r,'] : '); readln(a[r]);
end;
idx:=1;
ketemu:=false;
write ('nilai yang akan disisipkan : '); readln(x);
while (idx<=n) and (not ketemu) do
if (x<a[idx]) then ketemu:=true
else
idx:=idx+1;
if (ketemu) then
for i:=n downto idx do
a[i+1] := a[i];
a[idx]:= x;
if (not ketemu) then
a[n+1]:=x;
writeln;
writeln('hasil setelah pengurutan ');
writeln;
for r:= 1 to n+1 do
write (' ',a[r]);
end.
program karakterNG;
uses wincrt;
const
L: array [1..11] of char = ('N','A','N','G','K','A',' ','A','N','G','#');
var
a,n : integer;
begin
write (L);
n:=0;
a:=1;
while (L[a] <> '#') do
begin
if (L[a] = 'N') and (L[a+1]='G') then
begin n:=n+1;
end;
L[a]:=L[a+1];
a:= a+1;
end;
writeln;
write('jumlah karakter NG : ',n,' buah');
end.
program karakterNG;
uses wincrt;
const
L: array [1..11] of char = ('N','A','N','G','K','A',' ','A','N','G','#');
var
a,n : integer;
begin
write (L);
n:=1;
a:=1;
while (L[a] <> '#') do
begin
if (L[a] <> ' ') and (L[a+1]=' ') then
begin n:=n+1;
end;
L[a]:=L[a+1];
a:= a+1;
end;
writeln;
write('jumlah kata pada teks adalah : ',n,' buah');
end.
Copyright (c) 2011 Catatan Kuliah ku.Infinityskins