algoritma

Definisi Algoritma

“Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun

secara sistematis dan logis”.

Kata Logis merupakan kata kunci dalam Algoritma. Langkah-langkah dalam Algoritma

harus logis dan harus dapat ditentukan bernilai salah atau benar.

Aturan Penulisan Algoritma

Algoritma berisi langkah-langkah penyelesaian masalah. Langkah-langkah tersebut dapat

ditulis dalam notasi apapun, asalkan mudah dibaca dan dimengerti, karena memang tidak ada notasi baku dalam penulisan algoritma. Tiap orang dapat membuat aturan penulisan dan notasi algoritma sendiri. Agar notasi algoritma mudah ditranslasi ke dalam notasi bahasa pemrograman, maka sebaiknya notasi algoritma tersebut berkorespnden dengan notasi bahasa pemrograman secara umum.

Setiap Algoritma akan selalu terdiri dari tiga bagian yaitu :

• Judul (Header)

• Kamus

• Algoritma

Pada setiap bagian tersebut apabila akan dituliskan komentar mengenai setiap bagian tersebut dituliskan diantara tanda kurung kurawa contoh { Komentar }. Notasi algoritmis

yang dituliskan diantara tanda ini tidak akan dieksekusi oleh program

FLOWCHART/DIAGRAM ALIR PROGRAM

            Untuk menjelaskan algoritma yang telah kita buat agar lebih jelas dapat pula kita gunakan/gambarkan diagram alir program yang biasa dikenal dengan flowchart, sehingga memperlihatkan aliran kegiatan yamg harus dilaksanakan dengan menggunakan simbol-simbol.

SIMBOL-SIMBOL DIAGRAM ALIR PROGRAM/FLOWCHART

1.   Simbol start dan finish = elips

2.   Simbol masukan dan keluaran = jajar genjang

3    Simbol proses = persegi empat

4. Simbol penghubung pada halaman yang sama = lingkaran

5. Simbol garis arah

6.  Simbol Percabangan = belah ketupat

7. Simbol Preparation/ketetapan = segi enam

ilmu telekomunikasi

BAB 1 : KONSEP DASAR KOMUNIKASI DATA

·      Komunikasi data : pengiriman data menggunakan transmisi elektronik dari

terminal/computer satu ke terminal lain/computer lain.

·      Contoh terminal data (yang umum) : printer, monitor PC, keyboard, plotter, scanner,

dll.

·      Elemen-2 Komunikasi Data :

1.         Sumber Data

2.         Media Transmisi

3.         Penerima Data

·      Sumber Data : elemen yang bertugas mengirimkan informasi / data, contoh ; telepon,

fax, terminal dll

·      Sumber Data dilengkapi oleh Transmitter

·      Output Transmitter pada Sumber Data : pulsa listrik, gelombang elektromagnetik, pulsa

digital

Contoh Transmitter : modem

·      Media Transmisi : media yang digunakan untuk mengirimkan data dari sumber data

ke penerima data

·      Media Transmisi terdiri dari 2 katagori / jenis : media transmisi fisik dan media

transmisi non fisik.

·      Media Transmisi Fisik, contoh : kawat tembaga, kabel coaxial, kabel serat optic.

·      Media Transmisi Non Fisik, contoh : gelombang elektromagnetik

·      Penerima Data : elemen yang bertugas menerima informasi / data, contoh ; telepon,

fax, terminal dll.

·      Penerima Data dilengkapi oleh Receiver

·   Perangkat Terminal data (Data Terminal Equipment) : Perangkat yang berfungsi

mengirim serta menerima data / informasi dari tempat lain.

·   Implementasi Komunikasi Data saat ini :

o Reservasi Tiket secara online

o Mesin ATM pada perbankan

o Bank dengan sistem online

o Internet & E-mail

o Teleconference (audio/video)

o LAN / WAN / MAN

o GSM / CDMA 

o GPS (Global Positioning System)

BUBBLE SORT

Coding :

Dim R() As Integer
Dim N, P As Integer
Dim T As String

Sub DATA()
For I = 1 To N
    R(I) = Rnd * 899 + 100
Next I
End Sub

Sub VIEW()
T = ""
For I = 1 To N
T = T + Trim(Str(R(I))) + " "
Next I
End Sub
Sub BUBBLE01()
    For x = 1 To N - 1
    For Y = x + 1 To N
        If R(x) < R(Y) Then
            C = R(x)
            R(x) = R(Y)
            R(Y) = C
        End If
    Next Y
    Next x
End Sub
Sub BUBBLE02()
For x = 1 To N
For Y = 1 To N - x
If R(Y) > R(Y + 1) Then
    C = R(Y)
    R(Y) = R(Y + 1)
    R(Y + 1) = C
End If
Next Y
Next x
End Sub
Sub BUBBLE03()
x = 0
Do
F = 0
x = x + 1
For Y = 1 To N - x
    If R(Y) < R(Y + 1) Then
                C = R(Y)
                R(Y) = R(Y + 1)
                R(Y + 1) = C
                F = 1
                End If
Next Y
Loop Until F = 0
End Sub
Sub SELECTSORT()
For x = 1 To N - 1
    S = x
    For Y = x + 1 To N
        If R(S) > R(Y) Then S = Y
    Next Y
    If S <> x Then
        C = R(S)
        R(S) = R(x)
        R(x) = C
    End If
Next x
End Sub
Sub shellsort()
 G = N \ 2
While G > 0
 Do
 F = 0
 For x = 1 To N - G
 If R(x) > R(x + G) Then
  C = R(x)
  R(x) = R(x + G)
  R(x + G) = C
  F = 1
 End If
 Next
 Loop Until F = 0
 G = G \ 2
Wend
End Sub

Private Sub Command1_Click()
Select Case P
Case 1: BUBBLE01
Case 2: BUBBLE02
Case 3: BUBBLE03
Case 4: SELECTSORT
Case 5: shellsort
End Select
VIEW
Text2 = T
End Sub


Private Sub Option1_Click()
P = 4
End Sub

Private Sub Option2_Click()
P = 3
End Sub

Private Sub Option3_Click()
P = 2
End Sub

Private Sub Option4_Click()
P = 1
End Sub

Private Sub Option5_Click()
P = 5
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    N = Val(Text1)
    ReDim R(N)
    DATA
    VIEW
    Text2 = T
End If
End Sub