TUGAS QBASIC

1 CLS

39 COLOR 15

40 PRINT "PROGRAM MATEMATIKA"

41 PRINT TAB(30); "OLEH"

42 PRINT TAB(10); "Mellya Andriani Silaban"; TAB(20); "12150056"

43 PRINT TAB(10); "Hartaty Saragih"; TAB(20); "12150071"

44 PRINT TAB(10); "Mindo Sihombing"; TAB(20); "12150063"

45 PRINT TAB(10); "Pedrick Pasaribu"; TAB(20); "12150079"

46 PRINT TAB(10); "Friska Siahaan"; TAB(20); "12150081"

47 PRINT TAB(10); "Fina Hutasoit"; TAB(20); "12150087"

48 PRINT TAB(10); "Lena Napitu"; TAB(20); "12150096"

49 PRINT

90 COLOR 3

4 INPUT "MASUKKAN ANGKA KE-1:", ANGKA1

91 COLOR 4

5 INPUT "MASUKKAN ANGKA KE-2:", ANGKA2

50 PRINT

92 COLOR 10

51 PRINT "1).PENJUMLAHAN"

93 COLOR 5

52 PRINT "2).PENGURANGAN"

94 COLOR 6

53 PRINT "3).PERKALIAN"

95 COLOR 9

54 PRINT

6 INPUT "MASUKKAN PILIHAN ANDA:", OPT$

55 PRINT

96 COLOR 18

10 IF OPT$ = "1" THEN

70 TOTAL = ANGKA1 + ANGKA2

56 PRINT "HASIL ANGKA1+ANGKA2:',TOTAL"

15 ELSEIF OPT$ = "2" THEN

71 TOTAL = ANGKA1 - ANGKA2

57 PRINT "ANGKA1 - ANGKA2:", TOTAL

16 ELSEIF OPT$ = "3" THEN

72 TOTAL = ANGKA1 * ANGKA2

58 PRINT "HASIL ANGKA1*ANGKA2:", TOTAL

17 ELSE

97 COLOR 13

59 PRINT "PILIHAN TIDAK ADA!"

60 PRINT

61 PRINT "1).INPUT KEMBALI"

62 PRINT "2).KELUAR PROGRAM"

63 PRINT

7 INPUT "MASUKKAN PILIHAN:", PILIHAN$

11 IF PILIHAN$ = "1" THEN

20 GOTO 54

18 ELSEIF PILIHAN$ = "2" THEN

21 GOTO 100

19 ELSE

64 PRINT

22 GOTO 59

98 END IF

23 GOTO 54

99 END IF

100 STOP