Archive for October, 2012

Posted: October 1, 2012 in Uncategorized
BAHASA QBASIC

Program menghitung luas dan keliling lingkaran :

*Menghitung luas :
   Print”Program Menghitung Luas Lingkaran”
   Input”Masukan nilai Jari-jari”; jari-jari
   luas = 3.14*jari-jari*jari-jari
   Print”Luas Lingkaran=”; luas
   end
*Menghitung keliling lingkaran
    Print”Program Menghitung Keliling lingkaran”
    Input”Masukan nilai Jari-jari”; jari-jari
    Keliling = 2*3.14*jari-jari
    print”Keliling Lingkaran=”; keliling
    end
#ket :
phi=3.14 bersifat mutlak dan tidak bisa di input oleh user
nilai lingkaran hanyalah diameter atau jari-jari
untuk mempersingkat koding program ini hanya menginput satu nilai jari-jari saja dan ketika di enter otomatis akan menghitung luas dan keliling lingkaran tersebut.
*Menghitung Volume Balok
    Print”Program Menghitung Volume Balok”
    Input”Masukan nilai Panjang”; p
    Input”Masukan nilai Lebar”; l
    Input”Masukan nilai Tinggi”; t
    volume = p*l*t
    print”Volume Balok=”; volume
    end
*Menghitung Luas Balok
    Print”Program Menghitung Luas Balok”
    Input”Masukan nilai Panjang=”; p
    Input”Masukan nilai Lebar=”; l
    Input”Masukan nilai Tinggi=”; t
    luas=2*(p*l)+(p*t)+(l*t)
    print”Luas Balok=”; luas
    end
#ket
  p & l & t merupakan variabel dari panjang & lebar & tinggi , variabel itu  bebas membuat’a ,
untuk yang ingin mendownload program quick basic bisa download disini via 4shared .

di tunggu comment’a , thanks before 😀

 

Sumber : http://fachriarif.blogspot.com/2012/09/tugas-algoritma-dan-pemograman-1b-qbasic.html