Membuat deret Fibonacci menggunakan bahasa pascal

Langsung aja ya ke intinya, silahkan buka software program program pascal kamu dan langsung ketikkan atau copy/paste source code dibawah ini:

program deret_fibonacci;
uses crt;
Var i,j,a,b,c : Integer;
begin
clrscr;
a:=1;
b:=1;
For i := 1 to 5 do
begin
for j := 1 to i do
begin
c:=a+b;
write(c, ' ');
a:=b;
b:=c;
end;
writeln;
end;
readln;
end.

Setelah diketik langsung di compile dan di run ya, maka hasilnya seperti dibawah ini :



Jika ingin membuat deret Fibonacci berbentuk segitiga, berikut source codenya:

program deret_fibonacci;
uses crt;
Var i,j,a,b,c : Integer;
begin
clrscr;
a:=1;
b:=1;
For i := 1 to 5 do
begin
for j := 1 to i do
begin
c:=a+b;
write(c, ' ');
a:=b;
b:=c;
end;
writeln;
end;
readln;
end.

Setelah di compile dan di run, hasilnya sebagai berikut :


Selamat Mencoba ^_^

Chatting melalui dos dalam jaringan LAN

Jika komputer anda terkoneksi dengan jaringan LAN, anda dapat mengirim pesan ke computer lain yang ada dalam jaringan anda. Berikut langkah-langkahnya :
1. Masuk di Start → All Program → Run lalu anda masuk pada service windows dengan mengetikan perintah services.msc



2. Lalu klik 2 kali service yang bernama Messenger



3. Pada Messenger Properties anda harus berada pada tab General lalu Startup type: dalam posisi Manual dan Service Status: dalam keadaan Started dengan mengklik tombol Start. Bila ingin mengaktifkan service Messenger secara otomatis pada saat komputer dihidupkan set Startup type: dalam posisi Automatic.




4. Ulangi langkah 1 -3 seperti diatas pada komputer lainnya. Tujuannya adalah untuk mengaktifkan Service Messenger Windows pada setiap komputer dalam jaringan.

5. Masuk di Start → All Program → Accessories → Command Prompt lalu ketikan perintah net send seperti gambar dibawah ini:



6. Atau melalui Start → Run lalu ketikkan net send seperti gambar dibawah ini:



7. Bila sukses maka akan tampil pesan yang telah dikirimkan tadi pada komputer tujuan yang bernama NANDA seperti dibawah ini.




Mudah kan… Selamat mencoba^_^

Tentang Wanita

Bisnis Gratis

Anda Tidak perlu membayar sepersen pun untuk ikut dari Program ini. Tetapi bila Anda dapat mencarikan Kami Anggota, Kami akan membayar Anda.

Tabel dibawah adalah gambaran keberhasilan yang akan Anda raih.

Level	Member	Jumlah (Rp)
Level 1	25 orang x Rp 30,-	750,-
Level 2	25 x 25 orang x Rp 30,-	18.750,-
Level 3	25 x 25 x 25 orang x Rp 30,-	468.750,-
Level 4	25 x 25 x 25 x 25 orang x Rp 30,-	11.718.750,-
Level 5	25 x 25 x 25 x 25 x 25 orang x Rp 30,-	292.968.750,-
Total komisi		305.175.750

Biaya untuk Bergabung dalam Program ini hanyalah Rp 0,-

SILAHKAN JOIN DI

http://www.komisiGRATIS.com/?id=ndarider