E-Commerce

eCommerce dapat didefinisikan dari beberapa perspektif:
    - Komunikasi: Penyampaian barang, jasa, layanan, informasi atau pembayaran melalui jaringan komputer atau perangkat elektronik lainnya.
    - Komersial (perdagangan): Kemampuan untuk membeli dan menjual produk, jasa, layanan dan informasi di internet dan melalui layanan pembayaran online lainnya.
    - Proses bisnis: Melakukan bisnis melalui jaringan elektronik dengan menggunakan informasi sebagai pengganti proses bisnis secara fisik.
    - Layanan: Sebuah alat bagi pemerintah, perusahaan, konsumen dan manajemen untuk mengurangi biaya layanan, meningkatkan kualitas layanan pelanggan dan mempercepat penyampaian layanan.
    - Pembelajaran: Memungkinkan pembelajaran secara online pada sekolah, universitas dan organisasi lain (termasuk bisnis).
    - Kolaborasi: Kerangka kerja bagi kolaborasi inter dan intra organisasi.
    - Komunitas: Penyediaan “tempat berkumpul” bagi anggota komunitas untuk belajar, bertransaksi dan berkolaborasi.

eCommerce: pertukaran antar pihak – pihak (individu maupun organisasi) dengan perantaraan teknologi yang difasilitasi dengan aktivitas intra dan inter organisasi secara elektronik.

Penerapan eCommerce didukung oleh infrastruktur dan 5 (lima) area pendukung:
    - Manusia (people)
    - Kebijakan publik (public policy)
    - Pemasaran dan iklan (marketing and advertising)
    -Dukungan layanan (support services)
    - Rekanan bisnis (business partnerships)

Keuntungan E-Commerce
Keuntungan bagi organisasi / perusahaan:
    - Jangkauan global
    - Pengurangan biaya
    - Perbaikan rantai pasokan
    - Perpanjangan waktu layanan: 24/7/365
    - Customization
    - Time-to-market yang cepat
    - Biaya komunikasi yang lebih murah
    - Proses pembelian yang lebih efisien
    - Peningkatan relasi pelanggan
    - Informasi perusahaan yang mutakhir (up-to-date)

Keuntungan bagi pelanggan:
    - Dapat berada dibeberapa “tempat” sekaligus
    - Lebih banyak produk dan jasa
    - Harga produk dan jasa lebih murah
    - Pengiriman yang lebih cepat
    - Ketersediaan informasi
    - Komunitas elektronik / maya
    - Di beberapa negara tidak dikenakan pajak penjualan

Keuntungan bagi masyarakat:
    - Telecommuting
    - Meningkatkan standard hidup
    - Ketersediaan layanan publik

Keterbatasan E-Commerce
1. Keterbatasan teknis:
    - Belum adanya standard kualitas, keamanan dan kehandalan yang diterima secara global
    - Keterbatasan bandwith telekomunikasi
    - Kesulitan integrasi aplikasi eCommerce dengan legacy systems
    - Biaya akses (internet) yang masih relatif mahal
    - Kebutuhan Web server atau infrastruktur lain yang bersifat khusus / istimewa
2. Keterbatasan non–teknis:
    - Biaya dan justifikasi
    - Keamanan dan privasi (kebebasan pribadi / privacy)
    - Penolakan dan ketidak–percayaan pengguna
    - Keterbatasan “touch and feel” secara online

Hambatan E-Commerce
    - Keamanan
    - Kepercayaan dan resiko
    - Kurangnya sumber daya manusia yang berkualitas
    - Kurangnya model bisnis
    - Budaya
    - Organisasi
    - Kejahatan (fraud)
    - Akses internet yang lambat
    - Legalitas dan hukum

Tantangan E-Commerce di Indonesai:
    - Infrastruktur telekomunikasi masih tertinggal
    - Biaya pulsa telepon yang mahal
    - Jangkauan ISP masih terbatas
    - Harga hardware komputer yang mahal

Komponen Elektronika

Bahan listrik berdasarkan Sifatnya :

•  Isolator : tidak dapat menghantarkan arus listrik
•  Resistor : penghambat arus listrik
•  Konduktor: bahan yang dapat menghantarkan listrik

Nilai Tahanan

Konduktor ≤ Resistor≤ isolator

1. Semi konduktor : Bahan yang pada suatu kondisi menjadi konduktor dan pada kondisi yang lain adalah resistor.

2. Kutub negatif : Kutub yang kelebihan elektron

3. Kutub positif : kutub yang kekurangan elektron

Konduktor

- Dapat melepaskan elektron dari ikatan atomnya..dst.

 

Semi Konduktor

•  Sifat : Negatif temperature cofficeny
•  Suhu : r → R konduktor

Semi Konduktor Dari Silikon

•  Untuk membuat dioda,transistor,Ic
•  Silikon mempunyai 4 elektron falensi,untuk menjadi setabil membutuhkan 8 elektron falensi
•  Dua atom silikon akan membentuk ikatan KOVALEN → kristal silikon

Sifat : Pada suhu kamar : jika dipanasi ikatan kovalen akan patah ,elekron valensi lepas dan jadi elektron bebas .Sehingga = Konduktor

Semi Konduktor Jenis N

•  Dengan memberikan doping pada silikon akan menimbulkan elektron bebas ,
•  Doping ; Peroses penambahan bahan lain ke elektron ,
•  Semim konduktor jenis N =kelebihan elektron ,
•  Semi konduktor jenis P = Kekurangan elektron .

Refrensi : Prinsip-prinsip elektronika,malvino

Fungsi

Blok fungsi hampir sama dengan blok prosedur, hanya fungsi harus dideklarasikan dengan tipenya.

Deklarasi Tipe menunjukkan tipe hasil dari fungsi.

FUNCTION Nama_Fungsi(parameter):type;

Contoh :

Function Faktorial(Var Fak, Hasil :integer) : integer;

Function Pangkat(x,y : real) : real;

Contoh Fungsi : 

Function Hitung(var A,B : integer): integer;

Begin

Hitung := A + B;

End;

Var

X,Y : integer;

Begin

write(‘Nilai X ? ‘); readln(X);

write(‘Nilai Y ? ‘); readln(Y);

writeln(X,’ + ‘,Y,’ = ‘,Hitung(X,Y));

End.

Perbedaan Fungsi dg Prosedur

Pada fungsi, nilai yang dikirimkan balik terdapat pd nama fungsinya, kalau pada prosedur nilai yang dikirim pada parameter yang dikirim secara acuan.

Sehingga nama fungsi digunakan untuk menampung hasil yang akan dikirimkan dari fungsi

Hitung := A + B;

Karena nilai balik berada di nama fungsi, maka fungsi tersebut dapat langsung digunakan untuk dicetak hasilnya.

writeln(X,’ + ‘,Y,’ = ‘,Hitung(X,Y));

atau nilai fungsi dipindahkan ke variabel lain

Hasil:= Hitung(X,Y);

writeln(X,’ + ‘,Y,’ = ‘,Hasil);

Sedang pada prosedur, nama prosedur tidak dapat digunakan langsung, yang dapat langsung digunakan adalah parameternya yang mengandung nilai balik.

Fungsi Tanpa Parameter

Suatu fungsi yang tanpa parameter berarti nilai balik yang dihasilkannya merupakan nilai yang sudah pasti.

Parameter digunakan untuk memberikan input pada fungsi dan fungsi akan memberikan hasil balik sesuai dengan parameter yang diberikan.

Hasil dari fungsi tanpa parameter tidak dapat diatur dari modul yang menggunakannya, karena tidak ada parameter yang dikirimkan

Fungsi tanpa parameter ini jarang digunakan

Contoh :

Function Deteksi : Boolean;

Begin

Deteksi := True;

End;

Begin

writeln(Deteksi);

End.

Fungsi tersebut jarang digunakan karena nilai dapat langsung ditentukan dimodul yang menggunakannya sbb :

Begin

Writeln(True);

End.

Parameter Dalam fungsi

Sama dengan prosedur, parameter dalam fungsi dapat dikirimkan secara nilai (by value) atau secara acuan (by reference).

Function Hitung (A,B : integer) : integer;

Function Hitungan (var A,B:integer):integer;

Pengiriman Secara Nilai

Function Besar(x,y : integer) : integer;

Begin

if x>y then

besar := x

else

besar:=y;

End;

Var

a,b : integer;

Begin

write(‘ Nilai pertama : ‘); readln(a);

write(‘Nilai kedua : ‘); readln(b);

write(‘Nilai yang besar adalah : ‘,Besar(a,b));

End.

Pengiriman Secara Acuan

Function Hitung (var a,b,c:integer):integer;

Begin

Hitung := a+b;

c := a * b;

End;

Var

x,y,z : integer;

Begin

write(‘ Nilai x : ‘); readln(x);

write(‘Nilai y : ‘); readln(y);

writeln(x,’ + ‘,y,’ = ‘,Hitung(x,y,z));

writeln(x,’ * ‘,y,’ = ‘,z);

End.

Array 2 Dimensi

Dosen : Harjono, ST.


Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array).

Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.

Bentuk umum :

type
NamaArray = array[index1,index2] of TipeData;

---

Program Deklarasi_Array_Dua_Dimensi;

Uses WinCrt;

Var 

Tabel : Array[1..3,1..2] of Integer;

i,j : Integer;

Begin  

ClrScr;  

Tabel[1,1]:=1;  

Tabel[1,2]:=2;  

Tabel[2,1]:=3;  

Tabel[2,2]:=4;  

Tabel[3,1]:=5;  

Tabel[3,2]:=6;

For I := 1 to 3 Do

Begin

For J:= 1 to 2 Do

Writeln('Elemen ',i,',',j,'= ',tabel[i,j]);

End;

End.

Alternatif Deklarasi Array Dua Dimensi.

Var

Tabel : Array[1..3] of Array[1..2] of Byte;

atau :

Type  

Matrik = Array[1..3,1..2] of Byte;

Var  

Tabel : Matrik;

atau :

Type

Baris = 1..3;

Kolom = 1..2;  

Matrik = Array[Baris,Kolom] of Byte;

Var Tabel : Matrik;

atau : 

Type  

Baris = 1..3;  

Kolom=1..2;  

Matrik= Array[Baris] of Array[Kolom] of Byte;

Var  

Tabel : Matrik; 

Contoh deklarasi :

Const
jum_kuartal = 3;
jum_produk = 4;
Type
TabelPenjualan = array[1..jum_produk, 1..jum_kuartal] of integer ;
Var
DafPenjualan : TabelPenjualan ;

Contoh : array dengan 4 produk & 3 kuartal

Pendeklarasian Type dapat pula ditulis :
Type
TabelPenjualan = array[1..jum_produk] of [1..jum_kuartal] of integer ;

Akses elemen array:
Nama_array[index_baris, index_kolom]
contoh :

Bila kita memberi pernyataan:
- DafPenjualan[3,2] := 50 ;
maka elemen pada baris 3 kolom 2 akan berisi 50.

- writeln(DafPenjualan[3,2]);
maka akan menampilkan isi elemen baris 3 kolom 2

Contoh program array dua dimensi :

Program Jual;
Uses crt;
Const
jum_kuartal = 3;
jum_produk = 4;
Type
TabelJual = array [1..jum_produk,1..jum_kuartal] of integer;
Var
DafJual : TabelJual;
produk,kuartal:integer;
Begin
clrscr;
{==== pemasukan data ====}
for produk := 1 to jum_produk do
begin
writeln(‘produk ’, produk);
for kuartal := 1 to jum_kuartal do
begin
write(‘ kuartal ‘, kuartal);
readln(DafJual[produk,kuartal]);
end;
end;

{ lanjutan}


{===== menampilkan Data =====}
Clrscr;
writeln(‘Isi Array : ‘);
writeln(‘ PRODUK KUARTAL 1 KUARTAL 2 KUARTAL 3’);
for produk := 1 to jum_produk do
begin
write(produk:6);
for kuartal := 1 to jum_kuartal do
write(dafJual[produk,kuartal]:14);
writeln;
end;
readln;
End.

Array

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen dalam jumlah tetap yang mempunyai tipe sama.

Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript.

Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

Contoh:

Var Untai : array[1..50] of Integer; 

Pada contoh Array dengan nama untai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 50 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.

Contoh Program :

Program Contoh_Array_Input; 

Uses WinCrt;

Var  

Bilangan : array[1..50] of Integer;

Begin  

ClrScr;  

Bilangan[1]:=3;

Bilangan[2]:=29;

Bilangan[3]:=30;

Bilangan[4]:=31;

Bilangan[5]:=23;  

Writeln('nilai varibel bilangan ke 3 =',Bilangan[3]);

End.

Untuk deklarasi array dapat digunakan beberapa cara seperti berikut ini :

Type  

Angka = String[20];

Var  

Nama : Array [1..50] of Angka;

Begin 

.

. 

End.

Deklarasi tipe indeks subrange integer Indeks pada array dapat tipe skalar atau subrange, tetapi tidak bisa real. 

Contoh:

Var  

Nilai : Array[1..10] of Integer;

Pada contoh ini array nilai mempunyai 10 buah elemen yaitu dari elemen ke-1 sampai 10.

Array tersebut dapat dideklarasikan dengan type seperti berikut ini :

Type  

Skala = 1..10;  

Var  

Nilai : Array [skala] of Integer;

atau

atau :

Type

Y = Array[1..10] of Integer;

Var

Nilai : Y;

atau : 

Type 

Skala = 1..10;

Y = Array[skala] of Integer;

Var 

Nilai : Y;

atau :

Const

Atas =1;

Bawah = 5;

type

Y = Array[Atas..Bawah] of Integer;

Var

Nilai : Y;

Deklarasi Type Indeks Skalar

Program Deklarasi_Indeks_Array_Skalar;

Uses WinCrt; 

Var  

Jum : Array[(jan,feb,mar,apr,mei)] of Integer;

Begin

Jum[jan]:=25;  

Jum[feb]:=45;  

Jum[mar]:=21;

Jum[apr]:=23;  

Jum[mei]:=50;  

Writeln('Jumlah nilai bulan maret =',Jum[mar]); 

End.

Deklarasi Konstanta Array

Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi variabel, tetapi dapat juga berupa konstanta (const).

Program Contoh_Deklarasi_Array_Konstan; 

Uses Crt;

Const  

Tetap : Array[1..4] of Integer=(7,10,21,20);

Var

i : Integer;

Begin  

For i:= 1 to 4 Do  

Writeln('Nilai Konstan array ke ',i:2,' =',Tetap[i]);

End.

Konstanta array dapat juga berupa ketetapan dalam bentuk karakter seperti berikut.

Program Contoh_Konstan_Array_Char_;

Uses 

WinCrt; 

Const  

Huruf : Array[1..6] of Char=('A','B','C','D','E','F');

Var

i : Integer;

Begin  

For i:= 1 to 6 Do  

Writeln('Nilai konstan array ke',i:2,' = ',Huruf[i]);

End.

Dalam pascal string merupakan array dari elemen- elemen karakter seperti berikut :

Program String_Adalah_Array_Tipe_Char; 

Uses WinCrt;

Var  

Nama : string; 

i : Integer; 

Begin  

Nama:='Turbo Pascal';

For i:= 1 to Length(nama) Do  

Writeln('Elemen ',i,' dari ',Nama,'= ',Nama[i]);

End

Looping

For...Do

Perintah For . . . Do digunakan untuk melakukan perulangan determinitif.

Artinya sebuah pernyataan (tunggal atau majemuk) akan dikerjakan secara berulang-ulang sebanyak n kali, dimana n adalah sebuah bilangan yang telah diketahui sebelumnya.

Syntax 1 :

For NamaVarCounter := Awal To Akhir Do

Statement;

Syntax 2 :

For NamaVarCounter := Awal To Akhir Do

Begin

Statement1;

Statement2;

.........;

End;

Syntax 3 :

For NamaVarCounter := Awal DownTo Akhir Do

Statement;

Syntax 4 :

For NamaVarCounter := Awal DownTo Akhir Do

Begin

Statement1;

Statement2;

.........;

End;

Statement atau Block Statement akan dikerjakan selama nilai NamaVarCounter dari Awal ke Akhir dengan kenaikan / penurunan satu langkah.

Jika Awal lebih kecil dari Akhir digunakan perintah To, sedangkan jika Awal lebih besar dari Akhir digunakan perintah DownTo.

While...Do

Bila banyaknya perulangan suatu pernyataan belum bisa diketahui, maka perintah For ... Do tidak bisa digunakan

Untuk itu, perintah yang digunakan salah satunya adalah While . . . Do.

Syntax 1 :

While Do
Statement;

Syntax 2 :
While Do
Begin
Statement1;
Statement2;
.........;
End;


Syarat Logika adalah suatu relasi yang selama relasi itu bernilai TRUE maka statement / block statement akan terus-menerus dikerjakan.
Statement / block statement akan berhenti dikerjakan jika syarat logika tidak lagi benar.

Repeat...Until
Perintah Repeat . . . Until mirip dengan perintah While . . . Do, yaitu untuk melakukan perulangan jika banyak perulangan yang akan dikerjakan belum diketahui.

Syntax :

Repeat
Statement1;
Statement2;
.........;
Until 
 

Perbedaan Repeat...Until dengan While...Do

Pada Repeat . . . Until statement akan dikerjakan secara berulang-ulang sampai kondisi logika bernilai TRUE. Dengan demikian selama kondisi bernilai FALSE, maka perulangan akan terus dilakukan.

Pada Repeat . . . Until, pemeriksaan kondisi untuk menentukan benyaknya perulangan setelah statement dikerjakan. Dengan demikian statement pada perulangan ini akan selalu dikerjakan minimal satu kali.

Algoritma dan Struktur Data

Daftar Pustaka

• Antony Pranata, Algoritma dan Pemrograman, Graha Ilmu, Yogyakarta.
• Jogiyanto HM, Turbo Pascal, Andi Offset, Yogyakarta.
• Rinaldi Munir, Algoritma dan Pemrograman dengan Pascal dan C, Informatika, Bandung.

Komputer sebagai alat bantu untuk menyelesaikan masalah.
Dalam menyelesaian masalah dengan komputer perlu merumuskan langkah-langkah penyelesaian masalah dengan sekumpulan instruksi.
Sekumpulan instruksi yang dimengerti oleh komputer disebut dengan program.

Bahasa Pemrograman

Program harus ditulis dalam suatu bahasa yang dimengerti oleh komputer yaitu dalam Bahasa pemrograman , dibedakan menjadi :

a. Bahasa tingkat rendah (low level language) :
Bahasa yang berorientasi ke mesin.
b. Bahasa tingkat tinggi (high level language) :
bahasa yang berorientasi ke manusia (seperti bahasa inggris)

contoh : Bahasa Pascal, bahasa C dll.
Program yang ditulis dalam bahasa pemrograman akan diterjemahkan kedalam bahasa mesin dengan menggunakan penterjemah.
Penterjemah :
Interpreter : menterjemahkan baris per baris instruksi. Contoh bahasa Basic.
Compiler : menterjamahkan setelah seluruh instruksi ditulis. Contoh bahasa Pascal, C, Ada ,C++

Algoritma

Definisi Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis.
Berasal dari nama penulis buku arab yang terkenal yaitu Abu Ja’far Muhammad Ibnu Musa Al-huwarizmi.
Al-Khuwarizmi menulis buku yang berjudul Kitab Al Jabar Wal-Muqabala yang artinya “Buku pemugaran dan pengurangan” (The book of restoration and reduction).

Notasi Algoritma

Notasi algoritma bukan merupakan notasi bahasa pemrograman. Namun notasi ini dapat diterjemahkan ke dalam berbagai bahasa pemrograman. Penotasian algoritma harus dilakukan sedemikian hingga mudah dibaca dan dimengerti. Meskipun notasi algoritma tidak berbentuk baku seperti notasi bahasa pemrograman, namun konsistensi terhadap notasi perlu diperhatikan untuk menghindari terjadinya kekeliruan.
Bentuk notasi algoritma :

• Uraian deskriptif
• Diagram-alir (flowchart)
• Pseudocode

Uraian Deskriptif

Dengan notasi bergaya uraian, deskripsi setiap langkah dijelaskan dengan bahasa yang gamblang. Proses diawali dengan kata kerja seperti ‘baca’ atau ‘membaca’, ’hitung’ atau ‘menghitung’, ‘bagi’ atau ‘membagi’, ‘ganti’ atau ‘mengganti’, dan sebagainya, sedangkan pernyataan kondisional dinyatakan dengan ‘jika ... maka ...’.
Contoh : menyelesaikan permasalahan menghitung luas dan keliling suatu lingkaran
Algoritma Hitung_Luas_dan_Keliling_Lingkaran
DESKRIPSI:

1. Masukkan jari-jari lingkaran (r)
2. Hitung luas lingkaran dengan rumus L = phi * r * r
3. Hitung keliling lingkaran dengan rumus K = 2 * phi * r
4. Tampilkan luas lingkaran
5. Tampilkan keliling lingkaran

Diagram Alir (Flowchart)

Flowchart adalah gambaran dalam bentuk diagram alir dari algoritma-algoritma dalam suatu program, yang menyatakan arah alur program tersebut.
Contoh: menghitung luas dan keliling lingkaran yang algoritmanya dinotasikan dalam bentuk diagram alir.

Pseudocode

Notasi yang menyerupai notasi bahasa pemrograman tingkat tinggi, khususnya Bahasa Pascal dan C.
Umumnya mempunyai notasi yang hampir mirip untuk beberapa instruksi dalam beberapa bahasa pemrograman, seperti notasi if-then-else, while-do, repeat-until, read, write, dan sebagainya.
Contoh menyelesaikan permasalahan menghitung luas dan keliling suatu lingkaran dengan menggunakan bentuk pseudocode :
Algoritma Hitung_Luas_dan_Keliling_Lingkaran
{ Dimasukkan nilai jari-jari lingkaran (r). Carilah dan cetak luas dan keliling lingkaran tersebut dengan menggunakan rumus L=phi*r*r dan K=2*phi*r }
DEKLARASI:
const phi = 3.14
r, L, K = real
DESKRIPSI:
read(r)
L <--  phi * r * r
K <--  2 * phi * r
write(‘Luas lingkaran = ‘,L)
write(‘Keliling lingkaran = ‘,K)

Ciri Penting Algoritma

• Algoritma harus berhenti setelah mengerjakan sejumlah langkah terbatas.
• Setiap langkah harus didefinisikan dengan tepat dan tidak berarti-dua (Ambiguitas).
• Algoritma memiliki nol atau lebih masukkan.
• Algoritma memiliki nol atau lebih keluaran.
• Algoritma harus efektif (setiap langkah harus sederhana sehingga dapat dikerjakan dalam waktu yang masuk akal).