Kalkulasi akar persamaan kuadrat pada Microsoft Visual Basic

Pada post kali ini, saya ingin menampilkan sedikit mengenai pemrogaman kalkulasi akar persamaan kuadrat pada Microsoft Visual Basic.

Berikut pemrogamannya.

Jadi, dapat dilihat pada gambar di atas, pada saat determinan persamaan bernilai nol (if D<0 then) akan muncul pesan yang menyatakan bahwa akar imajiner (MsgBox “Akar Imajiner”). Jika Determinan tidak nol, maka kalkulasi akar dilanjutkan.

Berikut tampilan program pada saat akar imajiner.

Dan berikut tampilan program pada saat akar riil.

Sekian, semoga bermanfaat. Wassalam.

  1. Wah sudah bagus nih, tapi kalo bisa ditambah algoritmanya lebih bagus lagi nih..

    Terima kasih,

    salam,

    arandityonarutomo.blogspot.com

  2. Kira – kira ditambah algoritma yang seperti apa?
    Mungkin menurut saya kekurangan program yang kali ini adalah keterbatasannya yang hanya dapat menghitung akar pada persamaan dengan orde dua. Mungkin algoritma secara umum dapat dibentuk dengan metode trial dan error yang dapat menyelesaikan akar untuk persamaan dengan berbagai orde

    Terima Kasih.

  3. mantap gung.. cuma langsung program aja ya.. gak ada pendahuluan seperti algoritmanya seperti apa..

  4. menarik bung,terima kasih

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: