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

Posted in: