Perintah IF pada Basic

Listing Sedehana :

DIM BID AS INTEGER
DIM A, T, L AS SINGLE
CLS
10  INPUT A
20 IF A = 1 THEN 50
30 IF A = 2 THEN 60
40 IF A = 3 THEN 70

50  INPUT "MASUKAN ALAS:", A
   INPUT "MASUKAN TINGGI:", T
   L = (A * T) / 2
   PRINT "LUAS SEGITIGA=", L
   END
60 INPUT "MASUKAN SISI:", A
   L = A ^ 2
   PRINT "LUAS KUBUS=", L
   END
70 INPUT "MASUKAN JARI-JARI:", A
  L = (A ^ 2) * 3.14
  PRINT "LUAS LINGKARAN:", L
  END


Program ini digunakan untuk melakukkan perhitungan matamatika seperti luas segitiga, luas kubus , dan luas lingkaran. Program ini berisi proses untuk menghitung luas segitiga,kubus,lingkaran.pada line number 10





OUTPUT PROGRAM    :
Misalkan setelah kita menjalankan program di atas dan lalu kita masukan nilai
A = 2 maka hasil yang akan tercetak adalah seperti di bawah ini.

? 2
MASUKAN SISI:3
LUAS KUBUS=    9

Artikel Terkait:

Posted in: Basic