Iklan disini



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.....

Lobster Red Claw murah di Pekanbaru Riau (indukan, anakan )


Numpang promo dikit deh, bagi yang ingin memesan lobster Red Claw domisili Riau dansekitarnya silahkan hubungi +6285278007500 (Maulana) atau +6285265522600 (Aritha). kebetulan kemarin abang saya memulai bisnis peternakan lobster. dan saya melihat bisnis lobster cukup menggiurkan. harga bibit ukuran 1 inci (2.30 - 2.80cm) RP. 1500/ekor. harga bibit ukuran 2 inci (4.00 - 5.00cm) RP. 2500/ekor. dan waktu yang dibutuhkan untuk membesarkan lobster dari telur sampai ukuran 1 inci hanya 3 bulanan. dan 1 induk betina bisa bertelur sampai 150 telur sekali menelur (sebenarnya bisa sampai 400 telur, tergantung indukannya ukuran berapa dan nilai mortalitas atau tingkat kematian burayaknya). nah, anggap aja dari 150 yang hidup cuma 100 ekor. 100xRp.1500= Rp.150.000.
dan yang lebih menarik lagi, kalau kita mau sabar nunggu sampai lobster lebih gede, sekitar 5-7 bulanan, nilai jual lobster akan lebih mahal, lobster dijual sebagai indukan yang siap untuk dikawinkan.

harga indukan yang sudah siap dikawinkan bisa mencapai 50rb-60rb/ekor. kebayang gak kalu kita punya 100 ekor lobster. 100xRp.50000 = Rp.5.000.000 (lumayan kan ).

nah lebih menarik lagi apabila kita mempunyai indukan betina yang sedang bertelur dan siap untuk ditetaskan. harga jualnya bisa mencapai 100rb sampai 150rb.

untuk tempat pun tidak perlu repot. hanya dengan kolam terpal kita dapat membudidayakan lobster air tawar. nah bagaimana? tertarik ingin memulai usaha pembududayaan lobster?

silahkan saja call atau SMS +6285278007500 (Maulana) atau +6285265522600 (Aritha)

atau bisa juga pesan by email : aritha.mail@gmail.com
by facebook : Maulana atau Aritha

Read more.....

Optimasi website/blog di Search engine dengan Addurl


Kamu mau ketika ada orang yang mencari/search di google tentang topik yang pernah kamu tulis blog dan blog kamu berada pada halaman pertama search enggine seperti google.com yahoo.com bing.com. agar dapat terbaca oleh search engine, blog/website kita harus di daftarkan terlebih dahulu. caranya mudah kok dengan mengkilik link addurl berikut dan daftarkan blog anda. Read more.....

Membuat energy saving mode pada blog

Pernah melihat web/blog yang menggunakan energy saving mode ? ketika web tidak dibuka maka layar akan menjadi hitam. bagaimana cara membuatnya? ikuti langkah berikut.

1. masuk ke dashbor
2. pilih rancangan kemudian edit html.
3. masukkan koding berikut diantara tag <head> </head>.
<script language='javascript' src='http://www.onlineleaf.com/savetheenvironment.js' type='text/javascript'/>


4. simpan template. dan blog/web anda akan secara otomatis terpasang energy saving mode.

dapet tutorial dari http://wonaza.blogspot.com/ tentang bagaimana caranya mengganti gambar yang ditampilkan pada saat energy saving mode.
Silahkan Copy dan Paste script berikut dan pasang di gadget/widget anda :

<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>


dan jangan lupa script di atas .. anda edit sedikit dengan mengganti link url gambar anda sendiri .. url(http://urlgambaranda/) <-- yang ini ya :)

selesai ....

hasilnya akan seprti ini.

Read more.....

Membuat web Personal dengan div css

Untuk membuat sebuah website personal yang sederhana pertama kamu mesti paham dulu konsep dari website tersebut. Umumnya website dibagi menjadi3 bagian, Header, Content, dan Footer.Untuk membagi halaman web menjadi 3 bagian (header, content, footer). Bisa menggunakan tag <table>, namun hal ini tidak disarankan, karena akan sulit untuk kedepannya apabila ingin membuat website 3 colom atau membuat bagian baru lagi di halaman web.
Cara lain yaitu dengan menggunakan CSS. Pada tahap ini akan dijelaskan step by step membuat web personal dengan css.

1. Pertama sediakan sebuah file html yang memuat link file css. Save dengan nama personal.html
<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>

Penjelasan : href="webstyle.css" adalah nama file css yang kita gunakan.

2. Selanjutnya pada bagian body, bagi halaman menjadi 3 bagian dengan cara memberi tag <div>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div id="header"></div>
<div id="content"></div>
<div id="footer"></div>

</body>

Fungsi tag <div> adalah untuk membagi halaman menjadi beberapa bagian. Pada masing-masing <div> diberi id agar bisa di seleksi pada file css.

3. Buat file css simpan dengan nama "webstyle.css", (letakkan difolder yang sama dengan file personal.html). buka file css tersebut dan masukkan koding berikut.
#header {
Width:90%; height:50px;
Padding: 10px 5% 10px 5%;
Background-color : #efeffe;
}

Coba save file css kemudian buka personal.html, terlihat berbeda kan?. Lanjutkan dengan mengetik koding berikut
#footer {
Width:100%; height:50px;
Padding: 10px 0 5px 0;
Text-align:center; Font-size:12px; Color:#ffffff;
Background-color : #3f3f3f;
}

Kemudian berikan property untuk id content di file css.
#content{
Width:1000px; height:450px;
margin:auto;
border-left: 3px #efefff solid;
border-right: 3px #efefff solid;
}

Oke silahkan buka file html kamu dan lihat hasilnya akan seperti ini.


4. Kemudian beri tulisan pada file HTML kamu
<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>

Simpan dan refresh file personal.html kamu.

5. Percantik header dengan menambahkan koding berikut yang bertujuan mengubah format h2 yang ada didalam tag <div id="header"> pada file css
#header h2 {
font-family : tahoma, verdana, serif;
font-size: 18px;
color : #e33;
}

6. Ubah isi content!, Pada bagian content kita akan membuat sebuah form inputan yang akan digunakan ketika mempelajari php. Lihat koding berikut.
<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>

hasil akhir seperti ini



personal.html :
<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>


webstyle.css :
#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;
}


good luck.. :)
Read more.....

Belajar CSS

Apa yang seharusnya sudah diketahui
Sebelum mempelajari CSS, seharusnya kamu sudah memahami tentang :
• HTML / XHTML.
Apa itu CSS?
• CSS singkatan dari Cascading Style Sheets
• Styles berarti bagaimana menampilkan elemen HTML
• Styles ditambahkan ke HTML 4.0 untuk memecahkan masalah
• External Style Sheets dapat menghemat banyak pekerjaan
• External Style Sheets diletakkan di dalam file CSS


Contoh CSS
body
{
background-color:#d0e4fe;
}
h1
{
color:orange;
text-align:center;
}
p
{
font-family:"Times New Roman";
font-size:20px;
}


Styles Dapat Menyelesaikan Permasalahan Yang Besar


HTML tidak dibuat untuk mengatur format dari dokumen. Kalaupun ada itupun hanya yang penting-penting saja seprti mempertebal, align, mengganti warna dari teks, dan kita harus mengatur format teks tersebut secara manual (satu persatu).
HTML lebih mengarah untuk mendefinisikan content dari dokumen,seprti:
<h1>This is a heading</h1>
<p>This is a paragraph.</p>
Pada html, apabila kita ingin memberi warna merah pada setiap tag <a>. maka caranya yaitu dengan memberikan tag <font>,dan menspesifikasikan atribut warna nya apa, <font color="red">merah</font>, hal ini menjadi mimpi buruk bagi developer, karena mereka harus menambahkan tag font dan atribut colornya setiap ingin mengubah warna dari sebuah teks.
Untuk menyelesaikan masalah tersebut, the World Wide Web Consortium (W3C) membuat CSS.
Pada HTML 4.0, semua format dokumen (CSS) bisa dihilangkan dari dokumen HTML, dan dipisahkan menjadi 1 dokumen CSS yang terpisah.
Pada saat ini semua browser sudah support CSS.

CSS Menghemat Banyak Pekerjaan!


CSS mendefinisikan BAGAIMANA elemen HTML akan ditampilkan.
Biasanya file css disimpan di luar dari dokumen HTML/ external .css files. External style sheets memungkinkan kita untuk mengganti tampilan layout dari semua halaman website. Dengan hanya mengedit 1 file CSS saja, menakjubkan bukan!

Syntax CSS


Aturan dari CSS sangat lah simpel, aturan ini memiliki 2 bagian utama : selector (yang digunakan untuk menyeleksi bagian mana yang mau di format), dan 1 atau lebih declarations (isi dari format css, bisa menggati warna, ukuran font dll):

Selector diatas akan menyekesi semua tag h1 dan menggati ukuran font menjadi 12px dan warnanya menjadi biru. Hanya dengan 1 baris kode tersebut secara ajaib semua teks yang berada pada tag <h1> akan berubah secara otomatis.
Setiap deklarasi akan berisi property and a value. property adalah atribut dari style yang ingin kamu ubah. Dan setiap atribut akan memiliki nilai, misalnya property font-size: memiliki nilai 12 pixel.
Contoh CSS
Deklarasi CSS selalu diakhiri dengan semicolon/titik koma (;), dan deklarasi dari grup property (apabila ada banyak property) berada didalahm tanda kurung siku {},:
p {color:red;text-align:center;}

Untuk membuat CSS lebih mudah dibaca,kita dapat memisahkan property pada setiap bari, seperti berikut:
Contoh
p
{
color:red;
text-align:center;
}


Komentar pada CSS


Komentar digunakan untuk menjelaskan kode yang dibuat, dan sangat berguna ketika kamu ingin mengedit source codenya. Komentar tidak akan dibaca oleh browser.
Komentar CSS diawali dengan "/*", dan diakhiri dengan "*/", seperti ini:
/*This is a comment*/
p
{
text-align:center;
/*This is another comment*/
color:black;
font-family:arial;
}

Id (#) and class (.) Selectors


Untuk mengatur style pada elemen HTML, CSS mengijinkan kita untuk membuat sendiri selektor yang sering disebut "id" and "class".

id Selector

Id selector digunnakan untuk mengatur style untuk 1 element tunggal yang unik.
Selektor id menggunakan atribut "id" pada HTML, dan didefinisikan dengan tanda "#" pada CSS.
Contoh
HTML : <div id="header">
Pada file CSS nya #header { properti yang ingin diberikan}
Jangan memmulai nama ID dengan angka/nomor! Karena tidak akan berkerja pada Mozilla/Firefox.

class Selector

Class selektor digunakan untuk menspesifikasikan style dari kumpulan element-element HTML (group elements). Tidak seperti selektor id, selektor class lebih sering digunakan pada beberapa elemen.
Selektor class menggunakan atribut "class" pada HTML, dan didefinisikan dengan tanda "." pada CSS.
Pada contoh berikut, semua elemen HTML dengan class="center" akan menjadi rata tengah:
Example
.center {text-align:center;}

Kamu juga dapat menspesifikasikan elemen mana yang ingin dirubah. Misalnya kita hanya ingin melakukan perubahan pada teks yang berada pada tag <p> dengan class center.
Pada contoh berikut, semua elemen p dengan class="center"akan menjadi rata tengah:
Example
p.center {text-align:center;}

Jangan memulai nama class dengan angka/nomor! Karena ini hanya suport pada internet explorer.
Ketika browser membaca style sheet, maka browser akan memformat document berdasarkan style sheet tersebut.

Tiga cara memasukkan CSS


Ada 3 cara untuk memasukkan style sheet kedalam dokumen HTML:
• External style sheet
• Internal style sheet
• Inline style

External Style Sheet


External style sheet idealnya digunakan untuk mengatur format bebarapa dokumen HTML .dengan external style sheet, kita dapat mengubah format seluruh halaman web dengan mengedit 1 file css saja.setiap halaman harus memberi link ke file css dengan menggunakan tag <link>. Didalam tag <link>masukkan koding berikut:
admin siswa blom bisa edit<head>
<link rel="stylesheet" type="text/css" href="mystyle.css" />
</head>

External style sheet dapat ditulis dengan menggunakan teks editor apa saja.didalam file css tidak tedapat tag HTML. Style sheet seharusnya disimpan dengan ekstensi .css.contoh dari file style sheet seperti berikut:
hr {color:sienna;}
p {margin-left:20px;}
body {background-image:url("images/back40.gif");}

Jangan gunakan spasi antara property value dan unitsnya! contoh "margin-left:20 px" antar 20 dan px ada spasi (seharusnya "margin-left:20px") ini bekerja di IE, tetapi tidak di Firefox atau Opera.

Internal Style Sheet


Internal style sheet digunakan ketika sebuah dokumen memiliki style yang unik. Kamu mendefinisikan style sheet dibagian <head> pada halaman HTML, dengan menggunakan tag <style>,seprti ini:
<head>
<style type="text/css">
hr {color:sienna;}
p {margin-left:20px;}
body {background-image:url("images/back40.gif");}
</style>
</head>

Inline Styles


Untuk menggunakan inline styes sheet, kita menggunakan attibut style pada elemen tag HTM L yang ingin diubah style nya. Atribut style dapat berisi : CSS property. contoh berikut menunjukkan bagaimana cara meriubah warna left margin dari paragraf:
<p style="color:sienna;margin-left:20px">This is a paragraph.</p>


Margin dan Padding pada CSS


Margin dan padding merupakan hal yang mirip tetapi berbeda. Fugsi nya sama-sama untuk memberi jarak darisatu elemen ke elemen lainnya untuk merapikan dokumen. Agar lebih jelas lihat gambar.

Jelaslah bahwa padding memberikan jarak antara border dan content ( isi dari elemen tersebut). Sedangkan margin memberikan jarak antara border elemen dengan bagian luar dari elemen
Kita juga dapat melakukan seperti ini
- padding:25px 50px 75px 100px; artinya :
• top padding 25px
• right padding 50px
• bottom padding 75px
• left padding 100px
- padding :25px; berarti semua padding baik top bottom left right bernilai 25px;

source : http://w3schools.com

Read more.....

Bubble Sort pada pascal.

pada artikel kali ini akan membahas tentang bubble sort yaitu pengurutan dengan metode bubble sort. pertama kita mesti tau dulu bubble sort terbagi 2. ada buble sort menaik dan bubble sort menurun.

contoh yang menaik : data = 1 4 3 2
hasil = 1 2 3 4

sedangkan contoh yang menurun : data 1 4 3 2
hasil = 4 3 2 1

simple saja bukan :) lets check it out ..

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.


Yang harus diperhatikan adalah koding
if a[j] < a[j-1] then
begin
z:= a[j];
a[j]:= a[j-1];
a[j-1]:=z;

end;
fungsi koding diatas adalah untuk menukarkan posisi dari angka yang ada pada larik. Jika nilai sekarang lebih kecil dari nilai sebelumnya maka tukar posisi array. Maksudnya serpti ini, misalnya kita punya data 1 4 3 ketika yang dicek array indeks ke 2 a[2]=4, akan dibandingkan nilainya dengan array indeks sebelumnya a[2-1]=1, apakah 4 < 1 ? kalau iya ditukar posisinya. Kalau tidak ya gak ditukar.
Selanjutnya pada array indeks ke 3 a[3]=3 dan a[3-1]=4. Apakah 3<4? Iya, barulah dijalankan proses pertukaran tempat/posisi array.

Konsepnya sama seprti algoritma tukar bejana. Dimana kita memiliki sebuah variabel temp yang bernama z.pertama nilai dari larik sekarang (yang ingin dipindahkan) a[i] akan diletakkan pada temp (z). kemudian nilai larik sekarang (a[i]) di isi dengan nilai sebelumnya a[i-1]. Lalu nilai dari a[i-1] di isi nilai z.
Contohnya : nilai a[i]= 4 a[i-1]=3. Maka tahapan pertukarannya adalah
z := 4; a[i]= 3; a[i-1]=4; selesai deh pertukaran dicek dan dilakukan terus sampai angka terurut semua.



Koding untuk bubble sort menurun
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.

Kodingnya sama saja perbedaannya hanya pada tulisan yang berwarna merah.

btw yang belom punya tpw download dulu di sini klik

Read more.....

Program Sisip larik dan pengurutan pada pascal.

buat kamu yang mendapatkan tugas membuat program sisip larik dari dosen, coba deh cek program 1 ini semoga bermanfaat.

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.


penjelasan
guna while (idx<=n) and (not ketemu) do
if (x<a[idx]) then ketemu:=true
else
idx:=idx+1;

Mencek apakah nilai yang disisipkan berada ditengah-tengah aray atau berada di akhir aray. Misalnya data array 1 2 4 5 yang disisipkan 3, berarti 3 berada ditengah-tengah aray (1 2 3 4 5) disiipkan ditengah.
guna while (idx<=n) melakukan perulangan sebanyak n kali dan indeks dari angka yang disisipkan belum ketemu.
if (x<a[idx]) then ketemu:=true jika nilai yang disisipkan (x) lebih kecil dari data yang sudah ada, berati angka tersebut akan disisipkan ditengah atau akan disisipkan diawal array.
else
idx:=idx+1;
jika tidak, menambahkan indeks baru, berati angka akan disisipkan di bagian ujung kanan.

Sintaks berikut.

if (ketemu) then
for i:=n downto idx do
a[i+1] := a[i];
a[idx]:= x;

Gunanya untuk meletakkan angka yang akan disisipkan (menyisipkan angka kedalam array). Pertama program mencek apakah angka berada ditengah array atau tidak (kalau ketemu berarti ditengah array). Maka data pun akan dirubah dengan sintaks for i:=n downto idx do a[i+1] := a[i]; memasukkan nilai pada array a[n] sampai array a[idx]

a[idx]:= x; memasukkan nilai yang disisipkan kedalam array dengan indeks a[idx]

if (not ketemu) then
a[n+1]:=x; (memasukkan nilai x kedalam indeks paling ujung sebelah kanan.)


Read more.....

Pencarian karakter pada pascal


tekadang kita membutuhkan suatu mesin pencari karakter yang dapat mencari karakter yang kita inginkan. atau ingin menghitung berapa banyak karakter a atau karakter b dalam sebuah teks. ini adalah contoh program untuk mencari karakter 'NG' pada sebuah string berbentuk array

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.


OUTPUT : jumlah karakter NG : 2 buah

penjelasan : pertama kita membuat sebuah konstanta L/larik dimana isinya adalah kumpulan dari karakter. dari karakter tersebut akan dicari apakah ada huruf NG, jika ada maka pada output akan ditampilkan berapa banyak huruf N yang berdampingan dengan G.
kemudian kita tulis kata yang ada di dalam larik/array L write(L);
setelah itu beri nilai n dan a untuk indeks pada larik.

kemudian cek apakah karakter merupakan # ? kalau iya berarti pencarian dihentikan.
kalau tidak, dicek lagi apakah isi karakter merupakan huruf 'N' dan karakter selanjutnya adalah 'G' jika iya maka nilai n (variabel yang menampung jumlah karakter NG) ditambah 1.

guna
L[a]:=L[a+1];
a:= a+1;
adalah untuk melakukan pencarian berikutnya. larik yang selanjutnya.

menghitung banyak kata


untuk menghitung banyak kata hanya perlu mengganti kondisi
if (L[a] = 'N') and (L[a+1]='G') then
begin n:=n+1;
end;


menjadi if (L[a] <> ' ') and (L[a+1]=' ') then

dan ganti n:=0 menjadi n:=1


menjadi
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.

Read more.....

universitas terbaik di Riau

Adalah sebuah universitas terbaik di Riau, UIN Suska Riau (Universitas Islam Negeri ) sebagai tempat perkuliahan modern dengan fasilitas yang setara dengan Universitas unggulan lainnya. Kami sangat bangga sebagai mahasiswa bisa belajar di universitas ini, karena bisa menimba ilmu juga menghasilkan lulusan yang dibekali dengan pengetahuan yang berguna dalan perkembangan zaman sekarang, sesuai dengan tuntutan dunia kerja.
maka penulis disini cuma sekedar menerangkan bahwa dunia kerja itu membutuhkan orang2 yg berpendidikan, berakhlak baik, berkharisma, berwibawa, rajin, sopan, rapi dll..
Ha, di Universitas Islam Negeri Sultan Syarif Kasim Riau lah yang mengajarkan semua hal tersebut.

pertama, mengajarkan tentang akhlak.
mahasiswa UIN SUSKA RIAU diajarkan agama di tiap tingkat, mulai dari aqidah, akhlak, tasawuf, dll
jadi, mahasiswa di UIN SUSKA itu dibimbing dan diberi tunjuk ajar oleh dosen2 berkualitas.

kedua, kita diajari utk berorganisasi.
Di UIN SUSKA, banyak UKK dan UKM yang mendukung semua kreatifitas dan bakat dari mahasiswa itu, dan di tiap jurusan, kita memiliki HIMA (Himpunan Mahasiswa) dan juga ditiap fakultas kita memiliki SEMA (senat mahasiswa)..
bukan mimpi lagi kita untuk bisa belajar organisasi langsung kan??

ketiga, kita juga di ajari untuk berpakaian sopan, rapi,..
gk jamannya lagi pakaian "jeans" koboy tu gan, itu dah lama lewat..
lagipula, dunia kerja gk membutuhkan orang yang "gandrungan gk jelas" gtu gan..
kapan lagi coba kita belajar dewasa, berpenampilan rapi, dan berkelakuan baik
KITA DAH DEWASA GAN!!

so, otomatis dari semua yang kta pelajari, maka tampaklah kita sebagai mahasiswa yang berwibawa "cie-cie"
jadi, gk ada alasan lagi buat maen2, mari kita kuliah, tuntut ilmu bersama UIN SUSKA RIAU.

Semoga Universitas UIN Suska Riau bisa menjadi universitas terbaik di indonesia dan bisa bersaing menjadi univeritas terbaik dunia
Read more.....

Diktat XML

yang mau belajar2 xml ini ada diktat dari pak MUHAMMAD FIKRY, ST, M.Sc Download aja.
Read more.....
Related Posts Plugin for WordPress, Blogger...