Program Sederhana Q Basic

PROGRAM 1

INPUT

CLS
DIM NAMA$(100), ALAMAT$(100), TELEPON$(100)
INPUT “Masukkan Jumlah Data :”; D
FOR A = 1 TO D
INPUT “Masukkan Nama :”; NAMA$(A)
INPUT “Masukkan Alamat :”; ALAMAT$(100)
INPUT “Masukkan Telepon :”; TELEPON$(100)
NEXT A
PRINT “---------------------------------------“
PRINT “No Nama Alamat Telepon”
PRINT “---------------------------------------“
FOR A = 1 TO D
PRINT A, NAMA$(A), ALAMAT$(A), TELEPON$(A)
NEXT A
END



OUTPUT

Masukkan Jumlah Data :? 2
Masukkan Nama :? Reza
Masukkan Alamat :? JL Flamboyan
Masukkan Telepon :? 02199887766
Masukkan Nama :? Ardika
Masukkan Alamat :? JL Melati
Masukkan Telepon :? 02133445566
----------------------------------------
No Nama Alamat Telepon
----------------------------------------
1 Reza JL Flamboyan 02199887766
2 Ardika JL Melati 02133445566






Press any key to continue



PROGRAM 2

INPUT

CLS
OPEN "SISWA DATA" FOR APPEND AS #1
X = 1
DO
PRINT "Data Siswa Ke-"; X
INPUT "No Induk :"; NOINDUK$
IF NOINDUK$ <> "" THEN
INPUT "Nama :"; NAMA$
INPUT "Teori :"; TEORI
INPUT "Praktek :"; PRAKTEK
WRITE #1, NOINDUK$, NAMA$, TEORI, PRAKTEK
X = X + 1
LOOP UNTIL NOINDUK$ = ""
CLOSE #1
END


OUTPUT


Data Siswa Ke-1
No Induk :? 11108632
Nama :? Reza Sansa Hardika
Teori :? 70
Praktek :? 75
Data Siswa Ke-2
No Induk :?



Proses ini akan terus berulang-ulang, jika ingin mengakhiri maka tekan ENTER beberapa kali.




PROGRAM 3

INPUT


CLS
A:
2.10 PRINT "<>"
3.10 PRINT "1. MENGHITUNG LUAS SEGITIGA"
4.10 PRINT "2. MENGHITUNG ISI KUBUS"
5.10 PRINT "3. MENGHITUNG ISI SILINDER"
6.10 PRINT "4. EXIT"
PRINT
7.10 : INPUT "Pilihan :"; PIL
IF PIL = 1 THEN
CLS
PRINT "Mencari Luas Segitiga"
INPUT "Masukkan Alas :"; A
INPUT "Masukkan Tinggi :"; T
PRINT "Luas Segitiga :"; (.5 * A * T)
GOTO A:
ELSEIF PIL = 2 THEN
CLS
PRINT "Mencari Isi Kubus"
INPUT "Masukkan Sisi Kubus :"; S
PRINT "Isi Kubus Adalah :"; (S ^ 3)
GOTO A:
ELSEIF PIL = 3 THEN
CLS
PRINT "Mencari Isi Silinder"
INPUT "Masukkan Jari-Jari :"; R
INPUT "Masukkan Tinggi :"; Q
PRINT "Isi Silinder :"; (3.14 * (R ^ 2) * Q)
GOTO A:
ELSEIF PIL = 4 THEN
END
ELSE
CLS
COLOR 5
10.10 PRINT "Pilihan 1 s/d 4"
END IF
END


OUTPUT PROGRAM 3

<>
1. MENGHITUNG LUAS SEGITIGA
2. MENGHITUNG ISI KUBUS
3. MENGHITUNG ISI SILINDER
4. EXIT

Pilihan :? 1

(setelah di ENTER)

Mencari Luas Segitiga
Masukkan Alas :? 12
Masukkan Tinggi :? 14
Luas Segitiga : 84
<>
1. MENGHITUNG LUAS SEGITIGA
2. MENGHITUNG ISI KUBUS
3. MENGHITUNG ISI SILINDER
4. EXIT

Pilihan :? 2

(setelah di ENTER)

Mencari Isi Kubus
Masukkan Sisi Kubus :? 12
Isi Kubus Adalah : 1728
<>
1. MENGHITUNG LUAS SEGITIGA
2. MENGHITUNG ISI KUBUS
3. MENGHITUNG ISI SILINDER
4. EXIT

Pilihan :? 3

(setelah di ENTER)

Mencari Isi Silinder
Masukkan Jari-Jari :? 12
Masukkan Tinggi :? 10
Isi Silinder : 4521.6
<>
1. MENGHITUNG LUAS SEGITIGA
2. MENGHITUNG ISI KUBUS
3. MENGHITUNG ISI SILINDER
4. EXIT

Pilihan :? 4

(setelah di ENTER)

Maka akan keluar tulisan “Press any key to continue”

# Jika pilihan yang dimasukkan adalah angka selain 1,2,,3, dan 4 maka akan muncul :

Pilihan 1 s/d 4



LOGIKA PROGRAM 3


CLS
=>Merupakan perinteh untuk membersihkan layar output yang telah dipakai sebelumnya

A:
=>Merupakan suatu tempat penyimpanan data selanjutnya

2.10 PRINT "<>"
=>Merupakan perintah untuk mencetak “<>” pada lokasi 2.10

3.10 PRINT "1. MENGHITUNG LUAS SEGITIGA"
=> Merupakan perintah untuk mencetak “1. MENGHITUNG LUAS SEGITIGA” pada lokasi 3.10

4.10 PRINT "2. MENGHITUNG ISI KUBUS"
=> Merupakan perintah untuk mencetak “2. MENGHITUNG ISI KUBUS” pada lokasi 4.10

5.10 PRINT "3. MENGHITUNG ISI SILINDER"
=> Merupakan perintah untuk mencetak “3. MENGHITUNG ISI SILINDER” pada lokasi 5.10

6.10 PRINT "4. EXIT"
=> Merupakan perintah untuk mencetak “4. EXIT” pada lokasi 6.10

PRINT
=>Merupakan perintah untuk mencetak kosong untuk memberi jarak 1 kolom pada output nanti.

7.10 : INPUT "Pilihan :"; PIL
=>Berarti Pada lokasi 7.10 diperintahkan untuk memasukkan data berupa pilihan yang dimasukkan ke dalam variable PIL.

IF PIL = 1 THEN
CLS
=>Berarti jika pilihan yang diambil adalah 1 maka selanjutnya layar akan dibersihkan.

PRINT "Mencari Luas Segitiga"
=>Merupakan perintah untuk mencetak "Mencari Luas Segitiga”

INPUT "Masukkan Alas :"; A
=>berarti data yang dimasukkan adalah “Masukkan Alas:” yang merupakan tipe data numerik yang dimasukkan ke dalam variabel A


INPUT "Masukkan Tinggi :"; T
=> berarti data yang dimasukkan adalah “Masukkan Tinggi :” yang merupakan tipe data numerik yang dimasukkan ke dalam variabel T

PRINT "Luas Segitiga :"; (.5 * A * T)
=>merupakan perintah untuk mencetak “Luas Segitiga” sekaligus mencari luas segitiga dari nilai yang telah dimasukkan.

GOTO A:
=>merupakan perintah untuk kembali ke A:

ELSEIF PIL = 2 THEN
CLS
=>jika pilihan yang dimasukkan adalah 2, maka layar akan dibersihkan.

PRINT "Mencari Isi Kubus"
=>merupakan perintah untuk mencetak kalimat "Mencari Isi Kubus"

INPUT "Masukkan Sisi Kubus :"; S
=> berarti data yang dimasukkan adalah “Masukkan Sisi Kubus :” yang merupakan tipe data numerik yang dimasukkan ke dalam variabel S

PRINT "Isi Kubus Adalah :"; (S ^ 3)
=> merupakan perintah untuk mencetak kalimat “Isi Kubus Adalah :” sekaligus menghitung dengan menggunakan data yang telah dimasukkan.

GOTO A:
=>merupakan perintah untuk kembali ke A:

ELSEIF PIL = 3 THEN
CLS
=>jika pilihan lain yang dimasukkan adalah 3, maka layar akan dibersihkan.

PRINT "Mencari Isi Silinder"
=> merupakan perintah untuk mencetak kalimat "Mencari Isi Silinder"

INPUT "Masukkan Jari-Jari :"; R
=> berarti data yang dimasukkan adalah “Masukkan Jari-Jari:” yang merupakan tipe data numerik yang dimasukkan ke dalam variabel R

INPUT "Masukkan Tinggi :"; Q
=> berarti data yang dimasukkan adalah “Masukkan Tinggi:” yang merupakan tipe data numerik yang dimasukkan ke dalam variabel Q


PRINT "Isi Silinder :"; (3.14 * (R ^ 2) * Q)
=>merupakan perintah untuk mencetak kalimat “Isi Silinder :” sekaligus menghitung dengn menggunakan data yang telah dimasukkan.

GOTO A:
=>merupakan perintah untuk kembali ke A:

ELSEIF PIL = 4 THEN
END
=>jika pilihan yng diambil adalah 4 maka program akan berakhir.

ELSE
CLS
COLOR 5
10.10 PRINT "Pilihan 1 s/d 4"
=>pilihan lain maka layar akan dibersihkan dan akan tertulis “Pilihan 1 s/d 4 dengan warna font adalah ungu.

END IF
=>mengakhiri fungsi IF

END
=>mengakhiri program