Translate

Jumat, 28 September 2012

Tugas algoritma dan Pemograman 1B (qbasic)

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 :D

0 komentar:

Posting Komentar