Beranda > Computer, Tulisan > Program Menu pada Qbasic

Program Menu pada Qbasic

A: CLS

LOCATE 2.10 : PRINT “ <<MENU>> “

LOCATE 3.10 : PRINT “1. Menghitung Luas Segitiga”

LOCATE 4.10 : PRINT “2. Menghitung Isi Kubus”

LOCATE 5.10 : PRINT “3. Menghitung Isi Silinder”

LOCATE 6.10 : PRINT “4. EXIT”

PRINT

5.10 : INPUT “PILIHAN : “ , PIL

IF PIL = 1 THEN

CLS

PRINT “Mencari Luas Segitiga”

INPUT “Masukkan Alas: “ , A

INPUT “Masukkan Tinggi: “ , T

IINPUT “Luas Segitiga : “ , 0.5 * A * T

ELSEIF PIL = 2 THEN

PRINT “Mencari Isi Kubus”

PRINT “Masukkan Sisi Kubus: ” , S

PRINT “Isi Kubus adalah: ” , S^3

ELSEIF PIL = 3 THEN

CLS

PRINT “Mencari Isi Silinder”

INPUT “Masukkan Jari-Jari “ , R

INPUT “Masukkan Tinggi: “ , T

PRINT “Isi Silinder: “ , 3.14 * (R^2) * 7

ELSEIF PIL = 4 THEN

END

ELSE

CLS

COLOR5

LOCATE 10.10 ; PRINT “PILIHAN 1 sd 4”

END IF

OUTPUT

Mencari Luas Segitiga

Masukkan Alas   : 50

Masukkan Tinggi : 20

Luas segitiga   : 500

Mencari Isi Silinder

Masukkan Jari-Jari   : 7

Masukkan Tinggi            : 10

Isi Silinder         : 1538.6

Mencari Isi Kubus

Masukkan Sisi Kubus   : 8

Isi Kubus Adalah           : 512

Kategori:Computer, Tulisan
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: