program pascal

PEMROGRAMAN PASCAL BESERTA CONTOHNYA

Pascal merupakan bahasa pemrograman yang terstruktur , artinya bahasa pemrogramnnya dapat dipecah menjadi fungsi - fungsi kecil yang dapat digunakan berulang - ulang kali . Pascal pertama kali diperkenalkan oleh Niklaus Wirth pada tahun 1971 . Bahasa pemrograman ini penting untuk dipelajari karena banyak bahasa pemrograman lainnya menggunakan bahasa dasar Pascal , semisal Delphi . Oleh karena itu jika mempelajari bahasa pemrograman pascal akan sangat mudah mempelajari delhi , karena Delphi sendiri merupakan visual dari pascal sama halnya seperti Visual Basic .

     Bahasa Pemrograman pascal merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi  tim nasional olimpiade ( TOKI ) . Oleh karena itu sangat penting mempelajari bahasa pemrograman pascal . Versi Pascal yang sangat dikenal oleh orang banyak adalah Turbo Pascal buatan Borland International yang bekerja di lingkungan sistem operasi DOS . Sampai saat ini Turbo Pascal sudah mengeluarkan TurboPascal-7.0 sedangkan Pascal sendiri sudah mencapai versi 2.4.0 . Bahasa pemrograman ini juga dapat digunakan di banyak sistem operasi seperti , Windows , Linux , Mac OS , dll .

Contoh pemrograman pascal :

Contoh Case Of Pascal


Contoh Case …Of perhitungan berat dan harga barang


Ketentuan soal :
1. Kualitas Barang di masukkan
Kualitas Harga Per Kg
A/a 1000
B/b 750
C/c 500

Uses crt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg berat yang di beli : ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.


Contoh Program Pascal If Perhitungan Gaji
Diposkan oleh rizky is naruto lovers komentar (0)

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan : ‘); readln(nama);
Write(‘Masukkan Jabatan : ‘); readln(jabatan);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln(‘Gaji Bersih : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji : Rp.‘,total:9:2);
Readln;
End.


Program Penghitung Luas segitiga


uses crt;
var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);
var
luas:real;
begin
clrscr;
luas:=a*t/2;
writeln('Luas segitiga =',luas);
end;
begin
writeln('Masukkan alas =');readln(alas);
writeln('Masukkan tinggi =');readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.


Membuat File txt Melalui Pascal
Diposkan oleh rizky is naruto lovers komentar (0)

uses crt;
var
Tulisan:text;
a,b:byte;
c:byte;
begin
clrscr;
writeln('Masukkan Angka 1 =');readln(a);
writeln('Masukkan Angka 2 =');readln(b);
c:=a+b;
writeln('Jadi nilainya adalah =',c);
assign(Tulisan,'hitung.txt');
rewrite(Tulisan);
write(tulisan,a);
write(Tulisan,'+');
write(Tulisan,b);
write(Tulisan,'=');
write(Tulisan,c);
Close(Tulisan);
readln;
end.


Program Pencari Biaya Dan Grade

uses crt;
var
nilai:byte;
begin
clrscr;
Write('masukkan Nilai anda =');Readln(nilai);

if nilai>0 then
begin
Writeln('GRADE = O ');
Writeln('Besar biaya = Rp.550000');
end
else

if nilai<=1 then begin Writeln('GRADE = E '); Writeln('Besar biaya = Rp.450000'); end else if nilai<=40 then begin Writeln('GRADE = D'); Writeln('Besar biaya = Rp.350000'); end else if nilai<=60 then begin Writeln('GRADE = C'); Writeln('Besar biaya = Rp.250000'); end Else if nilai<=70 then begin Writeln('GRADE = B'); Writeln('Besar biaya = Rp.150000'); end else begin If nilai >=100 then
Writeln('GRADE = A');
Writeln('Besar biaya = Rp.50000');
end;
readln;
end.


Program Pencari Predikat


USES CRT;
VAR
nilai:byte;
A,B,C,D:string;
begin
clrscr;
write ('masukkan nilai=');readln(nilai);
if nilai< 69 then
writeln('predikat D');
if nilai<79then
writeln ('predikat C');
if nilai<90 then
writeln ('predikat B');
if nilai<101 then
writeln('predikat A');
readln;
end.


Konversi bilangan Desimal Ke Biner


USES CRT;
VAR Des:integer;
Bin:string;
begin
clrscr;
writeln('PROGRAM KONVERSI MENGUBAH BILANGAN DECIMAL KE BINER');
write('Masukkan bilangan Decimal=');
readln(Des);
Bin:=’’;
repeat
begin

{menghitung biner dari hasil bagi}

If Des mod 2=0 then Bin:='0'+Bin
else Bin:='1'+Bin;

{membagi bulat bilangan desimal}

Des:= Des div 2;
end;
Until Des=0;
Writeln('Bilangan Biner =',Bin);
readln;
end.

sumber : 

http://rizkypascalers.blogspot.com/p/contoh-program-pascal.html

http://belajar-pemrograman2.blogspot.com/2010/07/pengertian-pascal.html

http://rizkypascalers.blogspot.com/p/contoh-program-pascal.html

http://belajar-pemrograman2.blogspot.com/2010/07/pengertian-pascal.html

1.       Modem

Modem berasal dari singkatan MOdulator DEModulator. Modem adalah alat untuk mengubah sinyal analog menjadi digital ataupun sebaliknya. Modulator merupakan bagian yang mengubah sinyal informasi kedalam sinyal pembawa (Carrier) dan siap untuk dikirimkan, sedangkan Demodulator adalah bagian yang memisahkan sinyal informasi (yang berisi data atau pesan) dari sinyal pembawa (carrier) yang diterima sehingga informasi tersebut dapat diterima dengan baik.

Data dari komputer yang berbentuk sinyal digital diberikan kepada modem untuk diubah menjadi sinyal analog. Sinyal analog tersebut dapat dikirimkan melalui beberapa media telekomunikasi seperti telepon dan radio. Setibanya di modem tujuan, sinyal analog tersebut diubah menjadi sinyal digital kembali dan dikirimkan kepada komputer. Terdapat dua jenis modem secara fisiknya, yaitu modem eksternal dan modem internal.

Modem merupakan perangkat perantara antara komputer anda dengan saluran telepon agar dapat berhubungan dengan ISP (Internet Service Provider – penyedia jasa internet) anda.Kabel modem adalah alat yang memberikan akses berkecepatan tinggi ke internet melalui jaringan kabel televisi. Sama halnya dengan respon dari modem analog tradisional, kabel modem memiliki keunggulan mempunyai kekuatan yang lebih, mampu mengirimkan data lebih cepat kira-kira 500 kali.

2.      LAN Card

Sering disebut juga dengan Network Interface Card (NIC), digunakan sebagai kartu antarmuka jaringan untuk transmisi data antar komputer yang terkoneksi. Jenis NIC yang beredar terbagi menjadi 2, yaitu :

•          NIC Fisik

NIC FISIK umumnya berupa kartu yang dapat ditancapkan ke dalam sebuah slot padad motherboard komputer, yang dapat berupa kartu dengan BUS PCI, MCA atau PCIE. Selain berupa kartu-kartu yang ditancapkan pada motherboard, NIC FISIK juga dapat berupa kartu EKSTERNAL yang berupa kartu dengan BUS USB, PCMCIA, SERIAL, PARALEL, EXPRESS CARD, sehingga meningkatkan mobilitas (bagi pengguna mobile). 

Kartu NIC FISIK terbagi menjadi 2 jenis, yaitu : Kartu NIC dengan Media jaringan yang spesifik (Media-Spesifik NIC) : yang membedakan kartu NIC menjadi beberapa jenis berdasarkan media jaringan yang digunakan. Contohnya adalah NIC Ethernet yang dapat berupa Twisted-Pair (UTP atau STP), Thinnet atau Thicknet atau bahkan tanpa kabel (Wireless Ethernet).

Kartu NIC dengan arsitektur jaringan yang spesifik (Architecture-Specific NIC) : yang membedakan kartu NIC menjadi beberapa janis, sesuai denga arsitektur jaringan yang digunakan. Contohnya adalah Ethernet, Token Ring, serta FDDI (Fiber Distributed Data Interface), yang kesemuanya itu menggunakan NIC yang berbeda-beda. Kartu NIC Ethernet dapat berupa Ethernet 10 Megabit/Detik, 100 Megabit/Detik, 1 Gigabit/ Detik atau 10 Gigabit/Detik.

•         NIC Logis

NIC LOGIS merupakan jenis NIC yang tidak ada secara FISIK dan menggunakan sepenuhnya perangkat lunak yang diinstalasikan di atas sistem operasi dan bekerja seolah-olah dirinya adalah NIC. Contoh dari perangkat NIC LOGIS adalah LoopBack Adapater (dalam sistem operasi Windows, harus diinstalasikan secara manual atau dalam sistem operasi keluarga UNIX, terinstallasi secara default, dengan nama Interfacelo) dan DialUp Adapater (yang menjadikan modem sebagai sebuah alat jaringan dalam sistem operasi Windows), Kartu NIC LOGIS ini dibuat dengan menggunakan teknik EMULASI.

3.     Kabel UTP

Unshielded twisted-pair (disingkat UTP) adalah sebuah jenis kabel jaringan yang menggunakan bahan dasar tembaga, yang tidak dilengkapi dengan shield internal. UTP merupakan jenis kabel yang paling umum yang sering digunakan di dalam jaringan lokal (LAN), karena memang harganya yang rendah, fleksibel dan kinerja yang ditunjukkannya relatif bagus. Dalam kabel UTP, terdapat insulasi satu lapis yang melindungi kabel dari ketegangan fisik atau kerusakan tapi, tidak seperti kabel Shielded Twisted-pair (STP), insulasi tersebut tidak melindungi kabel dari interferensi elektromagnetik.

Terdapat juga konektor-konektor yang digunakan sebagai penghubung kabel UTP :

•          Konektor RJ11

Konektor RJ-11 adalah standar konektor dimanfaatkan pada pasangan 2-4 (kawat) kabel telepon. RJ singkatan dari “Registered Jack” – sebuah antarmuka konektor fisik yang paling sering digunakan untuk terminal kabel telepon.

Meskipun konektor RJ-11 memiliki total 6 posisi konektor, biasanya baik hanya 2 atau 4 benar-benar dimanfaatkan. RJ-11 konektor kabel datang dalam dua kabel standar varietas-dipilin (flat-satin) dan unshielded Twisted Pair (UTP).
RJ11 adalah yang paling familiar dari jack terdaftar, karena fakta bahwa hampir semua garis tunggal (POTS) jack telepon di kebanyakan rumah dan kantor di Amerika Utara menggunakan jenis konektor, serta sejumlah negara lainnya.

•         Konektor RJ45

Konektor RJ 45 adalah kabel Eternet yang biasa digunakan dalamopologi jaringan komputer LAN maupun jaringan komputer tipe lainnya. Konektor RJ-45 ini memiliki konfigurasi dua macam, sesuai dengan perangkat yang ingin dihubungkannya.

Straight Through Configuration. Kabel jenis ini biasa digunakan untuk menghubungkan perangkat jaringan dengan tingkat hierarki yang berbeda. Sebagai contoh adalah ketika kita menghubungkan PC ke jaringan komputer kita di kantor lewat switch. Tipe kabel jenis ini lebih umum digunakan dan relatif lebih mudah dalam penyusunan kabelnya saat memasang konektor RJ-45.

Cross Over Configuration. Kabel jenis ini biasa digunakan untuk menghubungkan dua perangkat jaringan dengan hierarki setingkat, sebagai contoh koneksi antara PC to PC, atau PC ke AP Radio, Router to router.

4.    Hub

Hub adalah salah satu perangkat dalam Jaringan Komputer yang berguna untuk menghubungkan antar segmen dalam jaringan. Dia bekerja di level fisik (layer pertama) dari model referensi OSI. Dengan adanya hub, maka CSMA/CD yang bertugas untuk mensharing medium (kabel, udara, fiber, dll) agar semua bisa terkoneksi dapat berjalan dengan baik. Hub bertugas mengkoneksikan setiap node agar terhubung dengan sebuah backbone utama dalam proses transmisi data.

5.     Router

Router adalah sebuah alat jaringan komputer yang mengirimkan paket data melalui sebuah jaringan atau Internet menuju tujuannya, melalui sebuah proses yang dikenal sebagai routing. Proses routing terjadi pada lapisan 3 (Lapisan jaringan seperti Internet Protocol) dari stack protokol tujuh-lapis OSI.

Router berfungsi sebagai penghubung antar dua atau lebih jaringan untuk meneruskan data dari satu jaringan ke jaringan lainnya. Router berbeda dengan switch. Switch merupakan penghubung beberapa alat untuk membentuk suatu Local Area Network (LAN).

6.       Switch

1.       Modem

Modem berasal dari singkatan MOdulator DEModulator. Modem adalah alat untuk mengubah sinyal analog menjadi digital ataupun sebaliknya. Modulator merupakan bagian yang mengubah sinyal informasi kedalam sinyal pembawa (Carrier) dan siap untuk dikirimkan, sedangkan Demodulator adalah bagian yang memisahkan sinyal informasi (yang berisi data atau pesan) dari sinyal pembawa (carrier) yang diterima sehingga informasi tersebut dapat diterima dengan baik.

Data dari komputer yang berbentuk sinyal digital diberikan kepada modem untuk diubah menjadi sinyal analog. Sinyal analog tersebut dapat dikirimkan melalui beberapa media telekomunikasi seperti telepon dan radio. Setibanya di modem tujuan, sinyal analog tersebut diubah menjadi sinyal digital kembali dan dikirimkan kepada komputer. Terdapat dua jenis modem secara fisiknya, yaitu modem eksternal dan modem internal.

Modem merupakan perangkat perantara antara komputer anda dengan saluran telepon agar dapat berhubungan dengan ISP (Internet Service Provider – penyedia jasa internet) anda.Kabel modem adalah alat yang memberikan akses berkecepatan tinggi ke internet melalui jaringan kabel televisi. Sama halnya dengan respon dari modem analog tradisional, kabel modem memiliki keunggulan mempunyai kekuatan yang lebih, mampu mengirimkan data lebih cepat kira-kira 500 kali.

2.      LAN Card

Sering disebut juga dengan Network Interface Card (NIC), digunakan sebagai kartu antarmuka jaringan untuk transmisi data antar komputer yang terkoneksi. Jenis NIC yang beredar terbagi menjadi 2, yaitu :

•          NIC Fisik

NIC FISIK umumnya berupa kartu yang dapat ditancapkan ke dalam sebuah slot padad motherboard komputer, yang dapat berupa kartu dengan BUS PCI, MCA atau PCIE. Selain berupa kartu-kartu yang ditancapkan pada motherboard, NIC FISIK juga dapat berupa kartu EKSTERNAL yang berupa kartu dengan BUS USB, PCMCIA, SERIAL, PARALEL, EXPRESS CARD, sehingga meningkatkan mobilitas (bagi pengguna mobile). 

Kartu NIC FISIK terbagi menjadi 2 jenis, yaitu : Kartu NIC dengan Media jaringan yang spesifik (Media-Spesifik NIC) : yang membedakan kartu NIC menjadi beberapa jenis berdasarkan media jaringan yang digunakan. Contohnya adalah NIC Ethernet yang dapat berupa Twisted-Pair (UTP atau STP), Thinnet atau Thicknet atau bahkan tanpa kabel (Wireless Ethernet).

Kartu NIC dengan arsitektur jaringan yang spesifik (Architecture-Specific NIC) : yang membedakan kartu NIC menjadi beberapa janis, sesuai denga arsitektur jaringan yang digunakan. Contohnya adalah Ethernet, Token Ring, serta FDDI (Fiber Distributed Data Interface), yang kesemuanya itu menggunakan NIC yang berbeda-beda. Kartu NIC Ethernet dapat berupa Ethernet 10 Megabit/Detik, 100 Megabit/Detik, 1 Gigabit/ Detik atau 10 Gigabit/Detik.

•         NIC Logis

NIC LOGIS merupakan jenis NIC yang tidak ada secara FISIK dan menggunakan sepenuhnya perangkat lunak yang diinstalasikan di atas sistem operasi dan bekerja seolah-olah dirinya adalah NIC. Contoh dari perangkat NIC LOGIS adalah LoopBack Adapater (dalam sistem operasi Windows, harus diinstalasikan secara manual atau dalam sistem operasi keluarga UNIX, terinstallasi secara default, dengan nama Interfacelo) dan DialUp Adapater (yang menjadikan modem sebagai sebuah alat jaringan dalam sistem operasi Windows), Kartu NIC LOGIS ini dibuat dengan menggunakan teknik EMULASI.

3.     Kabel UTP

Unshielded twisted-pair (disingkat UTP) adalah sebuah jenis kabel jaringan yang menggunakan bahan dasar tembaga, yang tidak dilengkapi dengan shield internal. UTP merupakan jenis kabel yang paling umum yang sering digunakan di dalam jaringan lokal (LAN), karena memang harganya yang rendah, fleksibel dan kinerja yang ditunjukkannya relatif bagus. Dalam kabel UTP, terdapat insulasi satu lapis yang melindungi kabel dari ketegangan fisik atau kerusakan tapi, tidak seperti kabel Shielded Twisted-pair (STP), insulasi tersebut tidak melindungi kabel dari interferensi elektromagnetik.

Terdapat juga konektor-konektor yang digunakan sebagai penghubung kabel UTP :

•          Konektor RJ11

Konektor RJ-11 adalah standar konektor dimanfaatkan pada pasangan 2-4 (kawat) kabel telepon. RJ singkatan dari “Registered Jack” – sebuah antarmuka konektor fisik yang paling sering digunakan untuk terminal kabel telepon.

Meskipun konektor RJ-11 memiliki total 6 posisi konektor, biasanya baik hanya 2 atau 4 benar-benar dimanfaatkan. RJ-11 konektor kabel datang dalam dua kabel standar varietas-dipilin (flat-satin) dan unshielded Twisted Pair (UTP).
RJ11 adalah yang paling familiar dari jack terdaftar, karena fakta bahwa hampir semua garis tunggal (POTS) jack telepon di kebanyakan rumah dan kantor di Amerika Utara menggunakan jenis konektor, serta sejumlah negara lainnya.

•         Konektor RJ45

Konektor RJ 45 adalah kabel Eternet yang biasa digunakan dalamopologi jaringan komputer LAN maupun jaringan komputer tipe lainnya. Konektor RJ-45 ini memiliki konfigurasi dua macam, sesuai dengan perangkat yang ingin dihubungkannya.

Straight Through Configuration. Kabel jenis ini biasa digunakan untuk menghubungkan perangkat jaringan dengan tingkat hierarki yang berbeda. Sebagai contoh adalah ketika kita menghubungkan PC ke jaringan komputer kita di kantor lewat switch. Tipe kabel jenis ini lebih umum digunakan dan relatif lebih mudah dalam penyusunan kabelnya saat memasang konektor RJ-45.

Cross Over Configuration. Kabel jenis ini biasa digunakan untuk menghubungkan dua perangkat jaringan dengan hierarki setingkat, sebagai contoh koneksi antara PC to PC, atau PC ke AP Radio, Router to router.

4.    Hub

Hub adalah salah satu perangkat dalam Jaringan Komputer yang berguna untuk menghubungkan antar segmen dalam jaringan. Dia bekerja di level fisik (layer pertama) dari model referensi OSI. Dengan adanya hub, maka CSMA/CD yang bertugas untuk mensharing medium (kabel, udara, fiber, dll) agar semua bisa terkoneksi dapat berjalan dengan baik. Hub bertugas mengkoneksikan setiap node agar terhubung dengan sebuah backbone utama dalam proses transmisi data.

5.     Router

Router adalah sebuah alat jaringan komputer yang mengirimkan paket data melalui sebuah jaringan atau Internet menuju tujuannya, melalui sebuah proses yang dikenal sebagai routing. Proses routing terjadi pada lapisan 3 (Lapisan jaringan seperti Internet Protocol) dari stack protokol tujuh-lapis OSI.

Router berfungsi sebagai penghubung antar dua atau lebih jaringan untuk meneruskan data dari satu jaringan ke jaringan lainnya. Router berbeda dengan switch. Switch merupakan penghubung beberapa alat untuk membentuk suatu Local Area Network (LAN).

6.       Switch

Switch adalah sebuah alat yang menyaring/filter dan melewatkan (mengijinkan lewat) paket yang ada di sebuah LAN. switcher bekerja pada layer data link (layer 2) dan terkadang di Network Layer (layer 3) berdasarkan referensi OSI Layer Model. sehingga dapat bekerja untuk paket protokol apapun. LAN yang menggunakan Switch untuk berkomunikasi di jaringan maka disebut dengan Switched LAN atau dalam fisik ethernet jaringan disebut dengan Switched Ethernet LANs.

Switch adalah sebuah alat yang menyaring/filter dan melewatkan (mengijinkan lewat) paket yang ada di sebuah LAN. switcher bekerja pada layer data link (layer 2) dan terkadang di Network Layer (layer 3) berdasarkan referensi OSI Layer Model. sehingga dapat bekerja untuk paket protokol apapun. LAN yang menggunakan Switch untuk berkomunikasi di jaringan maka disebut dengan Switched LAN atau dalam fisik ethernet jaringan disebut dengan Switched Ethernet LANs.