Pelajaran Algoritma: Table perkalioan 1-10

perintah pengulangan

dasar teori
loop di gunakan untuk mengulangi suatu intruksi
sesuai dengan intruksi yang di tetapkan.
loop memiliki kondisi awl sbgai base line untuk di krjakan dan nilai /kondisi akhir sebagai tujuan

sasaran kompetensi:
-mahasiswa mampu menggunakan statement loop dlm program
-mahasiswa mampu menguasai kapan statement loop diperlukan(dalam keadaan seperti apa)

contoh:

a.for...next
mencetak angka 1-10
cls
i=0
for i=1 to 10
print i

SIMPEL DATA BASE

di 04.35 · 0 komentar

input data dengan simple database turbo basic 30

input data dengan simple database turbo basic
30

OPEN "R",#1,"MHS.DAT",59
FIELD #1,9 AS NIM$,20 AS NAMA$,30 AS ALAMAT$
CLS
LOCATE 4,25:PRINT "DATA MAHASISWA "
LOCATE 5,25:PRINT "_______________"
LOCATE 6,25:PRINT "NIM : "
LOCATE 7,25:PRINT "NAMA : "
LOCATE 8,25:PRINT "ALAMAT : "
LOCATE 9,25:PRINT "_______________"
LOCATE 6,40:INPUT,INIM$
IF INIM$ <> " " THEN
JDATA =LOF(1)/59
FOR X=1 TO JDATA
GET #1,X
IF NIM$=INIM$ THEN EXIT FOR
NEXT X
END IF
IF INIM$=NIM$ THEN
LOCATE 7,40:PRINT NAMA$
LOCATE 8,40:PRINT ALAMAT$
LOCATE 9,40:PRINT "DATA ADA"
ELSE
LOCATE 7,40:INPUT,INAMA$
LOCATE 8,40:INPUT,IALAMAT$
LSET NIM$=INIM$
LSET NAMA$=INAMA$
LSET ALAMAT$=IALAMAT$
JDATA=LOF(1)/59
PUT #1,JDATA+1
LOCATE 12,35:PRINT "DATA SUDAH DISIMPAN"
END IF

BILANGAN PRIMA

di 04.34 · 0 komentar

BILANGAN PRIMA

dim temp(100)
dim tmp(100)
dim ang(100)
cls
'a,b,c,d,e,x,temp
temp(1)=2
e=2
a=100
for b= 3 to a
for c=2 to b-1
if b mod c <> 0 and b mod 1=0 then
temp(e)=b
d=b
else
if b<>d then
e=e+1
elseif b=d then
temp(e)=0
e=e-1
end if
goto lompat
end if
next c
lompat:
next b
'for x=1 to e
' print "Hasil : " +str$(temp(x))
'next x

'cls
f=1
g=1
locate 2,25:print " FPB "
locate 3,25:print "================"
locate 4,25:print "Angka ="
locate 5,25:print "================"
locate 4,33:input,angka
locate 8,28:print str$(angka)

do while angka <> temp(f)
if angka mod temp(f)=0 then
tmp(g)=temp(f)
angka=angka \ temp(f)
ang(g)=angka
g=g+1
elseif angka mod temp(f)<>0 then
f=f+1
end if
loop

if angka=temp(f) then
tmp(g)=angka
ang(g)=angka
end if

for i=1 to g-1
locate 7+i*2,28+i*2:print "\"+str$(ang(i))
locate 7+i*2,25+i*2:print str$(tmp(i))+"/"
next i =temp(f) then
tmp(g)=angka
ang(g)=angka
end if

for i=1 to g-1
locate 7+i*2,28+i*2:print "\"+str$(ang(i))
locate 7+i*2,25+i*2:print str$(tmp(i))+"/"
next i

BILANGAN GENAP DAN GANJIL

di 04.33 · 0 komentar

PROGRAM MENENTUKAN BILANGAN GENAP/GANJIL

cls
print" =================================
print" (((program menentukan bilangan)))"
print" dari angka 1 -100"
print" =================================
print
print
input"masukan angka anda: ",a
for i=1 to 99 step 2
for g=2 to 100 step 2
if a=i then
locate 10,20:print"bilangan ganjil"
elseif a=g then
locate 10,20:print"bilangan genap"
elseif a>=101 then
locate 10,20:print"maaf ya..angka anda tak bisa di proses"
end if
next g
next i

IF BERSARANG

di 04.31 · 0 komentar

IF BERSARANG
If then
if …. Then
if .. Then.. Elseif … then… endif
elseif….then
if .. Then.. Elseif … then… endif
else
if .. Then.. Elseif … then… endif
endif

Else if then
if …. then
if .. Then.. Elseif … then… endif
elseif….then
if .. Then.. Elseif … then… endif
else
if .. Then.. Elseif … then… endif
endif

Else
if …. Then
if .. Then.. Elseif … then… endif
elseif….then
if .. Then.. Elseif … then… endif
else
if .. Then.. Elseif … then… endif
endif

endif

Diketahui sebuah permasalahan sebagai berikut

Nama Pesawat Tujuan Waktu Harga Tiket
LION Jakarta Pagi 1.500.000
Siang 1.000.000
Malam 500.000
RAL Jakarta Pagi 1.400.000
Siang 1.200.000
Malam 800.000
LION MEDAN Pagi 2.500.000
Siang 2.000.000
Malam 900.000
RAL MEDAN Pagi 3.500.000
Siang 3.000.000
Malam 700.000
Ketentuan Lain : Jenis Penumpang : Dewasa 100% Dari Harga Tiket Anak Anak : 50% Dari Harga Tiket Balita : 15 % Dari Harga Tiket

Langkah 1

Pesawat :

Pilihan 1 LION
Pilihan 2 RAL maka struktur if nya adalah
sebagai berikut

If pesawat =“LION” then masuk kepilihan tujuan
Else masuk kepilihan tujuan
endif

Langkah 2

Tujuan :

Pilihan 1 JAKARTA
Pilihan 2 MEDAN
maka struktur if nya adalah
sebagai berikut

If tujuan =“JAKARTA” then masuk kepilihan WAKTU
Else masuk kepilihan WAKTU
endif

If pesawat =“LION” then If tujuan =“JAKARTA” then masuk kepilihan WAKTU
Else masuk kepilihan WAKTU
endif
Else If tujuan =“JAKARTA” then masuk kepilihan WAKTU
Else masuk kepilihan WAKTU
endif
endif

Langkah 3

Pilihan 1 PAGI
Pilihan 2 SIANG
Pilihan 3 MALAM
maka struktur if nya adalah
sebagai berikut

If waktu =“PAGI” then jawaban harga
Elseif waktu =“SIANG”
jawaban harga
Else
jawaban harga
End if

if pesawat$ ="L" or pesawat$ ="l" then
if tujuan$="J" or tujuan$="j" then
if waktu$ ="P" or waktu$ ="p"then
harga =1500000
elseif waktu$ ="S" or waktu$ ="s" then
harga =1000000
else
harga =500000
end if
else
if waktu$ ="P" or waktu$ ="p"then
harga =2500000
elseif waktu$ ="S" or waktu$ ="s" then
harga =2000000
else
harga =900000
end if
end if
else
if tujuan$="J" or tujuan$="j" then
if waktu$ ="P" or waktu$ ="p" then
harga =1400000
elseif waktu$ ="S" or waktu$ ="s" then
harga =1200000
else
harga =800000
end if
else
if waktu$ ="P" or waktu$ ="p" then
harga =3500000
elseif waktu$ ="S" or waktu$ ="s" then
harga =3000000
else
harga =700000
end if
end if
end if

Langkah 4

JENIS PENUMPANG & DISKON :

Pilihan 1 DEWASA
Pilihan 2 ANAK
Pilihan 3 BALITA
maka struktur if nya adalah
sebagai berikut

If penumpang =“DEWASA” then jawaban DISKON Harga
Elseif penumpang =“ANAK”
jawaban DISKON Harga
Else
jawaban DISKON Harga
End if

if jenis$="D" or jenis$="d" then
diskon=0
hb=(harga*jumlah)
bayar=(harga*jumlah)-diskon
elseif jenis$="A" or jenis$="a" then
diskon=0.50*harga
hb=(harga*jumlah)
bayar=(harga*jumlah)-diskon
else
diskon=0.15*harga
hb=(harga*jumlah)
bayar=(harga*jumlah)-diskon
end if

Turbo basic

di 09.58 · 0 komentar

Saya akan menjelaskan dgn ringkas tentang pemograman dasar TURBO BASIC

1.STATEMEN
adalah pernyataan atau intruksi merupakan bagian dari pada program.
Contoh:
10 print"halo"
adalah perintah menampilkan halo di layar saat run

A.MEMASUKkAN DATA

memasukkan data biasanya adalah proses awal dari pengolahan data.suatu program harus dimungkinkan untuk dapat menerima data atau membaca suatu data yang di olah..basic dalam ini menyediakan beberapa statemen yg masing2 karakteristik sesuai dgn kebutuhan nya.yaitu:
*READ-DATA
*RESTORE
*INPUT
*LINE INPUT

disamping itu dgn menggunakan statemen ini,dapat juga memasukan data menggunakan fungsi INKEY$ dan INPUT$

=STATEMEN READ-DATA

statemen ini di pakai untuk tujuan membaca nilai dari suatu variabel dalam program BASIC.Nilai dari variabel nya di tunjukan oleh statemen DATA.
Jumlah data yg dibaca statemen READ harus sama atau lebih.bila lebih data akan di abaikan.
Statemen READ-DATA harus slalu ada bersama sama.
Contoh:
10 read A,B,C
20 print A,B,C
30 data 2,3,4
40 end
run
2 3 4

ket:variabel A akan membaca nilai 2,variabel B akan membaca nilai 3,variabel C akan membaca nilai 4.

=STATEMEN INPUT

nilai variabel yg diberikan pada statemen input tidak diletakkan dalam program,tetapi di masukan setelah program berjalan
contoh:
input A
input B
C=A*B
end

run
_3
_5
15

B.MENAMPILKAN HASIL

=STATEMEN PRINT
statement print dapat digunakan untuk menampilkan hasil di layar.
1.Contoh Menampilkan nilai string dan karakter

cls
print"romy allovean"
end

RUN
romy allovean

2.contoh menampilkan nilai logika

a=5
b=5
c=a+b
print c

RUN
10

ket:perintah print adalah untuk menampilkan nilai c.

Turbo basic

di 09.08 · 0 komentar

di 03.41 · 0 komentar

S=1
K=1
FOR BARIS= 1 TO 10
FOR KOLOM= 1 TO 10
LOCATE S,K:PRINTBARI*KOLOM
K=K+4
NEXT KOLOM
K=1
S=S+1
NEXT BARIS

Pelajaran Algoritma

Senin, 10 Januari 2011

Table perkalioan 1-10

SIMPEL DATA BASE

input data dengan simple database turbo basic 30

BILANGAN PRIMA

BILANGAN PRIMA

BILANGAN PRIMA

BILANGAN GENAP DAN GANJIL

PROGRAM MENENTUKAN BILANGAN GENAP/GANJIL

IF BERSARANG

Turbo basic

Turbo basic

Tidak ada komentar:

Posting Komentar