PROSES BERULANG
ISI PROGRAM
& BENTUK PROGRAM :
} Isi Program INPUT – PROSES – OUTPUT
} Bentuk Program INPUT – OUTPUT , PROSES BERSYARAT dan PROSES BERULANG
} Untuk Melakukan Pengulangan dengan Statement GOTO , FOR – NEXT and
DIM
} Jika memakai GOTO harus diberi nomor pada baris program, bisa nomor
angka bisa pula nomor abjad, ketentuan nomor baris tidak boleh sama, nomor
baris yang diatas harus lebih kecil dari nomor baris dibawahnya, dengan selang
N
Contoh
Penggunaan GOTO
Cls
Print “
Nama : “ ; : Input , Nama$
Print “
Umur : “ ; : Input , Umur
IF umur>=17
THEN Ket$=“Boleh Nonton”
IF
Umur<17 THEN Ket$=“Tidak Boleh
Nonton”
Print “
Nonton : “ ; Ket$
Print “ Di Ulang
: Y/T : “ ; : Input , YT$
IF YT$=“Y” or
“y” THEN GOTO 10
IF YT$=“T” or
“t” THEN GOTO 100
Stop
Mulai :
Cls
Print “
Nama : “ ; : Input , Nama$
Print “
Umur : “ ; : Input , Umur
IF Umur<= 5
THEN Usia$=“Balita” ELSE Usia$=“Tua”
Print “
Keterangan : “ ; Usia$
Print “ Next
(Y/T) : “ ; : Input , YT$
IF
UCASE$(YT$)=“Y” THEN GOTO Mulai ELSE
GOTO End
End
FOR – NEXT
and DIM
} Bentuk Umumnya :
} FOR Varible Pengenal Nilai Awal To Nilai Akhir
– Variable yang ingin diulang
} NEXT Variable Pengenal
} For Varible Pengenal Nilai Awal To Nilai Akhir Step N
– Variable yang ingin diulang
} NEXT Variable Pengenal
Bentuk Umum
DIM
} DIM Variable yang ingin di ulang
} FOR Varible Pengenal Nilai Awal To Nilai Akhir
– Variable yang ingin diulang
} NEXT Variable Pengenal
} DIM Variable yang ingin diulang
} For Varible Pengenal Nilai Awal To Nilai Akhir Step N
– Variable yang ingin diulang
} NEXT Variable Pengenal
Latihan :
Cls
FOR I=1 To 10
Print I
Next I
Stop
Cls
FOR I=10 To 1
Step -1
Print I
Next I
Stop
Cls
FOR I=1 To 10
Print I
Next I
Stop
Cls
FOR I=10 To 1
Step -1
Print I
Next I
Stop
Dim Nama$(5),Umur(5),Ket$(5)
Cls
Print “ Jumlah
Data Maximal 5 : “ ; : Input , N
Cls
For I = 1 To N
Input “
Nama : “ , Nama$(I)
Input “
Umur : “ , Umur(I)
IF Umur(I)
>=17 THEN Ket$(I)=“Boleh” ELSE Ket$(I)=“Tidak”
Next I
Cls
Locate 04,30 :
Print “ Data Boleh Nonton”
Locate 06,10 :
Print String$(60, “~”)
Locate 07,10 :
Print “ Nama “
Locate 07,30 :
Print “ Umur”
Locate 07,50 :
Print “ Keterangan”
Locate 08,10 :
Print String$(60, “~”)
Baris=09
FOR J=1 TO N
Locate Baris,10
: Print Nama$(J)
Locate Baris,30
: Print Umur(J)
Locate Baris,50
: Print Ket$(J)
Baris=Baris+1
Next J
} Locate Baris,10 : Print String$(60, “~”)
} Locate Baris+1,10 : Print “Banjarbaru, “ ; Date$
} Locate Baris+3,10 : Print
“Pembuat , “ ; : Input , Nm$
} Stop
} Catatan :
} Untuk Mengulang Character yang sama digunakan perintah String$, BU :
Print String$( N=Jumlah diulang, “Apa yang diulang”)
} Contoh : Print String$(60, Chr$(221))
} Contoh : Print String$(60,”~”)
Bahan
Praktikum :
} Buatkan sebuah program untuk menghitung pendapatan seorang karyawan
pada PT.ABC yang ketentuan programnya sebagai berikut :
} Untuk membuat program tersebut diatas gunakan dan terapkan model
bersyarat tersebut diatas.
} Praktikum 1 Gunakan GOTO
} Praktikum 2 Gunakan FOR -
NEXT
} Praktikum 3 Gunakan DIM
Tugas Minggu
ini :
} Buatkan Sebuah Aplikasi Program untuk Daftar Nilai Mahasiswa STEKO –
PAT untuk mata kuliah LOGIKA DAN Algoritma
} Simpan dengan nama file TKHS.Bas
} Untuk membuat program tersebut diatas gunakan dan terapkan model
bersyarat tersebut diatas.
} Praktikum 1 Gunakan IF-THEN
} Praktikum 2 Gunakan IF-THEN-ELSE
} Praktikum 3 Gunakan IF-THEN-END IF
} Praktikum 4 Gunakan IF-THEN-ELSE-END IF
} Praktikum 5 Gunakan IF-THEN-ELSEIF-END IF
} Praktikum 6 Gunakan SELECT CASE – END SELECT
Tugas Minggu
ini :
} Buatkan Sebuah Aplikasi Program untuk Daftar Nilai Mahasiswa
STEKOM-PAT untuk mata kuliah Logika dan Algoritma, ketentuan Gunakan Semua
Statement yang sudah dipelajari.
} Simpan dengan nama file Tnilai.Bas
} Buatkan sebuah Program untuk membuat Faktur Penjualan.
} Buatkan sebuah Program untuk menghitung Pendapatan Penjualan Setiap
Bulan
} Buatkan sebuah Program untuk menghitung rekapitulasi pembayaran gaji
karyawan pada bulan tertentu
} Buatkan sebuah Program untuk mengetahui jadwal keberangkatan Kapal
Laut pada Pelabuhan tertentu
Tugas Minggu
ini :
} Buatkan sebuah Aplikasi Program untuk mengetahui Data Pasien pada
Rumah Sakit tertentu pada Bulan tertentu, ketentuan Program :
} Gunakan Statement Print – Input
} Gunakan Statement Locate
} Simpan dengan Nama File TugasRSU.Bas
Tidak ada komentar:
Posting Komentar