LA 13 Nov '10
Coding untuk IF...THEN
CLS
Dim A As Integer
Print "MASUKKAN BANYAK BILANGAN :";
INPUT A
print
IF A MOD 2=0 THEN
print A "Adalah bilangan genap"
ELSE
print A "Adalah bilangan ganjil"
END IF
END
Coding untuk IF...THEN ELSE
Cls
Dim uts, uas, akhir As Integer
input "MASUKKAN Nilai UTS anda :"; uts
input "MAsukkan Nilai UAS anda :"; uas
print
print "Grade anda adalah";
akhir = ((70 / 100) * uts) + ((30 / 100) * uas)
if akhir >= 90 then
print "Grade anda A"
elseif akhir >= 80 then
print "Grade anda B"
elseif akhir >= 70 then
print "Grade anda C"
elseif akhir >= 60 then
print "Grade anda D"
else
print a "ANda Gagal grade anda E"
end if
End
Coding Select Case
cls
dim pil, luas, alas, tinggi, panjang, lebar, sisi as integer
print "---------------Menu------------------"
print "----1. Luas segitiga ----------"
print "----2. Luas Persegi ----------"
print "----3. Luas Persegi panjang----------"
input "Masukkan Pilihan : "; pil
select case pil
case 1
print "-------------------Luas Segitiga--------------"
input "Masukkan alas : "; alas
input "Masukkan tinggi : "; tinggi
luas = alas * tinggi / 2
print "luas segitiga = "; luas
case 2
print "-------------------Luas Persegi---------------"
input "Masukkan sisi: "; sisi
luas = sisi * sisi
print "luas persegi = "; luas
case 3
print "-------------Luas Persegi Panjang-----------------"
input "Masukkan Panjang : " ; panjang
input "Masukkan Lebar : " ; lebar
luas = panjang * lebar
print "Luas Persegi panjang = "; luas
end select
end
NExt realese for logika nya...
Subscribe to:
Post Comments (Atom)
Posts
