SOAL UTS ALGORITMA TENTANG QBASIC

uts algoritma 1c

CLS
n = 0: no = 0: h = 1: u = 0: tp = 0: tw = 0
INPUT "TAHUN SEKARANG : ", TS: CLS
20 PRINT
PRINT TAB(30); "PT. MAVINDO"
PRINT TAB(59); "HAL : "; h
PRINT "------------------------------------------------------------------"
PRINT "NO", "NOMOR INDUK", "NAMA", "UMUR", "KETERANGAN"
PRINT "------------------------------------------------------------------"
30 READ NIK$, NAMA$, TL, JK$
IF NIK$ = "0" THEN PRINT "------------------------------------------------------------------": PRINT TAB(36); "TOTAL SELURUH PRIA   : "; tp; "ORANG": PRINT TAB(36); "TOTAL SELURUH WANITA : "; tw; "ORANG": END
u = TS - TL
IF u <= 56 THEN GOTO 30
IF JK$ = "0" THEN Ket$ = "PRIA": tp = tp + 1: GOTO 60
IF JK$ = "1" THEN Ket$ = "WANITA": tw = tw + 1: GOTO 60
JK$ = "SALAH"
60 n = n + 1: no = no + 1
PRINT no, NIK$, NAMA$, u, Ket$
IF n = 5 THEN PRINT "------------------------------------------------------------------": INPUT "NEXT HAL (TEKAN ENTER)"; Y: CLS: n = 0: h = h + 1: GOTO 20
GOTO 30

DATA 54123,ACEP,1951,0,54122,LIEN,1941,1,54233,AMELIA,1958,1
DATA 54321,FUAD,1950,0,54222,NAUVAL,1935,0,54333,HAMDA,1940,0
DATA 53244,EGA,1948,0,56233,IRMA,1930,1,57345,RINA,1952,1
DATA 0,0,0,0