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