Senin, 06 Juni 2011

MANIPULASI DATA

Referensi :
  1. Seri Diktat Kuliah : Pengantar Algoritma Dan Pemrograman  Teknik Diagram AluDan Bahasa BASIC Dasar, Penerbit GUNADARMA, Jakarta, 1991.
  2. Yay Singleman, Business Programming Logic 2nd –ed, Prentice Hall Engelwood Cliffs, New Jersey,1982.
  3. Gottfried, Programming in BASIC , Mc Graw Hill, New York, 1981
  4. Insap Santosa, Pemrograman Terapan Menggunakan QUICK BASIC, Andi Offset, Yogyakarta,1997.
  5. Jogiyanto, H.M.,Teori dan Aplikasi Program Komputer Bahasa BASIC, edisi 5, Andi Offset, Yogyakarta.
  6. Rijanto Tosin, Quik BASIC, Dinastindo.

Text Box: MANIPULASI  DATA


v FUNGSI-FUNGSI STRING (MANIPULASI STRING)

  1. Fungsi LEN
Digunakan untuk menghitung panjang dari suatu ungkapan string

Contoh 1  :     
INPUT “NAMA ANDA ?“;NAMA$
PRINT “PANJANG NAMA ANDA ADALAH”;LEN (NAMA$);”KARAKTER”

                Output :
NAMA ANDA ?  ARIEF KURNIAWAN
PANJANG NAMA ANDA ADALAH 15 KARAKTER
Ok

  1. Fungsi LEFT$
Digunakan untuk mengambil sejumlah karakter dari mulai posisi paling kiri

Contoh 2:
Y$=”ABCDEFGHIJKLMNOPQRSTUVWXYZ”
A$=LEFT$(Y$,6)
PRINT “A$=”;A$
END

Output :
A$=ABCDEF

  1. Fungsi RIGHT$
Digunakan untuk mengambil sejumlah karakter dari mulai posisi paling kanan

Contoh 3 :
Y$=”ABCDEFGHIJKLMNOPQRSTUVWXYZ”
C$= RIGHT$(Y$,15)
PRINT “C$=”;C$
END

Output :
C$= LMNOPQRSTUVWXYZ



  1. Fungsi MID$
Digunakan untuk mengambil sejumlah karakter ditengah mulai posisi yang tertentu.

Contoh 4 :
Y$=”ABCDEFGHIJKLMNOPQRSTUVWXYZ”
E$= MID$(Y$,7,6)
PRINT “E$=”;E$
END

Output :
E$= GHIJKL

  1. Fungsi VALUE(VAL)
Digunakan untuk mengkonversi data string menjadi data numerik

Contoh 5 :
 A$=”300”
 B$=”100”
 A=VAL(A$)
 B=VAL(B$)
 PRINT A$,B$,A$+B$
 PRINT A,B,A+B

Output :
300      100      300100
300      100      400

  1. Fungsi STR$
Digunakan untuk mengkonversi data numerik menjadi data string.

Contoh  6 :
A=300
B=100
A$=STR$(A)
B$=STR$(B)
PRINT A$,B$,A$+B$,STR$(A+B)
PRINT A,B,A+B

Output :
300      100      300100            400
300      100      400



  1. Fungsi ASC
Digunakan untuk mencari kode ASCII dari karakter pertama suatu data string. Meskipun data string tersebut terdiri lebih dari 1 karakter, tetapi yang dilihat hanya pada karakater pertamanya.

Contoh  7 :
PRINT ASC(“A”)
PRINT ASC(“AGUSTUS”)

Output :
65
65
Ok

  1. Fungsi CHR$
Digunakan untuk mengkonversi dari kode ASCII ke karakter.

Contoh 8 :
A=68
B=35
PRINT A;”Adalah Kode ASCII Untuk Karakter”;CHR$(A)
PRINT B;”Adalah Kode ASCII Untuk Karakter”;CHR$(B)

Output :
68 Adalah Kode ASCII Untuk Karakter D
35 Adalah Kode ASCII Untuk Karakter #


Ø FUNGSI ARITMATIKA

  1. Fungsi SIN
Digunakan untuk mencari harga sinus suatu sudut yang dinyatakan dalam radian.

Contoh 9 :
PRINT SIN(1.5)
PRINT SIN(30)
PRINT SIN(45)

Output
.9974951
-.9880317
.8509035

  1. Fungsi COS
Digunakan untuk mencari harga cosinus suatu sudut yang dinyatakan dalam radian.

Contoh 10 :
D= 3.14159/180
PRINT COS(15*D)
PRINT COS(30*D)
PRINT COS(45*D)

Output :
.965926
.866026
.707107
 
  1. Fungsi TAN
Digunakan untuk mencari harga tangen suatu sudut yang dinyatakan dalam radian. Bila sudut ingin dinyatakan dalam bentuk derajat,kalikan sudutnya dengan 0.015

Contoh 11 :
PRINT TAN(1.5)
PRINT TAN(30*.015)
PRINT TAN(30)
PRINT TAN(45)

Output :
14.10142
.483055
-6.405332
1.619775

  1. Fungsi ABS (Absolute)
Digunakan untuk mengambil harga mutlak dari suatu ekspresi numeris.

Contoh 12 :
PRINT ABS(-28.8)
PRINT ABS(-5*3)
PRINT ABS(3*4.2*2)

Output
28.8
15
25.2

  1. Fungsi EXP
Digunakan untuk untuk menghitung  ex   . Dengan bilang natural e = 2.71828

            Contoh 13 :
            PRINT EXP(0)
            PRINT EXP(1)
PRINT EXP((0.25)

Output :
1
2.71828
1.284025

  1. Fungsi SGN
Untuk mengetahui sign dari suatu bilangan.
Jika SGN(X) = 0   Jika X = 0.
        SGN(X) = -1  Jika X = bilangan negatif
        SGN(X) = 1   Jika X = bilangan positif

Contoh 14 :
PRINT(-0.25)
PRINT(0)
PRINT(1.75)

Output :
-1
0
1

  1. Fungsi LOG
Digunakan untuk menghitung nilai logaritmadari suatu bilangan.

Contoh  15 :
PRINT LOG(100)
PRINT LOG(5)

Output :
2
.69897

  1. Fungsi SQR
Digunakan untuk mengambil harga akar kuadrat dari suatu bilangan.



Contoh 16 :
PRINT SQR(16)
PRINT SQR(32*2)
A=SQR(81)
PRINT A

Output :
4
8
9

  1. Fungsi Integer (INT)
Digunakan untuk membulatkan suatu pecahan ke bilangan bulat terkecil.

Contoh 17 :
PRINT INT (- 3.5)
PRINT INT (5.4)
PRINT INT (7.8)
PRINT INT(-2.25)

Output :
-4
 5
 7
-3
           
  1. Fungsi FIX
Digunakan untuk membuang nilai pecahan.

Contoh 18 :
PRINT FIX(-3.5)
PRINT FIX (5.4)
PRINT FIX (7.8)
PRINT FIX(-2.25)

Output :
-3
 5
 7
-2

  1. Fungsi CINT
Digunakan untuk membualtkan suatu pecahan ke bilangan bulat terbesar


Contoh 19 :
PRINT CINT(3.5)
PRINT CINT(5.4)
PRINT CINT(7.8)

Output :
4
5
8

  1. Fungsi Modulo (MOD)
Digunakan untuk menghitung sisa pembagian dari dua buah operand

Contoh 20 :
 X=15 : Y=4
 SISA=X MOD Y
 PRINT“SISA PEMBAGIAN DARI”;X;”DIBAGI”;Y;”=”;SISA
 END

Output :
SISA PEMBAGIAN DARI 15 DIBAGI 4 = 3

  1. Fungsi Random (RND)
Digunakan untuk memberikan nilai acak. Setiap kali fungsi ini dilaksanakan harga yang diberikan akan berada diantara 0 (nol) dan 1 (satu).

Contoh  21 :
FOR A=1 TO 3
B=RND(A)
PRINT”NILAI RANDOM DARI”;A;”ADALAH”;B
NEXT : END

Output :
NILAI RANDOM DARI 1 ADALAH .1213501
NILAI RANDOM DARI 2 ADALAH .651861
NILAI RANDOM DARI 3 ADALAH .8688611



LATIHAN

  1. A$ =”MATAHARI PAGI”
B$ = “ YANG INDAH”
C$ = “BERSINAR”

A.       Apakah hasil dari PRINT LEFT$(A$,8)+SPACE$(1)+C$
B.   Apakah hasil dari PRINT MID$(A$,5,4)+LEFT$(5)
C.   Apakah hasil dari PRINT LEN(B$) + LEN (C$)
D.      Apakah hasil dari PRINT MID$( A$+C$, LEN(C$)+1,4) +LEFT(B$,5)

JAWAB :

A.    MATAHARI BERSINAR
B.     HARIBERSIN
C.     18
D.    PAGIINDAH

  1. Apakah output program di bawah ini !

PRINT  “X”,”Y”
FOR I = 1 to 4
            READ X
            Y = -ABS(10*LOG(X)) + 25
            IF Y < 0 THEN Y$ =”-“
            IF Y > 0 THEN Y$ =”+”
            PRINT X, Y$
NEXT I
DATA 1,5,25,50
END





Jawab :
X         Y
1          +
5          +
25        -
50        -


TUGAS !!!

1. Apakah output program di bawah ini !
           
FOR I = 1 TO 26
            I$                     = STR$(I)
            PANJANG     = LEN(I$)
            ANGKA$       = MID$(I$,2,PANJANG)
            BENTUK$      = SPACE$(3-PANJANG)+”X”+ANGKA$+”=”+ANGKA$
            PRINT BENTUK$,
            IF I/3 = INT (I/3) THEN PRINT
NEXT I
END

2.  Apakah output program di bawah ini !

‘**PROGRAM HITUNG FUNGSI COS(X) DERET TAYLOR**
SUDUT = 60
X = SUDUT / 57.2958
T = 1: C = 1
S1 = X^2
     60   F = F + 2
T = -T * S1 / ((F – 1) * F)
C = C + T
IF ABS(T) < 0.001 THEN 140
GOTO 60
   140   PRINT “COS 60 DERAJAD DERET TAYLOR =”;C
            PRINT “COS 60 DERAJAD DERET TAYLOR =”;COS(X)
            END

Tidak ada komentar:

Posting Komentar