tugas

procedure TForm1.fortodoClick(Sender: TObject);

var

i,j:integer; b:string;

begin

b:=''; j:=2;

for i:=1 to 10 do

begin

b:=b+inttostr(j)+'';

j:=j+2;

end;

label1.Caption:=b;

end;

procedure TForm1.fordowntodoClick(Sender: TObject);

var

i,j:integer; b:string;

begin

b:=''; j:=2;

for i:=10 downto 1 do

begin

b:=b+inttostr(i)+'';

j:=j+2;

end;

label2.Caption:=b;

end;

procedure TForm1.whiledoClick(Sender: TObject);

var

i,j:integer; b:string;

begin

i:=1;

b:='';

while i<10 do

begin

b:=b+inttostr(i)+'';

i:=i+2;

end;

label3.Caption:=b;

end;

procedure TForm1.repeatuntilClick(Sender: TObject);

var

i,j:integer; b:string;

begin

i:=1;

b:='';

repeat

b:=b+inttostr(i)+'';

i:=i+1;

until i>10;

label4.Caption:=b;

end;

procedure TForm1.bt_keluarClick(Sender: TObject);

begin

close;

end;

procedure TForm1.Button5Click(Sender: TObject);

var

bil,hasil,pangkat,a:integer;

begin

bil:=strtoint(edit1.Text);

hasil:=bil;

pangkat:=strtoint(edit2.Text);

if edit2.Text='0' then edit3.Text:='1' else

if edit2.Text='1' then edit3.Text:=edit1.Text else

begin

for a:=2 to pangkat do

hasil:=hasil*bil;

edit3.Text:=inttostr(hasil);

end;

end;

end.

Baca ini dulu !!!!

Untuk bapak dosen atau teman-teman yang mempunyai kritik dan saran maupun info-info yang menarik silahkan e-mail saya yah........
salam damai selalu

wahyu.saptaaji@gmail.com

wassalamualaikum wr.wb

tugas tampilan rincian uang dan kembalian 2

Script rincian harga & kembalian:

program moddiv_wahyusaptaaji_111221110;

uses WinCrt; 

const

ch:array [1..10] of longint=(100,200,500,1000,2000,5000,10000,20000,50000,100000);

var

a,b,c,d,e,f:string;

i,j,x,y,l:shortint;

tpr,cost,pay,cback,cch:longint;

it:array[1..10] of string;

pr:array[1..10] of longint;

qty:array[1..10] of shortint;

begin

 repeat

  clrscr;

  y:=0; i:=0; tpr:=0; cost:=0; l:=47;

   gotoxy (2,1); for x:=1 to l do write (#61);

   gotoxy (2,3); for x:=1 to l do write (#61);

   gotoxy (2,5); for x:=1 to l do write (#61);

   gotoxy (56,1); for x:=1 to 21 do write (#61);

   gotoxy (56,3); for x:=1 to 21 do write (#61);

   gotoxy (56,2); write ('    STRUKTUR DATA    ');

  

   gotoxy (22,2); write (#83#45#77#65#82#84);

   gotoxy (8,4); write (#73#116#101#109);

   gotoxy (22,4); write (#80#114#105#99#101);

   gotoxy (33,4); write (#81#116#121);

   gotoxy (42,4); write (#84#111#116#97#108);

   repeat

   i:=i+1;

   gotoxy (4,5+i); readln (it[i]);

   gotoxy (56,2); write (#78#85);

    if it[i]<>'' then

    begin

      gotoxy (22,5+i); readln (pr[i]);

      gotoxy (34,5+i); readln (qty[i]);

      tpr:=pr[i]*qty[i];

      gotoxy (42,5+i); writeln (tpr);

      cost:=cost+tpr;

    end;

   until it[i]='';

   gotoxy (58,2); write (#82#32#82);

   gotoxy (2,6+i-1); for x:=1 to l do write (#45);

   gotoxy (65,2); write (#32#45#32#49#49#49);

   gotoxy (4,6+i); write (#84#79#84#65#76);

   gotoxy (61,2); write (#65#70);

   gotoxy (42,6+i); write (cost);

   gotoxy (4,7+i); write (#66#65#89#65#82);

   gotoxy (63,2); write (#70#73);

   gotoxy (42,7+i); readln (pay);

   gotoxy (71,2); write (#50#50#49#49#49#48);

                         

   cback:=pay-cost;

   

   gotoxy (4,8+i); write (#75#69#77#66#65#76#73);

   gotoxy (42,8+i); write (cback);

   gotoxy (2,9+i); for x:=1 to l do write (#45);

   a:=#32#85#97#110#103;

   b:=#32#75#111#105#110#32#32;

   c:=#32#76#101#109#98#97#114;

   d:=#32#82#112#46#32;

   e:=#32#80#101#114#109#101#110;

   if cback>0 then

   begin

     gotoxy (4,10+i); write (#82#105#110#99#105#97#110#32#58);

     for j:=10 downto 0 do

     begin

       cch:=cback div ch[j];

       if cch>0 then

       begin

        y:=y+1;

       

        if ch[j]=100 then

        begin

          gotoxy (4,10+i+y); writeln(#62#32,cch,b,a,d,ch[j],#32#32#47#32,cch,e);

        end;

        if (ch[j]=200) or (ch[j]=500) then

        begin

          gotoxy (4,10+i+y); writeln(#62#32,cch,b,a,d,ch[j]);

        end;

        if ch[j]>500 then

        begin

          gotoxy (4,10+i+y); writeln(#62#32,cch,c,a,d,ch[j]);

        end;

        cback:=cback mod ch[j];

       end;

     end;

   end;

   if cback<0 then

   begin

   gotoxy (17,17); write ('Uang Anda Kurang!');

   end;

  

  gotoxy (57,20); write ('Try Again? (Y/N) : '); readln (f);

 until (f='n') or (f='N'); 

end.

tugas tampilan rincian uang dan kembalian 1

program tampilan rincian uang;
uses wincrt;
var
a,b:longint;
j,c,d,e,f,g,h,i,k:longint;
begin
writeln('---------------wahyusaptaaji----------------+');
writeln('Masukkan Nilai Uang');readln(a);
writeln('+---------------------------------+');
writeln('Masukkan Nilai Harga Barang');readln(b);
writeln('+---------------------------------+');
j:=a-b;
writeln('kembalian=',j);
writeln('rinciannya adalah :!!!!');
c:=j div 50000;
d:=(j mod 50000)div 10000;
e:=(j mod 10000)div 5000;
f:=(j mod 5000)div 2000;
g:=(j mod 2000)div 1000;
h:=(j mod 1000)div 500;
i:=(j mod 500)div 200;
k:=(j mod 200)div 100;
writeln('',c,'.LEMBAR=50000');
writeln('',d,'.LEMBAR=10000');
writeln('',e,'.LEMBAR=5000');
writeln('',f,'.LEMBAR=2000');
writeln('',g,'.LEMBAR=1000');
writeln('',h,'.LEMBAR=500');
writeln('',i,'.LEMBAR=200');
writeln('',k,'.LEMBAR=100');
writeln;
writeln('TERIMAKASIH DAN DATANG KEMBALI');
end.

tugas 2d nomer 1

Program Perkalian_Matriks;

uses wincrt;

var

a,f,k:array[1..10,1..10] of integer;

b,c,i,j,l,z:longint;

m,n,d,e,g,h:byte;

begin

write('banyaknya baris matriks pertama: '); readln(b);

write('banyaknya kolom matriks pertama: '); readln(c);

for d:= 1 to b do

begin

for e:= 1 to c do

begin

write('masukkan baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);

end;

end;

for d:= 1 to b do

begin

for e:= 1 to c do

begin

write(a[d,e]:7);

end;writeln;

end;writeln;

write('berapa banyak baris matriks kedua: '); readln(g);

write('berapa banyak kolom matriks kedua: '); readln(h);

for i:= 1 to g do

begin

for j:=1 to h do

begin

write('masukkan baris ke-',i,' kolom ke ',j,': '); readln(f[i,j]);

end;

end;

for i:= 1 to g do

begin

for j:= 1 to h do

begin

write(f[i,j]:7);

end;writeln;

end;writeln;

if c=i then begin

writeln('matrik1*matrik2:');writeln;

for d:= 1 to b do

begin

for l:=1 to h do

begin

for e:= 1 to c do

begin

for j:= l to h do

begin

for i:=e to g do

begin

k[d,j]:=k[d,j]+a[d,e]*f[i,j];

if c=e then

begin

write(k[d,j]:7);

end;

i:=g;

end;

j:=h;

end;

end;

end;

writeln;

end;

end else

begin

writeln('Maaf !!!perkalian tidak dapat dilakukan,');

end;

readln end.

tugas 2d nomer 2

program identitas;

uses

wincrt;

var

c:array[1..10,1..10] of integer;

x,y:integer;

begin

for x:=1 to 5 do

begin

for y:=1 to 5 do

begin

c[x,y]:=0;

if x+y=6 then c[x,y]:=1;

write(c[x,y]:4);

end;

writeln

end;

end.

modul jaringan komputer

A. Pengantar Jaringan Komputer
Jaringan Komputer merupakan hubungan dua atau lebih sistem
komputer yang terpisah, melalui media komunikasi untuk
melakukan komunikasi data satu dengan yang lain guna berbagi
sumber daya (resource).
Berbagi sumber daya anatara lain:
- Data
- Hardware (Printer, CD-Rom)
- Perangkat komunikasi
Sebuah jaringan dapat dihubungkan dengan berbagai media
komunikasi antara lain :
- Kabel
- Radio
- Satelit
Keuntungan dari jaringan computer :
- Speed
Dengan jaringan komputer pekerjaan akan lebih cepat, fasilitas
sharing akan memudahkan transfer data antar komputer.
- Cost
Sumber daya hardware dapat diminimalisir karena dapat
berbagi hardware antar komputer.
- Security
Jaringan komputer memberikan layanan hak akses terhadap file
atau sumber daya yang lain.
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 4
- Centralized Software Management
Salah satu keuntungan jaringan komputer adalah pemusatan
program aplikasi. Ini akan mengurangi waktu dan tenaga untuk
instalasi program dimasing-masing komputer.
- Resource Sharing
Jaringan komputer dapat mengatasi terbatasnya hardware
(printer, CDROM, dll) maupun data.
- Flexible Access
User dapat mengakses data yang terpusat dari komputer
manapun.
- dll
Konfigurasi Jalur adalah jumlah alat yang ada di dalam hubungan
(link). Ada dua jenis, antara lain :
- Point to point
Hubungan antar dua peralatan jaringan.
- Multipoint
Hubungan antar lebih dari dua perangkat jaringan.
Berdasarkan arsitekturnya, jaringan komputer dibedakan menjadi 3,
antara lain :
- Host Terminal
- Client Server
- Peer to peer
B. Terminologi Dasar Jaringan
Jaringan komputer dibangun dalam bentuk dan ukuran yang
berbeda-beda, bergantung kondisi dan kebutuhan. Desain dari
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 5
jaringan komputer sangat pesat perkembangannya. Desain inilah
yang disebut network terminology.
Pada awalnya LAN dan WAN merupakan desain orisinal jaringan
komputer. Namun saat ini mengalami perkembangan. Sebagai
pengetahuan, saat ini “area network “ yang lainnya adalah :
• Local Area Network (LAN)
• Wide Area Network (WAN)
• Metropolitan Area Network (MAN)
• Storage Area Network (SAN)
• System Area Network (SAN)
• Small Area Network (SAN)
• Personal Area Network (PAN)
• Desk Area Network (DAN)
• Controller Area Network (CAN)
• Cluster Area Network (CAN)
Local Area Network (LAN) merupakan komunikasi sejumlah
komputer ataupun perangkat komunikasi di dalam suatu area
terbatas dengan menggunakan media komunikasi tertentu ( kabel,
wireless, dan lain-lain)
LAN didesain untuk kebutuhan dan kondisi berikut :
• Beroperasi dalam area geografis terbatas (kecil)
• Memberi akses user-user melalui media dengan bandwidth
tinggi
• Menyediakan konektivitas full-time untuk servis-servis local
• Melakukan koneksi secara fisik antar perangkat yang
berdekatan
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 6
• Menyajikan control jaringan secara privat di bawah kendali
administrator lokal (Network Administrator).
Wide Area Network (WAN) merupakan komunikasi antar LAN,
antara LAN yang satu dengan yang lainnya dipisahkan oleh jarak
geografis yang cukup jauh. Misalnya hubungan antara kantor
pusat dengan cabang-cabang yang ada di daerah.
Beberapa teknologi WAN yang umum digunakan :
• Modem
• ISDN (Integrated Services Digital Network)
• DSL (Digital Subscriber Line)
• Frame Relay
• ATM (Asynchronous Transfer Mode
• SONET (Synchronous Optical Network)
WAN didesain untuk kebutuhan dan kondisi berikut :
• Beroperasi pada area geografis luas
• Mengijinkan akses melalui interface serial dengan kecepatan
medium
• Menyajikan konektifitas full-time / part-time
• Mengkoneksikan perangakat yang terpisahkan jarak global.
Sebagai pengetahuan, “area network” lainnya yang juga
merupaka terminologi jaringan hanya sebagai tambahan. Berikut
pengertian singkatnya :
Metropolitan Area Network (MAN) merupakan jaringan dengan
area operasi lebih besar dari LAN tetapi lebih kecil dari WAN
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 7
(disebuah kota), dengan kapasitas data dan performa hardware
yang tinggi.
Storage Area Network (SAN) merupakan koneksi-koneksi perangkat
penyimpanan melalui teknologi seperti Fibre chanel
System Area Network merupakan koneksi-koneksi berperforma
hardware tinggi dan kecepatan koneksi tinggi dalam sebuah
konfiurasi cluster.
C. Topologi Jaringan
Topologi jaringan merupakan tampilan fisik jaringan yang
menggambarkan penempatan komputer-komputer di dalam
jaringan dan bagaimana kabel ditarik untuk menghubungkan
komputer-komputer tersebut.
Topologi Linier Bus
Topologi linear bus merupakan topologi yang banyak
dipergunakan pada masa penggunaan kabel Coaxial menjamur.
Dengan menggunakan T-Connector (dengan terminator 50ohm
pada ujung network), maka komputer atau perangkat jaringan
lainnya bisa dengan mudah dihubungkan satu sama lain.
Kesulitan utama dari penggunaan kabel coaxial adalah sulit untuk
mengukur apakah kabel coaxial yang dipergunakan benar-benar
matching atau tidak. Karena kalau tidak sungguh-sungguh diukur
secara benar akan merusak NIC (network interface card) yang
dipergunakan dan kinerja jaringan menjadi terhambat, tidak
mencapai kemampuan maksimalnya. Topologi ini juga sering
digunakan pada jaringan dengan basis fiber optic (yang kemudian
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 8
digabungkan dengan topologi star untuk menghubungkan dengan
client atau node).
Keuntungan dari topologi ini adalah :
• Mudah mengkoneksikan komputer atau perangkat lain ke linier
bus.
• Jumlah kabel lebih sedikit daripada topologi star.
Kelemahan dari topologi ini adalah :
• Jaringan akan terganggu, jika ada salah satu komputer ada
yang mati.
• Membutuhkan terminator di dua sisi ujung dari jaringan
• Sulit untuk mendiagnosa, jaringan ada masalah atau putus.
• Bukan solusi terbaik untuk mengatasi perkantoran yang besar.
Topologi Star
Menghubungkan semua kabel ke sebuah pusat konsentrator.
Konsentrator ini biasanya berupa hub atau switch.
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 9
Keuntungan dari topologi ini adalah :
• Mudah instalasinya
• Tidak akan mempengaruhi jaringan, jika ada komputer atau
peripheral yang mati atau tidak digunakan (lebih handal)
• Mudah untuk mendiagnosa permasalahan jaringan.
Kelemahan dari topologi ini adalah :
• Membutuhkan lebih banyak kabel daripada linier bus
• Jika konsentrator (hub/switch) rusak, maka jaringan akan
terputus
• Lebih mahal daripada linier bus, karena membutuhkan
peralatan tambahan yaitu konsentrator.
Topologi Ring
Topologi ring menghubungkan komputer-komputer sepanjang
lintasan tunggal yang kedua ujungnya digabung sehingga
membentuk suatu lingkaran (ring). Lingkaran yang dimaksud
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 10
adalah lingkaran logis, yang jika dilihat secara fisik tidak berbentuk
lingkaran sama sekali tetapi lebih mirip topologi star.
Topologi ring umumnya digunakan di dalam jaringan token ring
dan Fiber Distributed Data Interface (FDDI) yang banyak digunakan
sebagai backbone (jaringan tulang punggung) berkecepatan
tinggi.
Pada topologi ini, kerusakan pada salah satu komputer akan
berpengaruh terhadap jaringan secara keseluruhan dan tentu saja
akan mempersulit proses diagnosa.
Penambahan dan pemindahan komputer juga akan mengganggu
jaringan yang sedang berjalan.
Topologi Tree
Topologi tree dapat berupa gabungan dari topologi star dengan
topologi bus. Namun saat ini topologi tree merupakan kumpulan
topologi star yang memiliki hirarki, sehingga antar hirarki ada aturan
masing-masi ng.
Topologi Mesh
Digunakan pada kondisi di mana tidak ada hubungan komunikasi
terputus secara absolut antar node komputer. Sebagai contoh
system-sistem control dari sebuah nuclear power plant. Topologi ini
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 11
merefleksikan bagaimana desain internet yang memiliki multi path
ke berbagai lokasi.
D. Perangkat Jaringan
Perangkat jaringan adalah semua komputer , peripheral, interface
card dan perangakat tambahan yang terhubung ke dalam sutu
sistem jaringan komputer untuk melakukan komunikasi data.
Server
Server merupakan pusat kontrol dari jaringan komputer. Biasanya
berupa komputer berkecepatan tinggi dengan kapasitas RAM
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 12
yang besar dan memiliki space hardisk cukup besar pula. Sistem
operasi yang digunakan merupakan sistem operasi khusus yang
dapat memberikan berbagai layanan bagi workstation.
Workstation
Semua komputer yang terhubung dengan jaringan dapat dikatan
sebagai workstation. Komputer ini yang melakukan akses ke server
guna mendapat layanan yang telah disediakan oleh server.
Network Interface Card (NIC)
NIC sering disebut Ethernet Card, digunakan untuk
menghubungkan sebuah komputer ke jaringannya. NIC
memberikan suatu koneksi fisik antara kabel jaringan dengan bus
internal komputer.
HUB
Disebut juga reapeater hub merupakan komponen jaringan yang
digunakan di dalam jaringan 10Mbps tradisional untuk
menghubungkan komputer-komputer dalam jaringan skala kecil
(LAN)
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 13
Pada perangkat hub, semua anggota jaringan yang terhubung
dengan perangakat ini melakukan transmisi data pada jaringan
(collision domain). Ini berarti, jika lebih dari satu komputer mengirim
data ke jaringan secara bersamaan, maka tidak satupun komputer
yang dapat memanfaatkan 100% bandwidth jaringan yang
tersedia.
SWITCH
Switch adalah device sederhana yang juga berfungsi untuk
menghubungkan multiple komputer. Switch memang identik
dengan hub, tetapi switch lebih cerdas dan memiliki performa
tinggi dibanding hub.
Secara tipikal berikut kelebihan dari switch :
• Mampu menginspeksi paket-paket data yang mereka terima
• Mampu menentukan sumber dan tujuan paket yang
melaluinya
• Mampu mem-forward paket-paket dengan tepat.
Switch terbagi menjadi dua tipe utama; switch layer-2 dan layer-3.
Switch layer-2 bekerja pada layer datalink model OSI dan
berdasarkan teknologi bridging.Switch tipe ini membangun koneksi
logika antar port berdasarkan pada alamar MAC.
Switch layer-3 beroperasi pada layer-3 dari OSI model dan
berdasarkan teknologi routing. Switch seperti ini membangun
koneksi logika antar port berdasarkan alamat jaringan. SwitchModul
Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 14
switch ini dapat digunakan untuk menghubungkan jaringanjaringan
yang berbeda dalam suatu internetwork. Switch ini
kadang disebut switch routing atau switch multilayer.
REPEATER
Repeater bekerja meregenerasi atau memperkuat sinyal-sinyal
yang masuk. Pada ethernet kualitas transmisi data hanya dapat
bertahan dalam range waktu dan jangkauan terbatas, yang
selanjutnya mengalami degradasi. Repeater akan berusaha
mempertahankan integritas sinyal dan mencegah degradasi
sampai paket-paket data menuju tujuan.
Adapun kelemahan repeater, perangkat ini tidak dapat melakukan
filter traffic jaringan. Data (bits) yang maasuk ke salah satu port
dikirim ke luar melalui semua port. Dengan demikian data akan
tersebar ke segmen-segmen LAN tanpa memperhitungkan apakah
data tersebut dibutuhkan atau tidak.
BRIDGE
Bridge adalah perangkat jaringan yang digunakan untuk
memecah jaringan yang besar. Bridge bekerja pada layer data-link
dari model OSI.
Bridge bekerja dengan mengenali alamat MAC asal yang
mentransmisi data ke jaringan dan secara otomatis membangun
sebuah table internal. Tabel ini berfungsi untuk menentukan ke
segmen mana paket akan di route dan menyediakan
kemampuan filtering.
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 15
Cara kerja bridge :
Setelah mengetahui ke segmen mana paket akan disampaikan,
bridge melanjutkan pengiriman langsung ke segmen tersebut. Jika
bridge tidak mengenali alamat tujuan paket, maka paket akan
difordward ke semua segmen yang terkoneksi kecuali segmen
alamat asalnya. Dan jika alamat tujuan berada dalam segmen
yang sama dengan alamat asal, bridge akan menolak paket.
Bridge juga melanjutkan paket-paket broadcast ke semua segmen
kecuali segmen asalnnya.
ROUTER
Router adalah perangkat jaringan yang digunakan untuk
menghubungkan satu jaringan dengan jaringan lainnya untuk
mendapatkan route (jalur) terbaik.
Router bekerja pada layer network dari model OSI untuk
memindahkan paket-paket antar jaringan menggunakan alamat
logikanya. Router memliki table routing yang melakukan
pencatatan terhadap semua alamat jaringan yang diketahui dan
lintasan yang mungkin dilalui serta waktu tempuhnya.
Modul Sistem Jaringan Komputer
SMK Telkom Sandhy Putra Malang 16
Router bekerja hanya jika protocol jaringan yang dikonfigurasi
adalah protokol yang routable seperti TCP/IP atau IPX/SPX. Ini
berbeda dengan bridge yang bersifat protocol independent.