Program Dasar Case Of dengan Bahasa Pascal

program dasar_caseof;
var
x:integer;
begin
writeln('belajar case of dasar');
writeln;
write('masukan sebuah angka =');readln(x);

case x of
0:writeln('x bernilai 0');
1:writeln('x bernilai 1');
2:writeln('x bernilai 2');
3:writeln('x bernilai 3');

else
writeln('x tidak bernilai 0,1,2,3');
end;
end.

Read more »

Posted in: BAHASA PASCAL

Program Konversi Nilai dengan Bahasa Pascal

program konversi;
var
angka:integer;

begin
writeln('mengkonversi nilai angka menjadi huruf');
write('masukan nilai anda = ');readln(angka);
if ((angka>=0) and (angka<=20)) then
writeln('nilai anda adalah huruf = e')
else if ((angka>20) and (angka<=40)) then
writeln('nilai anda adalah huruf = d')
else if ((angka>40) and (angka<=60)) then
writeln('nilai anda adalah huruf = c')
else if ((angka>60) and (angka<=80)) then
writeln('nilai anda adalah huruf = b')
else
writeln('nilai anda adalah huruf = a');
end.

Read more »

Posted in: BAHASA PASCAL

Program Positif For Negatif dengan Bahasa Pascal

program positifornegatif;
var
x:integer;
begin
writeln('menguji if then else');
write('masukan sebuah angka=  ');readln(x);
if(x>0)then
writeln('x adalah positif')
el
writeln('x adalah bilangan negatif');
end.

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Pertambahan Matrik dengan Bahasa Pascal

program aku;
uses Crt;
var
I,J : integer;
a,b,c : array [1..3, 1..2] of integer;
ch : char;
begin
clrscr;
writeln ('program menghitung pertambahan matrix 3x2');
writeln ('==================================');
for J := 1 to 2 do
begin
write ('masukkan nilai matrik a[',I,',',J,']=');
readln (a[I,J]);
write ('masukkan nilai matrik b[',I,',',J,']=');
readln (b[I,J]);
end;
writeln;
writeln('maka hasil dari matrik a+b =');
for I:= 1 to 3 do
begin
write ('|');
for J : 1 to 2 do
write (a[I,J] + b[I,J]:8;
write ('|');
writeln;
end;
write (.press any key to continue..');
end.


program informatika;
var
a,b,c : array [1..100, 1..100] of integer;
n,m,k,l,i,j: integer;
begin
write ('m= '); readln (m);
write ('n= '); readln (n);
for i:= 1 to m do
for j:= 1 to n do
begin
write ('a[',i,',',j,']='); readln (a[i,j]);
end;
write ('k= '); readln (k);
write ('l= '); readln (l);
for i:=1 to k do
for j:=1 to l do
begin
write ('b[',i,',',j,']=');readln (b[i,j]);
end;
writeln ('maka hasil dari pertambahan matrik a+b adalah');
if (m=k)and(n=l) then
    for i:= 1 to m do
    for j:= 1 to n do
    begin
    c[i,j]:= a[i,j] + b[i,j];
    writeln ('c[',i,',',j,']=' , c[i,j]);
    end
else
writeln ('tidak bisa');
end.

Read more »

Posted in: BAHASA PASCAL

Program Alternatif Rata-Rata dengan Bahasa Pascal

program alternatifratarat;
var
total,a,b,c,d,e:integer;
rata_rata:real;
begin
writeln('program menghitung rata-rata bilangan');
write('masukakan kelima bilangan dipisahkan dengan spasi = ');readln(a,b,c,d,e);
total:=a+b+c+d+e;
writeln('total kelima bilangan adalah =',total);
rata_rata:=total/5;
writeln('rata-ratanya adalah =',rata_rata:4:2);
end.

Read more »

Posted in: BAHASA PASCAL

Sistem Jaringan Komputer

Penggabungan teknologi komputer dan komunikasi berpengaruh sekali terhadap bentuk organisasi sistem komputer. Dewasa ini, konsep "pusat komputer", dalam sebuah ruangan yang berisi sebuah komputer besar, tempat dimana semua pengguna mengolah pekerjaannya, merupakan konsep yang sudah ketinggalan jaman. Model komputer tunggal yang melayani seluruh tugas-tugas komputasi suatu organisasi telah diganti oleh sekumpulan komputer berjumlah banyak yang terpisah-pisah tetapi saling berhubungan dalam melaksanakan tugasnya. Sistem seperti ini disebut sebagai Jaringan Komputer (Computer Network). 

Jaringan komputer dapat diartikan sebagai suatu himpunan interkoneksi sejumlah komputer otonom. Dua buah komputer dikatakan membentuk suatu network bila keduanya dapat saling bertukar informasi. Pembatasan istilah otonom disini adalah untuk membedakan dengan sistem master atau slave. Bila sebuah komputer dapat membuat komputer lainnya aktif atau tidak aktif dan mengontrolnya, maka komputer komputer tersebut tidak otonom. Sebuah sistem dengan unit pengendali (control unit) dan sejumlah komputer lain yang merupakanslave bukanlah suatu jaringan; komputer besar dengan remote printer dan terminalpun bukanlah suatu jaringan. 

Secara umum, jaringan mempunyai beberapa manfaat yang lebih dibandingkan dengan komputer yang berdiri sendiri dan dunia usaha telah pula mengakui bahwa akses ke teknologi informasi modern selalu memiliki keunggulan kompetitif dibandingkan pesaing yang terbatas dalam bidang teknologi. 

1. Jaringan memungkinkan manajemen sumber daya lebih efisien. Misalnya, banyak pengguna dapat saling berbagi printer tunggal dengan kualitas tinggi, dibandingkan memakai printer kualitas rendah di masing-masing meja kerja. Selain itu, lisensi perangkat lunak jaringan dapat lebih murah dibandingkan lisensi stand-alone terpisah untuk jumlah pengguna sama.
2. Jaringan membantu mempertahankan informasi agar tetap andal dan up-to-date. Sistem penyimpanan data terpusat yang dikelola dengan baik memungkinkan banyak pengguna mengaskses data dari berbagai lokasi yang berbeda, dan membatasi akses ke data sewaktu sedang diproses.
3. Jaringan membantu mempercepat proses berbagi data (data sharing). Transfer data pada jaringan selalu lebih cepat dibandingkan sarana berbagi data lainnya yang bukan jaringan.
4. Jaringan memungkinkan kelompok-kerja berkomunikasi dengan lebih efisien. Surat dan penyampaian pesan elektronik merupakan substansi sebagian besar sistem jaringan, disamping sistem penjadwalan, pemantauan proyek, konferensi online dan groupware, dimana semuanya membantu team bekerja lebih produktif.
5. Jaringan membantu usaha dalam melayani klien mereka secara lebih efektif. Akses jarak-jauh ke data terpusat memungkinkan karyawan dapat melayani klien di lapangan dan klien dapat langsung berkomunikasi dengan pemasok.

Kriteria alternatif untuk mengklasifikasikan jaringan adalah didasarkan pada jaraknya. Tabel berikut ini menampilkan klasifikasi sistem multiprosesor berdasarkan ukuran-ukuran fisiknya. 

Jarak antar prosesor	Prosesor di tempat yang sama	Contoh
0,1 m	Papan rangkaian	Data flow machine
1 m	Sistem	Multicomputer
10 m	Ruangan
100 m	Gedung	Local Area Network
1 km	Kampus
10 km	Kota	Metropolitan Area Network
100 km	Negara	Wide Area Network
1.000 km	Benua
10.000 km	Planet	The Internet

Dari tabel di atas terlihat pada bagian paling atas adalah dataflow machine, komputer-komputer yang sangat paralel yang memiliki beberapa unit fungsi yang semuanya bekerja untuk program yang sama. Kemudian multicomputer, sistem yang berkomunikasi dengan cara mengirim pesan-pesannya melalui bus pendek dan sangat cepat. Setelah kelas multicomputer adalah jaringan sejati, komputer-komputer yang bekomunikasi dengan cara bertukar data atau pesan melalui kabel yang lebih panjang. Jaringan seperti ini dapat dibagi menjadi Local Area Network (LAN), Metropolitan Area Network (MAN), dan Wide Area Network (WAN). Akhirnya, koneksi antara dua jaringan atau lebih disebut internetwork. Internet merupakan salah satu contoh yang terkenal dari suatu internetwork. 

Source: 

• Enterprise, Jubilee. 2009. 100 Tips dan Trik Wi-Fi. Jakarta: PT Elex Media Komputindo.
• Kurniawan, Wiharsono. 2007. Jaringan Komputer. Semarang: Andi.
• Sofana. Iwan.2008.membangun Jaringan Komputer Membangun Jaringan Komputer (Wired & Wireless)untuk Pengguna Windows dan Linux. Bandung: Informatika

Read more »

Posted in: JARINGAN KOMPUTER

Cara Instalasi Windows XP

Windows XP adalah suatu sistem pengoperasian (operating system) yang paling banyak dipakai sampai saat ini karena selain kemudahan dalam pemakaiannya Windows XP digunakan sebagai standarisasi pembelajaran yang di pakai oleh sekolahan-sekolahan dan perguruan tinggi pada umumnya.

Untuk melakukan penginstalan windows xp diperlukan ketelitian dan kesabaran dalam prosesnya karena memerlukan waktu yang lumayan lama.

Ada beberapa jenis windows xp diantaranya windows xp professional, Home Edition, Media Center Edition, Tablet PC Edition, Starter Edition, Professional x64 Edition, Professional 64-bit Edition For Itanium.

berikut langkah-langkah yang mudah dan lengkap cara menginstal windows xp :

1. Siapkan CD WINDOWS XP

2. Siapkan CD DRIVER MOTHERBOARD

3. Atur bios terlebih dahulu agar prioritas bootingnya dimulai dari CD(DVD)-ROM, caranya:

a. Masuk ke BIOS dengan menekan tombol Del, atau F1, atau juga F2.
Pilih menu Advanced Settings, kemudian carilah ‘Boot Priority’ atau yang sejenis.

b. ubah pengaturanya, agar CDROM jadi urutan yang pertama kemungkinan pilihan ini ada 2 jenis

* menu ‘First boot priority’, ‘Second boot priority’ dll: Aturlah ‘First boot priority’ ke ‘CDROM’ dengan menekan tombol PgDn/Pgup (Page Down/Up) atau +/-.
Atur juga ‘Second boot priority’nya ke HDD0/HDD1.
* Jika menunya ‘Boot priority’: atur ke ‘CDROM, C, A’ atau ‘CDROM, A,

C. dengan menekan tombol PgDn/Up.

Cara paling mudah instal windows xp
(lengkap dengan gambar):

gak usah di utak-atik biosnya. biarin aja bios diload masukin CD WINDOWSnya, lalu Restart komputer, trus tekan-tekan F8 atau F10 atau F11 (boleh dicoba satu-satu) nanti bakal muncul opsi boot selection. pilih aja yg ada 'bau' cd-nya. trus enter. selesai deh...ga pake repot-repot...

4. Tunggu beberapa saat sampai muncul tulisan "press any key to boot from CD" seperti tampilan Seperti gambar di bawah ini



5. Tekan ENTER atau sembarang tombol, lalu proses instalasi akan mengecek hardware komputer anda, kemudian akan muncul tulisan "windows setup" seperti gambar dibawah ini



6. lalu file-file di dalam cd akan di load ke dalam komputer, kemudian akan muncul tampilan "welcome to setup" seperti gambar dibawah ini



7. Tekan "ENTER" untuk menginstal windows xp, "R" untuk repair system windows yang sebelumnya pernah terinstal, "F3" untuk keluar dari proses instalasi, lalu akan muncul (End User Licese Aggrement) seperti gambar di bawah ini



8. Tekan "F8" kemudian proses instalasi akan mencari dan membaca partisi hardisk anda, kemudian akan muncul semua partisi hardisk anda, seperti gambar di bawah ini



9. Tekan "ENTER" untuk langsung menginstal windows, "C" untuk membuat partisi hardisk anda, kapasitas partisi sesuai dengan kebutuhan anda, dalam satuan MB, selanjutnya jika anda membuat partisi dengan menekan tombol "C", maka akan muncul gambar seperti di bawah ini



10. Kemudian tuliskan kapasitas partisi yang ingin anda buat, seperti terlihat pada gambar diatas, sebagai contoh, misalkan kapasitas hardisk anda 40 GB, lalu anda ingin membagi dua, maka tuliskan 20000,jangan 20, karna partisi satuannya MB, tentunya anda mengerti kan...?? cat" 1GB = 1000 MB

11. Kenudian tekan "ENTER" maka akan muncul gambar seperti dibawah ini



12. kemudian pilih "format the partition using the NTFS file system (Quick)" atau "format the partition using the NTFS file system (Quick)" lalu tekan "ENTER" maka akan muncul layar sepert gambar di bawah ini



13. Kemudian arahkan pointer pada posisi "unpartitioned space", lalu tekan "C" maka akan muncul gambar seperti gambar sebelumnya, dalam hal ini layar yang akan muncul seperti gambar sebelumnya menunjukan sisa partisi yang telah anda bagi, jika anda cuma membagi 2 partisi saja maka langsung tekan "ENTER" tapi jika anda ingin mempartisi lagi sisa hardisknya maka tinggal di bagi lagi aj, seperti langkah-langkah sebelumnya, mengertikan maksud saya....??
setelah selesai partisi ketika anda menekan "ENTER" seperti yang di jelaskan di atas, maka akan muncul gambar sperti gambar diatas, setelah itu arahkan poiter di posisi C: partition1 [New Raw], tapi biasanya sudah berada di posisi tersebut, maka anda tinggal menekan "ENTER" saja untuk proses instalasi windows, kemudian akan muncul proses format seperti gambar di bawah ini



14. Setelah selesai format, kemudian windows akan ,menyalin file untuk proses instalasi, seperti gambar di bawah ini



15. Setelah proses penyalinan selesai, secara otomatis komputer akan melakukan restart seperti gambar di bawah ini, dalam hal ini untuk mempercepat proses restart, anda bisa langsung menekan "ENTER"



16. Setelah itu akan muncul loading windows seperti gambar di bawah ini



17. selanjutnya proses instalasi windows di mulai 1..2..3...GOoooo muncul layar seperti gambar di bawah ini



18. selanjutnya tinggal menunggu, sambil ngopi jg bisa, biar lebih terinspirasi, eitssss, tp jangan kemana mana dulu, karna selanjutnya akan muncul layar seperti gambar di bawah ini



19. Langsung klik "NEXT" aja BOS...!!! lalu mucul lagi bos layar seperti gambar di bawah ini



20. Isi nama dan organisasinya, terserah BOS aja... lalu tekan "NEXT" kemudian akan muncul layar seperti gambar di bawah ini



21. Masukan serial nombernya, jangan sampe salah ya....!!! kemudian tekan "Next" selanjutnya akan muncul layar administrator, isi aja mau dinamain apa komputernya, terserah deeeehhhhh......
kalau mau pake pasword tinggal di isi juga paswordnya, terserah juga mo apa paswordnya.... lalu tekan "Next" maka muncul layar Date and Time Setting seperti gambar di bawah ini




22. Masukan settingan jam dan tanggal, tentukan juga time zone anda, untuk jakarta : pilih GMT+7 Klik "Next" lagi BOS.... setelah proses instalasi windows delanjutkan, seperti gambar di bawah ini



23. Silahkan Menunggu lumayan lama BOS,.... sampai muncul layar seperti gambar di bawah ini



24. Selanjutnya akan muncul layar work group or computer Domain,seperti gambar di bawah ini



25. jika komputer anda terhubung dengan sebuah domain, maka isikan nama domainnya, tapi jika komputer anda stand alone, maka pilih radio button yang paling atas, lalu tekan "Next"

26. Selanjutnya akan muncul display setting, seperti gambar di bawah ini, klik "OK" aja BOS....!!!



27. Kemudian windows akan mendeteksi tampilan optimal dari PC anda, seperti terlihat pada gambar di bawah ini, Klik "OK" aj BOS...!!!



28. Proses instalasi hampir selesai BOS..... selanjutnya akan muncul loading jendela windows seperti gambar di bawah ini



29. Selanjutnya anda akan dibawa masuk ke dalam windows untuk pertama kalinya seperti terlihat pada gambar di bawah ini, tekan "Next" aj BOS..



30. Selanjutnya akan muncul layar "Help Protect Your PC", seperti gambar di bawah ini, kemudian pilih "Not Right Now" lalu tekan "Next"



31. Kemudian komputer akan mengecek koneksi ke internet, seprti terlihat pada gambar di bawah ini, pilih "Yes" lalu tekan "Next"



32. Kemudian akan muncul pilihan aktivasi windows, seperti gambar di bawah ini, lalu tekan "Next"



33. Setelah itu akan muncul tampilan seperti gambar di bawah ini yang menunjukan pilihan untuk menambah pengguna komputer, Anda bisa memasukkan beberapa pengguna yang akan mengakses komputer Anda, Namun jika satu akun sudah cukup, atau Anda menginstall komputer untuk dipakai bergantian, cukup masukkan satu user kemudian klik "Next"

34. Proses instalasi windows selesai, kemudian akan muncul layar seperti gambar di bawah ini, klik "finish", maka proses instalasi selesai.....



35. Selesailah sudah semua.... kemudian perlahan masuk ke windowsnya seperti telihat pada gambar di bawah ini




36. Kemudian tinggal menginstal CD Driver Motherboad, dan perangkat pendukung lainnya....

Demikianlah langkah-langkah dan cara install windows xp lengkap berikut gambarnya..

"Semoga Bermanfaat"

Demikianlah artikel mengenai Cara Instalasi Windows XP
Semoga Bermanfaat..

Read more »

Posted in: SISTEM OPERASI,SOFTWARE

Program Input Data Mahasiswa

class Mahasiswa {
int NIM;
String Nama;
int TinggiBadan;
int BeratBadan;
String JenisKelamin;
String Hobby;
 }
 public class MahasiswaData{
 public static void main (String[]args){
 Mahasiswa mahasiswaku = new Mahasiswa();

 mahasiswaku.NIM = 2011470130;
 mahasiswaku.Nama ="Ahmad Sakhowi Amin";
 mahasiswaku.TinggiBadan =170;
 mahasiswaku.BeratBadan = 65;
 mahasiswaku.JenisKelamin = "Laki-Laki";
 mahasiswaku.Hobby = "Iqro";

 System.out.println("NIM :"+ mahasiswaku.NIM);
 System.out.println("Nama :"+ mahasiswaku.Nama);
 System.out.println("TinggiBadan :"+ mahasiswaku.TinggiBadan);
 System.out.println("BeratBadan :"+ mahasiswaku.BeratBadan);
 System.out.println("JenisKelamin :"+ mahasiswaku.JenisKelamin);
 System.out.println("Hobby :"+ mahasiswaku.Hobby);

 }}

Read more »

Posted in: BAHASA JAVA

Program String Copy dengan Bahasa Pascal

var a,b,c,d,e:string;
begin
a:='UNIVERSITAS';
b:='MUHAMMADIYAH';
c:=copy(a,1,3);
d:=copy(b,8,11);
e:=c+d;
writeln('c=',c);
writeln('d=',d);
writeln('e=',e);
end.




program ahmadsa;
var
susunan1,susunan2,susunan3,wordA,wordB,wordC,wordD,wordE,wordF,wordG : string;
a,b,c : integer;
begin
susunan1:='FAKULTAS';
susunan2:='TEKNIK';
susunan3:='INFORMATIKA';
a:=length (susunan1);
b:=length (susunan2);
c:=length (susunan3);
wordA:=copy (susunan1,1,3);
wordB:=copy (susunan1,4,4);
wordC:=copy (susunan2,3,4);
wordD:=copy (susunan3,3,6);
wordE:=copy (susunan3,3,5);
wordF:=copy (susunan1,3,3);
wordG:=wordE+wordF;
writeln(a,b,c);
writeln('wordA = ',wordA);
writeln('wordB = ',wordB);
writeln('wordC = ',wordC);
writeln('wordD = ',wordD);
writeln('wordG = ',wordG);
end.

Read more »

Posted in: BAHASA PASCAL