SEMESTER 1B
START
Sub rutin
=>bagian anak program yang dapat dipanggil berulang
tujuan=>cepat dan singkat
=>mempercepat penangan masalah
=>mempersingkat pengetikan kode program
Syntax/perintah
A.Prosedur=>program yang tidak mengembalikan nilain balik
B.Function=>program yang mengembalikan nilai balik
-Prosedur
=>tanpa parameter
ex :
Sub NamaProsedur
Statement
End Sub
=>dengan parameter
ex :
Sub NamaProsedur(var)
Statement
End Sub
Contoh Hitunglah Luas segitiga dg rumus L=1/2.A.T
penyelesaian.
-tekan F2 kemudian enter
-ketik
Sub Segitiga
?1/2.6.10
End Sub
-Tekan F2
-Pilih Untitled Kedmudian Enter
U/ memanggil
-ketik
Call segitiga *call nama prosedur nya
Dengan Parameter
Sub Ayam (A,T)
Luas=1/2.A.T
?Luas
End Sub
Panggil
Cls
Call Ayam(10,50)
Call Ayam(5,10)
Call Ayam(10,11)
Call Ayam(5,7)
?"Luas Segitiga = ",Luas
Copy=>ctrl+insert
paste=>shift+insert
B.Function
ex tanpa parameter
F2=>Enter=>ketik:
Function NamaFunction
Statement
End Function
F2=>Pilih Untitled=>Enter=>untuk pemanggilan ketik
?NamaFunction
Dengan Parameter
F2=>Enter
Function NamaFunction(var)
Statement
End Function
F2=>Pilih Untitled=>Enter=>Untuk Pemanggilan Ketik
?namaFunction(anka)
Contoh =>Hitunglah Volume balok dg Rumus V=P*L*T
Dg Parameter
F2=>Enter
Function VBalok(P,L,T)
V=P*L*T
?"Volume balok = ",V
End Function
F2=>Pilih Untitled=>Enter=>Untuk Pemanggilan Ketik
?VBalok(1,2,3)
?VBalok(10,15,20)
?VBalok(12,2,15)
*untuk nilai terserah kita yaaaa...
END
==========================================
START
ALGO-8
Fungsi Standart
=>fungsi/rumusan yang sudah disediakan oleh aplikasinya sendiri seperti funcsi standart pd qbasic,
Fungsi String
=>Fungsi untuk mengelolah data string
String
=>data yang terdiri dari angka,huruf,symbol,spasi,dan tanda baca yang diapit oleh tanda petik
1.Left$(String,n)=>mengambil karakter disebelah kiri sebanyak n
2.Right$(String,n)=>mengambil Karakter disebelah kanan sebanyak n
3.Mid$(String,m,n)=>mengambil Karakter dr posisi tertentu dimana m adalah awal pengambilan suatu karakter dan n adalah jumlah karakter yang diambil
4.Rtrim$(String)=>menghapus Spasi Disebelah kanan String
5.Ltrim$(String)=>menghapus spasi disebelah kiri String
Fungsi tanggal
1.Date$=>U/ menampilkan tanggal
2.Time$=>U/ menampilkan Waktu
Fungsi MTK
1.ABS(Angka)=>menampilkan Nilai Mutlak dengan mengubah nilai negatif menjadi positip
A.SIN(n)=>U/ menampilkan nilai sin dari n
B.COS(n)=>U/ menampilkan nilai cos dari n
C.TAN(n)=>U/menampilkan nilai tan dr n
D.MOD=>menampilkan nilai sisa bagi
E.VAL(String)=>Merubah String menjadi Numeric
G. + =>menghubungkan string
H. Ucase =>mengubah non kapital menjdi kapital
I. Lcase=>mengubah Kapital menjadi non kapital
J. String$(n,"String")=>menduplikat string sebanyak n
ex:
CLS
C$="Algoritma"
D$="Selamat"
?Ucase$(C$)
?Lcase$(D$)
?String$(7,"S")
Fungsi tanggal
1.Date$=>menampilkan tanggal
2.Time$=>menampilkan waktu
?"Tanggal " ,Date$
?"Waktu ",Time$
A=56,32
B=-21
?ABS(A)
?ABS(B)
?10 mod 2
?10 mod 3
x=56
y=70
?x+y
?str$(x)+str$(y)
R$="60"
S$="7"
?R$+S$
?Val(R$)+Val(S$)
CLS
input"No Induk = ",nip$
Stambuk$="20"+left$(nip$,2)
jur$=mid$(nip$,4,2)
no$=right$(nip$,3)
?"Stambuk = ",stambuk$
?"Jurusan = ",jur$
?"No Urut = ",no$
CLS
END
============================================
START SANCE
END SANCE
============================================
START POST TES
Array
=>sekumpulan data dg tipe data sama yang dibedakan dengan urutan atw index
Perbedaan Array dan Variable
=>Array dapat menampung lebih dari satu data
=>Variable tidak dapat menampung lebih dari satu Variable
============================================
Matrik
==================
sub bintang
?string$(70,"*")
end sub
====================
cls
dim r(3,2)
dim s(3,2)
for a= 1 to 3
for b= 1 to 2
?"Matrik A[";a;",";b;"]";
input"=",r(a,b)
next b
next a
for a= 1 to 3
for b= 1 to 2
?"Matrik B[";a;",";b;"]";
input"=",s(a,b)
next b
next a
?"Matrik "
call bintang
for a= 1 to 3
for b 1 to 2
locate a+3,a*2:?r(a,b)
next b
next a
locate 5,10:?"+"
for a= 1 to 3
for b 1 to 2
locate a+3,(a*2)+10:?s(a,b)
next b
next a
locate 5,20:?"="
for a= 1 to 3
for b 1 to 2
locate a+3,(a*2)+20:?r(a,b)+s(a,b)
next b
next a
finish program
=================
Ascending
cls
for a=1 to 5
?"Data ke -";a;
input"=",x(a)
next
?"Data belum terurut"
for b=1 to 5
?x(b);
next
for c= 1 to 5
for d= c+1 to 5
if x(c)>x(d) then
tuk=x(c)
x(c)=x(d)
x(d)=tuk
end if
next d
next c
?"Data sudah terurut"
for e= 1 to 5
?x(e);
next
================================
======================================
LATIHAN
START
Sub rutin
=>bagian anak program yang dapat dipanggil berulang
tujuan=>cepat dan singkat
=>mempercepat penangan masalah
=>mempersingkat pengetikan kode program
Syntax/perintah
A.Prosedur=>program yang tidak mengembalikan nilain balik
B.Function=>program yang mengembalikan nilai balik
-Prosedur
=>tanpa parameter
ex :
Sub NamaProsedur
Statement
End Sub
=>dengan parameter
ex :
Sub NamaProsedur(var)
Statement
End Sub
Contoh Hitunglah Luas segitiga dg rumus L=1/2.A.T
penyelesaian.
-tekan F2 kemudian enter
-ketik
Sub Segitiga
?1/2.6.10
End Sub
-Tekan F2
-Pilih Untitled Kedmudian Enter
U/ memanggil
-ketik
Call segitiga *call nama prosedur nya
Dengan Parameter
Sub Ayam (A,T)
Luas=1/2.A.T
?Luas
End Sub
Panggil
Cls
Call Ayam(10,50)
Call Ayam(5,10)
Call Ayam(10,11)
Call Ayam(5,7)
?"Luas Segitiga = ",Luas
Copy=>ctrl+insert
paste=>shift+insert
B.Function
ex tanpa parameter
F2=>Enter=>ketik:
Function NamaFunction
Statement
End Function
F2=>Pilih Untitled=>Enter=>untuk pemanggilan ketik
?NamaFunction
Dengan Parameter
F2=>Enter
Function NamaFunction(var)
Statement
End Function
F2=>Pilih Untitled=>Enter=>Untuk Pemanggilan Ketik
?namaFunction(anka)
Contoh =>Hitunglah Volume balok dg Rumus V=P*L*T
Dg Parameter
F2=>Enter
Function VBalok(P,L,T)
V=P*L*T
?"Volume balok = ",V
End Function
F2=>Pilih Untitled=>Enter=>Untuk Pemanggilan Ketik
?VBalok(1,2,3)
?VBalok(10,15,20)
?VBalok(12,2,15)
*untuk nilai terserah kita yaaaa...
END
==========================================
START
ALGO-8
Fungsi Standart
=>fungsi/rumusan yang sudah disediakan oleh aplikasinya sendiri seperti funcsi standart pd qbasic,
Fungsi String
=>Fungsi untuk mengelolah data string
String
=>data yang terdiri dari angka,huruf,symbol,spasi,dan tanda baca yang diapit oleh tanda petik
1.Left$(String,n)=>mengambil karakter disebelah kiri sebanyak n
2.Right$(String,n)=>mengambil Karakter disebelah kanan sebanyak n
3.Mid$(String,m,n)=>mengambil Karakter dr posisi tertentu dimana m adalah awal pengambilan suatu karakter dan n adalah jumlah karakter yang diambil
4.Rtrim$(String)=>menghapus Spasi Disebelah kanan String
5.Ltrim$(String)=>menghapus spasi disebelah kiri String
Fungsi tanggal
1.Date$=>U/ menampilkan tanggal
2.Time$=>U/ menampilkan Waktu
Fungsi MTK
1.ABS(Angka)=>menampilkan Nilai Mutlak dengan mengubah nilai negatif menjadi positip
A.SIN(n)=>U/ menampilkan nilai sin dari n
B.COS(n)=>U/ menampilkan nilai cos dari n
C.TAN(n)=>U/menampilkan nilai tan dr n
D.MOD=>menampilkan nilai sisa bagi
E.VAL(String)=>Merubah String menjadi Numeric
G. + =>menghubungkan string
H. Ucase =>mengubah non kapital menjdi kapital
I. Lcase=>mengubah Kapital menjadi non kapital
J. String$(n,"String")=>menduplikat string sebanyak n
ex:
CLS
C$="Algoritma"
D$="Selamat"
?Ucase$(C$)
?Lcase$(D$)
?String$(7,"S")
Fungsi tanggal
1.Date$=>menampilkan tanggal
2.Time$=>menampilkan waktu
?"Tanggal " ,Date$
?"Waktu ",Time$
A=56,32
B=-21
?ABS(A)
?ABS(B)
?10 mod 2
?10 mod 3
x=56
y=70
?x+y
?str$(x)+str$(y)
R$="60"
S$="7"
?R$+S$
?Val(R$)+Val(S$)
CLS
input"No Induk = ",nip$
Stambuk$="20"+left$(nip$,2)
jur$=mid$(nip$,4,2)
no$=right$(nip$,3)
?"Stambuk = ",stambuk$
?"Jurusan = ",jur$
?"No Urut = ",no$
CLS
END
============================================
START SANCE
METODE PENCARIAN
A.Metode pencarian
Metode pencarian itu ada dua
1.linear search
->adalah
pencarian data dengan membandingkan data mulai dari awal data dg data yang
dicari
2.binary search
->adalah
pencarian data dg sarat data harus sudah terurut
Jadi kesimpulannya
*linearsearch ->sangan bagus digunakan untuk mencari data
sedikit dan datanya teracak
*binary search ->sangat bagus digunakan untuk mencari
data banyak dan datanya terurut
END SANCE
============================================
START POST TES
Array
=>sekumpulan data dg tipe data sama yang dibedakan dengan urutan atw index
Perbedaan Array dan Variable
=>Array dapat menampung lebih dari satu data
=>Variable tidak dapat menampung lebih dari satu Variable
============================================
Matrik
==================
sub bintang
?string$(70,"*")
end sub
====================
cls
dim r(3,2)
dim s(3,2)
for a= 1 to 3
for b= 1 to 2
?"Matrik A[";a;",";b;"]";
input"=",r(a,b)
next b
next a
for a= 1 to 3
for b= 1 to 2
?"Matrik B[";a;",";b;"]";
input"=",s(a,b)
next b
next a
?"Matrik "
call bintang
for a= 1 to 3
for b 1 to 2
locate a+3,a*2:?r(a,b)
next b
next a
locate 5,10:?"+"
for a= 1 to 3
for b 1 to 2
locate a+3,(a*2)+10:?s(a,b)
next b
next a
locate 5,20:?"="
for a= 1 to 3
for b 1 to 2
locate a+3,(a*2)+20:?r(a,b)+s(a,b)
next b
next a
finish program
=================
Ascending
cls
for a=1 to 5
?"Data ke -";a;
input"=",x(a)
next
?"Data belum terurut"
for b=1 to 5
?x(b);
next
for c= 1 to 5
for d= c+1 to 5
if x(c)>x(d) then
tuk=x(c)
x(c)=x(d)
x(d)=tuk
end if
next d
next c
?"Data sudah terurut"
for e= 1 to 5
?x(e);
next
================================
======================================
LATIHAN
Komentar
Posting Komentar