Pengertian Subnetting

Subnetting adalah upaya / proses
untuk memecah sebuah network
dengan jumlah host yang cukup
banyak, menjadi beberapa network
dengan jumlah host yang lebih
sedikit. Teknik subnetting membuat
skala jaringan lebih luas dan tidak
dibatas oleh kelas-kelas IP (IP
Classes) A, B, dan C yang sudah
diatur. Dengan subnetting, anda bisa
membuat network dengan batasan
host yang lebih realistis sesuai
kebutuhan.
Mengapa harus melakukan
subnetting? Ada beberapa alasan
mengapa kita perlu melakukan
subnetting, diantaranya adalah
sebagai berikut:
Untuk mengefisienkan
alokasi IP Address
dalam sebuah jaringan
supaya bisa
memaksimalkan
penggunaan IP
Address.
Mengatasi masalah
perbedaan hardware
dan media fisik yang
digunakan daam
suatu network, karena
Router IP hanya dapat
mengintegrasikan
berbagai network
dengan media fisik
yang berbeda jika
setiap network
memiliki address
network yang unik.
Meningkatkan
security dan
mengurangi terjadinya
kongesti akibat terlalu
banyaknya host dalam
suatu network.

Pengertian serta perbedaan TCP dan UDP

Apa yang dimaksud dengan TCP?
TCP (Transmission Control Protocol)
adalah protokol yang paling umum
digunakan pada dunia internet,
karena kelebihan TCP yaitu adanya
koreksi kesalahan. Dengan
menggunakan protokol TCP, maka
proses pengiriman akan terjamin.
Hal ini disebabkan adanya bagian
untuk sebuah metode yang disebut
flow control. Flow control
menentukan kapan data harus
dikirim kembali, dan kapan
menghentikan aliran data paket
sebelumnya, sampai data tersebut
berhasil ditransfer. Hal ini karena jika
paket data berhasil dikirim, dapat
terjadi sebuah ‘tabrakan’. Ketika ini
terjadi, maka klien akan meminta
kembali paket dari server sampai
seluruh paket berhasil ditransfer dan
identik dengan aslinya.
Apa yang dimaksud dengan UDP?
UDP (User Datagram Protocol)
adalah protokol umum lainnya yang
digunakan pada dunia internet dan
merupakan connectionless. Hal ini
berarti bahwa suatu paket yang
dikirim melalui jaringan hingga
sampai ke komputer lain tanpa
membuat suatu koneksi. UDP tidak
pernah digunakan untuk mengirim
data penting seperti halaman web,
informasi database, dan sebagainya.
UDP biasanya digunakan untuk
streaming audio dan video, karena
kelebihan UDP yaitu menawarkan
kecepatan transfer. UDP dapat lebih
cepat daripada TCP karena pada
protokol UDP tidak ada bentuk
kontrol aliran dan koreksi kesalahan.
Artinya UDP tidak mementingkan
bagaimana keadaan koneksi, jadi jika
terjadi pengiriman data maka tidak
dijamin berhasil sampai atau
tidaknya data tersebut. Pada UDP
juga tidak ada pemecahan data, oleh
karena itu tidak dapat melakukan
pengiriman data dengan ukuran
yang besar.
UDP mempunyai kelebihan
dibandingkan TCP dengan tidak
menggunakan field sequence dan
acknowledgement. Keuntungan UDP
yang paling jelas dari TCP adalah
byte tambahan yang lebih sedikit. Di
samping itu, UDP tidak perlu
menunggu penerimaan atau
menyimpan data dalam memory
sampai data tersebut diterima. Ini
berarti, aplikasi UDP tidak
diperlambat oleh proses
penerimaan dan memory dapat
dibebaskan lebih cepat.
Apa perbedaan dari TCP dengan
UDP?
Setelah melihat penjelasan di atas,
sekarang kita dapat menyimpulkan
mengenai perbedaan antara TCP
dengan UDP.
TCP
. Beroperasi berdasarkan konsep
koneksi.
. Jaminan pengiriman-penerimaan
data akan reliable dan teratur.
. Secara otomatis memecah data ke
dalam paket-paket.
. Tidak akan mengirimkan data
terlalu cepat sehingga memberikan
jaminan koneksi internet dapat
menanganinya.
. Mudah untuk digunakan, transfer
paket data seperti menulis dan
membaca file.
UDP
. Tidak berdasarkan konsep koneksi,
jadi harus membuat kode sendiri.
. Tidak ada jaminan bahwa
pengiriman dan penerimaan data
akan reliable dan teratur, sehingga
paket data mungkin dapat kurang,
terduplikat, atau bahkan tidak
sampai sama sekali.
. Pemecahan ke dalam paket-paket
dan proses pengirimannya dilakukan
secara manual.
. Harus membuat kepastian
mengenai proses transfer data agar
tidak terlalu cepat sehingga internet
masih dapat menanganinya.
. Jika paket ada yang hilang, perlu
dipikirkan di mana letak kesalahan
yang terjadi dan mengirim ulang
data yang diperlukan.
Digunakan untuk apakah TCP dan
UDP?
Berikut adalah daftar protocol/port
yang biasanya digunakan untuk
service system tertentu.
Protocol 47 – GRE – GRE (IP protocol
47) Routing and Remote Access
Protocol 50 – ESP – IPsec ESP (IP
protocol 50) Routing and Remote
Access
Protocol 51 – n/a AH IPsec AH (IP
protocol 51) Routing and Remote
Access
TCP Port 7 – Echo Simple TCP/IP
Services
UDP Port 7 – Echo Simple TCP/IP
Services
TCP Port 9 – Discard Simple TCP/IP
Services
UDP Port 9 – Discard Simple TCP/IP
Services
TCP Port 13 – Daytime Simple TCP/IP
Services
UDP Port 13 – Daytime Simple TCP/IP
Services
TCP Port 17 – Quotd Simple TCP/IP
Services
UDP Port 17 – Quotd Simple TCP/IP
Services
TCP Port 19 – Chargen Simple TCP/IP
Services
UDP Port 19 – Chargen Simple TCP/
IP Services
TCP Port 20 – FTP default data FTP
Publishing Service
TCP Port 21 – FTP control FTP
Publishing Service
TCP Port 21 – FTP control Application
Layer Gateway Service
TCP Port 23 – Telnet Telnet
TCP Port 25 – SMTP Simple Mail
Transfer Protocol
UDP Port 25 – SMTP Simple Mail
Transfer Protocol
TCP Port 25 – SMTP Exchange Server
UDP Port 25 – SMTP Exchange Server
TCP Port 42 – WINS Replication
Windows Internet Name Service
UDP Port 42 – WINS Replication
Windows Internet Name Service
TCP Port 53 – DNS DNS Server
UDP Port 53 – DNS DNS Server
TCP Port 53 – DNS Internet
Connection Firewall/Internet
Connection Sharing
UDP Port 53 – DNS Internet
Connection Firewall/Internet
Connection Sharing
UDP Port 67 – DHCP Server DHCP
Server
UDP Port 67 – DHCP Server Internet
Connection Firewall/Internet
Connection Sharing
UDP Port 69 – TFTP Trivial FTP
Daemon Service
TCP Port 80 – HTTP Windows Media
Services
TCP Port 80 – HTTP World Wide Web
Publishing Service
TCP Port 80 – HTTP SharePoint Portal
Server
TCP Port 88 – Kerberos Kerberos
Key Distribution Center
UDP Port 88 – Kerberos Kerberos
Key Distribution Center
TCP Port 102 – X.400 Microsoft
Exchange MTA Stacks
TCP Port 110 – POP3 Microsoft POP3
Service
TCP Port 110 – POP3 Exchange
Server
TCP Port 119 – NNTP Network News
Transfer Protocol
UDP Port 123 – NTP Windows Time
UDP Port 123 – SNTP Windows Time
TCP Port 135 – RPC Message
Queuing
TCP Port 135 – RPC Remote
Procedure Call
TCP Port 135 – RPC Exchange Server
TCP Port 135 – RPC Certificate
Services
TCP Port 135 – RPC Cluster Service
TCP Port 135 – RPC Distributed File
System
TCP Port 135 – RPC Distributed Link
Tracking
TCP Port 135 – RPC Distributed
Transaction Coordinator
TCP Port 135 – RPC Event Log
TCP Port 135 – RPC Fax Service
TCP Port 135 – RPC File Replication
TCP Port 135 – RPC Local Security
Authority
TCP Port 135 – RPC Remote Storage
Notification
TCP Port 135 – RPC Remote Storage
Server
TCP Port 135 – RPC Systems
Management Server 2.0
TCP Port 135 – RPC Terminal Services
Licensing
TCP Port 135 – RPC Terminal Services
Session Directory
UDP Port 137 – NetBIOS Name
Resolution Computer Browser
UDP Port 137 – NetBIOS Name
Resolution Server
UDP Port 137 – NetBIOS Name
Resolution Windows Internet Name
Service
UDP Port 137 – NetBIOS Name
Resolution Net Logon
UDP Port 137 – NetBIOS Name
Resolution Systems Management
Server 2.0
UDP Port 138 – NetBIOS Datagram
Service Computer Browser
UDP Port 138 – NetBIOS Datagram
Service Messenger
UDP Port 138 – NetBIOS Datagram
Service Server
UDP Port 138 – NetBIOS Datagram
Service Net Logon
UDP Port 138 – NetBIOS Datagram
Service Distributed File System
UDP Port 138 – NetBIOS Datagram
Service Systems Management Server
2.0
UDP Port 138 – NetBIOS Datagram
Service License Logging Service
TCP Port 139 – NetBIOS Session
Service Computer Browser
TCP Port 139 – NetBIOS Session
Service Fax Service
TCP Port 139 – NetBIOS Session
Service Performance Logs and Alerts
TCP Port 139 – NetBIOS Session
Service Print Spooler
TCP Port 139 – NetBIOS Session
Service Server
TCP Port 139 – NetBIOS Session
Service Net Logon
TCP Port 139 – NetBIOS Session
Service Remote Procedure Call
Locator
TCP Port 139 – NetBIOS Session
Service Distributed File System
TCP Port 139 – NetBIOS Session
Service Systems Management Server
2.0
TCP Port 139 – NetBIOS Session
Service License Logging Service
TCP Port 143 – IMAP Exchange
Server
UDP Port 161 – SNMP SNMP Service
UDP Port 162 – SNMP Traps
Outbound SNMP Trap Service
TCP Port 389 – LDAP Server Local
Security Authority
UDP Port 389 – LDAP Server Local
Security Authority
TCP Port 389 – LDAP Server
Distributed File System
UDP Port 389 – LDAP Server
Distributed File System
TCP Port 443 – HTTPS HTTP SSL
TCP Port 443 – HTTPS World Wide
Web Publishing Service
TCP Port 443 – HTTPS SharePoint
Portal Server
TCP Port 443 – RPC over HTTP
Exchange Server 2003
TCP Port 445 – SMB Fax Service
TCP Port 445 – SMB Print Spooler
TCP Port 445 – SMB Server
TCP Port 445 – SMB Remote
Procedure Call Locator
TCP Port 445 – SMB Distributed File
System
TCP Port 445 – SMB License Logging
Service
TCP Port 445 – SMB Net Logon
TCP Port 464 – Kerberos Password
V5 Net Logon
UDP Port 500 – IPsec ISAKMP Local
Security Authority
TCP Port 515 – LPD TCP/IP Print
Server
TCP Port 548 – File Server for
Macintosh File Server for Macintosh
TCP Port 554 – RTSP Windows Media
Services
TCP Port 563 – NNTP over SSL
Network News Transfer Protocol
TCP Port 593 – RPC over HTTP
endpoint mapper Remote
Procedure Call
TCP Port 593 – RPC over HTTP
Exchange Server
TCP Port 636 – LDAP SSL Local
Security Authority
UDP Port 636 – LDAP SSL Local
Security Authority
TCP Port 993 – IMAP over SSL
Exchange Server
TCP Port 995 – POP3 over SSL
Exchange Server
TCP Port 1067 – Installation
Bootstrap Service Installation
Bootstrap protocol server
TCP Port 1068 – Installation
Bootstrap Service Installation
Bootstrap protocol client
TCP Port 1270 – MOM-Encrypted
Microsoft Operations Manager 2000
TCP Port 1433 – SQL over TCP
Microsoft SQL Server
TCP Port 1433 – SQL over TCP MSSQL
$UDDI
UDP Port 1434 – SQL Probe Microsoft
SQL Server
UDP Port 1434 – SQL Probe MSSQL
$UDDI
UDP Port 1645 – Legacy RADIUS
Internet Authentication Service
UDP Port 1646 – Legacy RADIUS
Internet Authentication Service
UDP Port 1701 – L2TP Routing and
Remote Access
TCP Port 1723 – PPTP Routing and
Remote Access
TCP Port 1755 – MMS Windows
Media Services
UDP Port 1755 – MMS Windows
Media Services
TCP Port 1801 – MSMQ Message
Queuing
UDP Port 1801 – MSMQ Message
Queuing
UDP Port 1812 – RADIUS
Authentication Internet
Authentication Service
UDP Port 1813 – RADIUS Accounting
Internet Authentication Service
UDP Port 1900 – SSDP SSDP
Discovery Service
TCP Port 2101 – MSMQ-DCs Message
Queuing
TCP Port 2103 – MSMQ-RPC Message
Queuing
TCP Port 2105 – MSMQ-RPC Message
Queuing
TCP Port 2107 – MSMQ-Mgmt
Message Queuing
TCP Port 2393 – OLAP Services 7.0
SQL Server: Downlevel OLAP Client
Support
TCP Port 2394 – OLAP Services 7.0
SQL Server: Downlevel OLAP Client
Support
UDP Port 2460 – MS Theater
Windows Media Services
UDP Port 2535 – MADCAP DHCP
Server
TCP Port 2701 – SMS Remote Control
(control) SMS Remote Control Agent
UDP Port 2701 – SMS Remote
Control (control) SMS Remote
Control Agent
TCP Port 2702 – SMS Remote Control
(data) SMS Remote Control Agent
UDP Port 2702 – SMS Remote
Control (data) SMS Remote Control
Agent
TCP Port 2703 – SMS Remote Chat
SMS Remote Control Agent
UPD Port 2703 – SMS Remote Chat
SMS Remote Control Agent
TCP Port 2704 – SMS Remote File
Transfer SMS Remote Control Agent
UDP Port 2704 – SMS Remote File
Transfer SMS Remote Control Agent
TCP Port 2725 – SQL Analysis
Services SQL Analysis Server
TCP Port 2869 – UPNP Universal Plug
and Play Device Host
TCP Port 2869 – SSDP event
notification SSDP Discovery Service
TCP Port 3268 – Global Catalog
Server Local Security Authority
TCP Port 3269 – Global Catalog
Server Local Security Authority
UDP Port 3343 – Cluster Services
Cluster Service
TCP Port 3389 – Terminal Services
NetMeeting Remote Desktop Sharing
TCP Port 3389 – Terminal Services
Terminal Services
UDP Port 3527 – MSMQ-Ping
Message Queuing
UDP Port 4011 – BINL Remote
Installation
UDP Port 4500 – NAT-T Local Security
Authority
TCP Port 5000 – SSDP legacy event
notification SSDP Discovery Service
UDP Port 5004 – RTP Windows Media
Services
UDP Port 5005 – RTCP Windows
Media Services
TCP Port 6001 – Information Store
Exchange Server 2003
TCP Port 6002 – Directory Referral
Exchange Server 2003
TCP Port 6004 – DSProxy/NSPI
Exchange Server 2003
TCP Port 42424 – ASP.Net Session
State ASP.NET State Service
TCP Port 51515 – MOM-Clear
Microsoft Operations Manager 2000

Perbedaan Hub Dan Switch

1. Pada sebuah HUB hanya memiliki
satu collision control untuk semua port
yang ada sedangkan switch setiap port
memiliki colloision control sendiri-
sendiri. (collision control yaitu
pengontrol transmisi data atau
informasi dalam kabel jaringan LAN
agar tidak terjadi tabrakan data)
2. Pada HUB apabila semakin besar
jumlah port yang disediakan maka
akan semakin lambat proses transmisi
data yang terjadi, sedangkan pada
switch banyaknya jumlah port tidak
membebani collision control karena
setiap port memiliki collision control
sendiri.
3. Port pada HUB hanya 4 sampai 12
port sedangkan switch lebih banyak
portnya.
4. Jika dilihat dari segi keamanannya
Switch lebih ketat keamanan nya
dibandingkan HUB
5. Kecepatan transfer data switch jauh
lebih cepat dibandingkan HUB
6. Dilihat dari segi ekonomisnya sudah
pasti hub lebih murah harganya
dibandingkan dengan switch yang
lebih mahal.

Kelebihan dan Kekurangan Topologi Jaringan

Jaringan - Topologi adalah istilah yang digunakan dalam jaringan komputer untuk menguraikan cara bagaimana suatu komputer terhubung ke komputer lainnya
1. Topologi Ring
Kelebihan Topologi Ring
• Menghubungkan secara langsung dua
perangkat dalam jaringan.
• Identifikasi kerusakan mudah karena sinyal data selalu bergerak lurus dari perangkat pengirim sampai perangkat tujuan.
• Dalam proses instalasi dan rekonfigurasi secara fisik maupun ligik mudah karena terhubung satu
dan hanya satu dengan oerangkat lainnya.
Kekurangan Topologi Ring
• Sinyal akan semakin melemah apabila jarak yang di tempuh untuk mencapai tujuan semakin jauh.
• Untuk mengatasinya maka dilengkapi repeater.
• Tidak berfungsinya satu link akan
mempengaruhi link lainnya.
2. Topologi Bus
Kelebihan Topologi Bus
• Topologi yang banyak di gunakan di awal penggunaan jaringan computer karena topologi yang paling sederhana di banding dengan topologi lainnya.
• Komputer di hubungkan antara satu dengan lainnya dengan membentuk seperti barisan melalui satu single kabel.
Kekurangan Topologi Bus
• Hanya satu computer yang dapat mengirimkan data yang berupa sinyal elektronik ke semua computer dalam jaringan tsb,dan di terima oleh satu computer yang di tuju.
• Oleh karena hanya satu computer saja yang dapat mengirimkan data dalam satu saat jumlah computer sangat berpengaruh dalam unjuk kerja.
• Semakin banyak jumlah computer semakin banyak computer akan menunggu giliran untuk bias mengirim data dan efeknya untuk kerja jaringan akan menjadi lambat.
• Sinyal yang di kirimkan oleh satu computer akan di kirim keseluruh jaringan dari ujung satu sampai
ujung lainnya.
• Jika kabel terputus maka semua jaringan computer terganggu dan tidak bias berkomunikasi satu dengan yang lainnya.
3. Topologi Mesh Adalah suatu bentuk hubungan antar perangkat dimana setiap perangkat terhubung secara langsung dengan perangkat lainnya yang ada di dalam jaringan.
Kelebihan Topologi Mesh
• Dapat berkomunikasi langsung dengan perangkat tujuan.
• Data dapat di kirim langsung ke computer tujuan tanpa harus melalui computer lainnya lebih cepat.Satu link di gunakan kusus untuk berkomunikasi dengan computer yang di tuju.
• Memiliki sifat Robust, yaitu Apabila terjadi gangguan pada koneksi komputer A dengan komputer B karena rusaknya kabel koneksi (links) antara A dan B, maka gangguan tersebut tidak akan mempengaruhi koneksi komputer A dengan komputer lainnya.
• Mudah dalam proses identifikasi permasalahanvpada saat terjadi kerusakan koneksi antar komputer.
Kekurangan Topologi Mesh
• Setiap perangkat harus memiliki I O port. Butuh banyak kabel sehingga butuh banyak biaya.
• Instalasi dan konfigurasi lebih sulit karena computer yang satu dengan yang lain harus terkoneksi secara langsung.
4. Topologi Star
Kelebihan Topologi Star
• Topologi star tidak langsung terhubung satu sama lain tetapi melalui perangkat pusat pengendali yang di sebut HUB.
• Kabel yang di butuhkan hanya sebanyak computer dalam jaringan dan I/O cukup hanya satu di setiap computer,kabel link dan port I/O
lebih sedikit dan biaya lebih sedikit dari pada topologi mesh.
• Memiliki sifat robustness yaitu jika satu link rusak maka hanya pada computer yang berada pada
link tsb.
Kelemahan Topologi Star
• Kondisi HUB harus tetap dalam kondisi baik, kerusakan HUB berakibat lumpuhnya seluruh link
dalam jaringan sehingga computer tidak dapat saling berkomunikasi.
5. Topologi Tree
Kelebihan Topologi Tree
• Seperti topologi star perangkat terhubung pada pusat pengendali /HUB.
• Tetapi HUB dibagi menjadi dua,central HUB,dansecondary HUB
• Topologi tree ini memiliki keunggulan lebih mampu menjangkau jarak yang lebih jauh dengan mengaktifkan fungsi Repeater yang dimiliki oleh HUB.
Kelemahan Topologi Tree
• Kabel yang digunakan menjadi lebih banyak sehingga diperlukan perencanaan yang matang dalam pengaturannya , termasuk di dalamnya adalah tata letak ruangan.
6. Topologi Extended Star Topologi Extended Star merupakan perkembangan lanjutan dari
topologi star, karakteristiknya tidak jauh berbeda dengan topologi star.
Kelebihan Topologi Extended Star
• Jika satu kabel sub node terputus maka sub node yang lainnya tidak terganggu, tetapi apabila central node terputus maka semua node disetiap sub node akan terputus
Kekurangan Topologi Extended Star
• Tidak dapat digunakan kabel yang “lower grade” karena hanya menghandel satu traffic node karena untuk berkomunikasi antara satu node ke node lainnya membutuhkan beberapa kali hops.

Kelebihan dan Kekurangan jaringan komputer

Keunggulan
1. Kecepatan akses lebih tinggi karena penyediaan
fasilitas jaringan dan pengelolaannya dilakukan
secara khusus oleh satu komputer (server) yang
tidak dibebani dengan tugas lain sebagai
workstation.
2. Sistem keamanan dan administrasi jaringan
lebih baik, karena terdapat seorang pemakai yang
bertugas sebagai administrator jaringan, yang
mengelola administrasi dan sistem keamanan
jaringan.
3. Sistem backup data lebih baik, karena pada
jaringan client-server backup dilakukan terpusat di
server, yang akan membackup seluruh data yang
digunakan di dalam jaringan.
Kelemahan
1. Biaya operasional relatif lebih mahal.
2. Diperlukan adanya satu komputer khusus yang
berkemampuan lebih untuk ditugaskan sebagai
server.
3. Kelangsungan jaringan sangat tergantung pada
server. Bila server mengalami gangguan maka
secara keseluruhan jaringan akan terganggu.

 Program C++ menggunakan Procedure dan Function

Ø Program C++  menggunakan Procedure dan Function

-         C++  menggunakan Procedure

-          Listing Program:

#include <iostream.h>

#include <conio.h>

void penjualan(float a,float b,float c)

{

float total,temp;

temp =b*c ;

total =temp - (a*temp);

cout<<"harga kotor barang :" <<temp<<endl;

cout<<"hara bersih barang :" <<total<<endl;

}

void main()

{

float diskon,harga,jumlah;

float total,temp;

cout<<"         ++++++++++++++++++++++++++++++"<<endl;

cout<<"          Program Hitungan Harga Barang"<<endl;

cout<<"         =============================="<<endl<<endl;

cout<<"masukan harag barang Rp";

cin>>harga;

cout<<"masukan jumlah barang:";

cin>>jumlah;

cout<<"masukan diskon barang:";

cin>>diskon;

cout<<"\n";

penjualan(diskon,harga,jumlah);

getch();

}

            Program yang saya buat adalah “menghitung harga barang”

Contoh output program yang sudah dijalankan:

-         C++  menggunakan Function

-             Listing Program:

#include <conio.h>

#include <iostream.h>

void kali(){

int a,b,hasil;

cout<<"masukan nilai 1 :";

cin>>a;

cout<<"masukan nilai 2 :";

cin>>b;

hasil=a*b;

cout<<"hasil kali :"<<hasil<<endl;}

 bagi(){

int a,b; float result;

cout<<"masukan nilai 1 : ";

cin>>a;

cout<<"masukan nilai 2 : ";

cin>>b;

result=a/b;

cout<<"hasil bagi = ";

return result;}

main()

{

cout<<bagi()<<endl;

kali();

cout<<endl;

getch();

}

Saya membuat Program  Function sederhana membagi nilai dan mengalikan nilai :

Output program

 

• Program pascal menggunakan Procedure dan Function

·        Program pascal menggunakan Procedure dan Function

Ø Pascal menggunakan Procedure

-Listing Program:

uses crt ;

var pil : integer ;

Procedure lingkaran ;

var x,y,z : real ;

begin

writeln ( ` --- 1.lingkaran--- ` ) ;

write ( `masukan jari-jari: ` ) ;

readln (x) ;

y := 3.14 * x * x ;

z := 2 * x * 3.14 ;

writeln ( `luas lingkaran     = ` , y : 9 : 2 ) ;

writeln ( `keliling lingkaran = ` , z : 9 : 2 ) ;

end ;

Procedure persegi ;

var x,y,z : real ;

begin

writeln ( ` ---2.persegi--- ` ) ;

write ( `masukan sisi: ` ) ;

readln (x) ;

y := x * x ;

z := x * 4 ;

writeln ( `luas persegi     = ` , y : 9 : 2 ) ;

writeln ( `keliling persegi = ` , z : 9 : 2 ) ;

end ;

Procedure persegi_panjang ;

var p,l,y,z : real ;

begin

writeln ( ` ---3.persegi_panjang--- ` ) ;

write ( `masukan panjang: ` ) ;

readln (p) ;

write ( `masukan lebar: ` ) ;

readln (l) ;

y := p * l ;

z := 2 * ( p + l ) ;

writeln ( ` luas persegi panjang     =' , y : 9 : 2 ) ;

writeln ( `keliling persegi panjang =' , z : 9 : 2 ) ;

end ;

begin

clrscr ;

writeln ( `program luas dan keliling' ) ;

writeln () ;

writeln ( '1 = lingkaran' ) ;

writeln ( '2 = persegi' ) ;

writeln ( '3 = persegi panjang' ) ;

writeln () ;

write ( `masukan pilihan :' ) ;

readln (pil) ;

writeln () ;

if pil = 1 then lingkaran

else if pil = 2 then persegi

else if pil = 3 then persegi_panjang

else write ( `input salah' ) ;

readln

end.

-0utput Program

 

Ø Pascal menggunakan Function

- Listing Program:

program tunjangan;

uses wincrt;

var

nm,jab,no :string;

gaj,ti,ta,tgaj:real;

stat,jmlank :integer;

function gajibersih (gaji,tunjangan_anak,tunjangan_istri,totalgaji :real):real;

begin

gajibersih:=gaji+tunjangan_anak+tunjangan_istri;

end;

begin

    writeln('=================================================');

    writeln('=TUGAS PERHITUNGAN GAJI DAN TUNJANGAN ANAK ISTRI=');

    writeln('=Nama :Muhammad Asrir           NIM :2010020112 =');

    writeln('=================================================');

    writeln('=  Masukkan data sesuai pada ketentuan berikut  =');

    writeln('=================================================');

    writeln('======Status=====================================');

    writeln('   1. Kawin     ');

    writeln('   2. Tidak Kawin  ');

    writeln('=================================================');

    writeln;

    writeln;

write ('nomor induk karyawan  : ');readln(no);

write ('nama pegawai          : ');readln(nm);

write ('jabatan pegawai       : ');readln(jab);

write ('Gaji pokok            : Rp,');readln(gaj);

write ('status perkawinan       : ');readln(stat);

case stat of

1 :begin

ti :=(15/100)*gaj;

write ('jumlah anak             : ');readln(jmlank);

if (jmlank >=3) then

ta :=(5/100)*gaj

else if (jmlank <3) then

ta :=0;

       end;

2 :begin

ti :=0;

ta :=0;

       end;

   end;

begin

writeln;

    writeln('=================oO SLIP GAJI Oo=================');

    writeln;

    writeln ('Nama          : ',nm);

    writeln ('No Karyawan   : ',no);

    writeln ('Jabatan       : ',jab);

    writeln ('+===============================================+');

    writeln ('|       Rincian Gaji         |      Jumlah      |');

    writeln ('+===============================================+');

    writeln ('| Gaji Pokok               : | Rp ',gaj:8:0,'      |');

    writeln ('| Tunjangan Anak           : | Rp ',ta:8:0,'      |');

    writeln ('| Tunjangan Istri          : | Rp ',ti:8:0,'      |');

    writeln ('|                            |                  |');

    writeln ('+===============================================+');

    writeln ('| Total Gaji Bersih        : | Rp ',gajibersih (gaj,ti,ta,tgaj):8:0,'      |');

    writeln ('+===============================================+');

    readln;

end;

end.

-output Program

Output program kurang lebih begini saat berjalan.