Nama    : Dhamario Gymnastiarno

Kelas    : 1IA05

Universitas Gunadarma

1. Program Nilai UTS UAS QUIZ Pada Qbasic

10 CLS

20 no = 0

30 b = 0

40 TUTS = 0

50 TUAS = 0

60 TQUIZ = 0

70 rata = 0

80 sw = 1

90 HAL = 1

100 READ NPM$, NAMA$, UTS, UAS, QUIZ

110 IF NPM$ = "999999" THEN GOTO 340

120 IF sw = 1 GOTO 150 ELSE GOTO 200

150 GOSUB 1500

160 PRINT " NO   NPM     NAMA    UTS    UAS    QUIZ     RATA-RATA"

170 GOSUB 1500

180 sw = 0

190 HAL = HAL + 1

200 no = no + 1

210 TUTS = TUTS + UTS

220 TUAS = TUAS + UAS

230 TQUIZ = TQUIZ + QUIZ

240 b = b + 1

250 rata = (UTS + UAS + QUIZ) / 3

260 PRINT no, NPM$, NAMA$, UTS, UAS, QUIZ, rata

270 rata = 0

280 IF b = 4 GOTO 290 ELSE GOTO 100

290 GOSUB 1500

300 b = 0

310 sw = 1

320 HAL = HAL + 1

330 GOSUB 1500

340 PRINT "             JUMLAH", TUTS, TUAS, TQUIZ

350 END

1500 FOR i = 1 TO 40

    1600 PRINT "-";

1700 NEXT i

1800 PRINT

1900 RETURN

2100 DATA "900001","ARIE",90,90,90

2200 DATA "900002","BOBO",100,100,100

2300 DATA "900003","CIKA",60,60,60

2400 DATA "900004","DONO",70,70,70

2500 DATA "900005","ENIE",30,30,30

2600 DATA "999999","XXX",999,999,999