Rabu, 29 Desember 2010 0 komentar

PROGRAM PENGULANGAN (loopy), LONCATAN, DAN IF KONDISI PADA QUICK BASIC

LANGKAH - LANGKAHNYA :
1. Buka software Quick Basic
2. Tekan Esc untuk menuju lembar kerja baru
3. Salin teks yang tertera di bawah ini :

CLS
PRINT “MENU”
PRINT “ 1 PENGULANGAN “
PRINT “ 2 LONCATAN ( LUAS PERSEGI PANJANG)“
PRINT “ 3 IF KONDISI “
PRINT “ 4 EXIT”
INPUT “ MASUKKAN PILIHAN (1-3)=”;A
SELECT CASE A



CASE 1
COUNTER = 1
FOR I = 1 TO 20
IF COUNTER = 7 THEN EXIT FOR
COUNTER + 1
NEXT I
PRINT “……………………….PROSES PENGULANGAN SELESAI………………………..”
GOTO 100
CASE 2
INPUT “ MASUKKAN PANJANG=”;P
INPUT “ MASUKKAN LEBAR = “;L
LET C = P *L
PRINT “ LULUS=”,C
GOTO100
CASE3
INPUT “ MASUKKAN JUMLAH BARANG:”,A
LET C = A*5000
PRINT”TOTAL HARGA YANG DI BELI :”,C
IF A< 10 THEN LET B = (A*5000)-(A*5000*0.1) PRINT “ DAPAT DISKON 10 %=”,B ELSEIF A>=30 THEN
LET B =(A*5000) – ( A*5000*0.5)
PRINT “ DAPAT DISKON 50%=”,B
ELSEIF B>=10 THEN
LET B = (A*5000)- (A*5000*0.2)
PRINT “DAPAT DISKON 20%=”,B
ENDIF
END SELECT
100 END

4. Setelah itu klik run atau tekan tombol f5 pada keyboard. Maka akan menghasilkan tampilan sebagai berikut :

INPUT :



OUTPUT :









AYOOOO COBA SEKARANG !!!!! semoga berhasil ya kawand