Beberapa Contoh Program Pascal Paling Sederhana

Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis
Skrip Program Pascal	Output Program
program jum_bil; uses wincrt; var i, jum,bil: integer; begin jum:=0; {inisialisasi} for i:=1 to 5 do begin write(‘Masukkan Bilangan = ‘);readln(bil); jum:=jum+bil; end; writeln(‘Jumlah Bilangan = ‘,jum); end.	Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Jumlah Bilangan = 60
Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal	Output Program
program jum_bil2; uses wincrt; var i, n: integer; jum, bil: real; begin write(‘Banyak bilangan :  ’);read(n); jum := 0; For i:= 1 to n do begin write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil); jum := jum+bil; end; writeln(‘Jum = ‘,jum:0:2); end.	Banyak bilangan : 3 Masukkan Bilangan 1 = 12 Masukkan Bilangan 2 = 13 Masukkan Bilangan 3 = 14 Jum = 39.00
Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal	Output Program
program contoh_3; uses wincrt; var n, i : integer; rata : real; jum, bil : integer; begin Write(‘Masukkan nilai N = ‘);readln(n); writeln (‘Nilai N adalah= ‘,n);writeln; for i := 1 to n do begin write(‘Masukkan bilangan : ‘);read(bil); jum := jum+bil;   end; rata := jum/n;writeln; writeln(‘Jumlahnya adalah : ‘,jum); writeln(‘Nilai rata-ratanya :’, rata:0:2); end.	Masukkan nilai N = 3 Nilai N adalah= 3   Masukkan bilangan: 1 Masukkan bilangan: 2 Masukkan bilangan: 3   Jumlahnya adalah : 6 Nilai rata-ratanya : 2.00
Program Menghitung Jumlah dan Banyaknya Data
Script Program Pascal	Output Program Pascal
program contoh4; uses wincrt; var n, i,byk,jum, bil : integer; begin Write(‘Masukkan nilai perulangan : ‘);readln(n); Writeln; for i := 1 to n do begin write(‘Bilangan ‘,i,’ = ‘);read(bil); if bil >= 10 then begin byk := byk+1; jum := jum+bil ; end; end; writeln; writeln(‘banyak bilangan yang >= 10 : ‘,byk); writeln(‘jumlah bilangan yang >= 10 : ‘,jum); end.	Masukkan nilai perulangan: 3   Bilangan 1 = 10 Bilangan 2 = 3 Bilangan 3 = 25   Banyak bilangan yang >= 10 : 2 Jumlah bilangan yang >= 10 : 35

jika tulisan ini kurang jelas, silakan ditanyakan atau kitabisa diskusikan bersama. Ada yang kurang? Ada yang ingin ditambahkan? sampaikan aspirasi Anda. hhe… ^^

Protokol Gopher

berikut penjelasan gopher yang diadaptasi dari berbagai situs yang telah aku browsing:

Gopher adalah aplikasi yang dapat mencari maklumat yang ada di Internet, tetapi hanya “text base” saja, atau berdasarkan teks.Untuk mendapatkan maklumat melalui Gopher, kita harus menghubungkan diri dengan Gopher server yang ada di Internet. Gopher merupakan protocol yang sudah lama dan saat ini sudah mulai di tinggalkan karena penggunaannya tidak sesedeharna HTTP.

(http://herekiki.multiply.com/journal/item/1)

Gopher
Gopher adalah aplikasi perangkat lunak yang tesusun atas untaian menu sistem pencarian dan penemuan kembali. Situs Gopher adalah komputer yang menampilkan menu-menu yang mewakili data dan informasi yang tersedia. Secara mendasar, menu-menu ini adalah daftar isi untuk mengolah dan menunjuk ke sebuah informasi tertentu. Layanan ini menggunakan FTP untuk pertukaran file dan Telnet untuk koneksi dengan server tertentu. (http://faculty.petra.ac.id/dwikris/docs/desgrafisweb/www/3-fasilitas_internet.html)

Gopher adalah aplikasi yang dapat mencari maklumat yang ada di internet, tetapi hanya “text base” saja, atau berdasarkan teks. Untuk mendapatkan maklumat melalui gopher, ita harus menghubungkan diri dengan Gopher server yang ada di internet. Gopher merupakan protocol yang sudah lma dan saat ini mulai ditinggalkan karena penggunaannya tidak sesederhana HTTP. (http://www.kimia-chem.co.cc/2009/09/jawaban-tugas-puskim.html)

Gopher, kata ini diambil dari sebuah tim atletik The Golden Gopher pada sebuah universitas di Amerika yaitu Minnesota, atau ada yang mengartikan “go for” yang berarti mengambil. Gopher merupakan program pencari informasi yang hanya berbasiskan teks saja. Karena berbasiskan teks saja maka pencarian informasi dapat berlangsung dengan cepat. (http://zulfikri.orgfree.com/pengenalan_internet.html)

Menurut kak Sunardi, Gopher adalah:

Protokol publikasi informasi berbasis karakter yang menggunakan menu untuk mengakses teks. Menempatkan informasi yang disimpan pada internet servers dengan menggunakan hirarki menu. intinya sih mirip dengan protocol telnet (23) yang ketika diakses hanya berbasis text dan kalo contoh aplikasinya seperti system tampilan pada banyak perangkat seperti modem, router dll. ketika diremote. Beda gopher dengan web adalah gopher tidak bisa menampilkan gambar, melainkan hanya teks dan merupakan salah satu sistem yang (dulunya) ada di inet.

Gopher menggunakan port 70. sedangkan Http menggunakan port 80.

contoh gopher adalah: gopher://port70.net/1log. Bersumber dari: http://bloggingly.com/jenis-jenis-blog/

—————————————————————————————–

SEMOGA BERMANFAAT ^_^

Ayo cari kesalahannya!!

Hari ini aku belajar OOP. pemrograman java adalah yang mendukung OOP (Object Oriented Programming). Dosen kasih tugas cari kesalahan dan cara perbaikinya ^^. apa yang salah ya? segera ketika aku perbaiki, akan ku tulis hasilnya.

—————————————————————

class Buku{
String pengarang;
String judul;
void setNilai (String param1, String param2){
judul = param1;
pengarang = param2;
}
void cetakkelayar(){
System.out.println(“Judul: ” +judul+ “, Pengarang : “+pengarang);
}
}

class DemoBuku2{
public static void main (String[] args){
Buku a, b;
a =new Buku;
b = new Buku;

a.setNilai (“Ketika Cinta Bertasbih”, “Habiburrahman El Shirazy”);
b.setNilai (“Jurrasic Park”, “Michael Crichton”);

a.cetakkelayar();
b.cetakkelayar();
}
}

BSOD (Blue Screen Of the Dead)

• BSOD di win 98/Millenium

• BSOD di Win NT

• BSOD di win XP

• BSOD di win Vista

ni penyebab² BSOD tersebut:

1. Hardware Conflict

Alasan pertama mengapa Windows bisa mengalami Crash adalah konflik pada hardware.Setiap hardware berkomunikasi dengan perangkat lain melalui IRQ (interrupt request channel) dan harus uniqe untuk setiap perangkat. Conto Printer biasanya menggunakan IRQ 7, Keyboard menggunakan IRQ 1, Flooy menggunakan IRQ6. Setiap perangkat menggunakan IRQ nya masing2 secara otomatis. Apabila komputer anda memiliki banyak perangkat atau perangkat tidak terinstall dengan baik, maka yang terjadi adalah adanya pembagian IRQ untuk lebih dari 1 perangkat. Dan saat anda mengakses ke-2 perangkat yang menggunakan IRQ yg sama tsb maka akan ada kemungkinan Windows akan Crash.

2. Bad Ram

RAM (Random Access Memory) memiliki kemungkinan menyebabkan Blue Screen pada windows anda. Fatal Error dari RAM biasanya di sebabkan oleh perbedaan Chip yang ada pada memory.