Selasa, 24 Februari 2015

MEMBUAT ALGORITMA

MEMBUAT ALGORITMA
1. Buatlah algoritma untuk menghitung konversi suhu
    dari Celcius ke Reamur dan Fahrenheit
INPUT :Suhu dalam Celcius
Proses : R = 4/5 * C dan F = 9/5 * C + 32
Output : Suhu dalam Reamur dan Fahrenheit
JAWABAN :
1. Input besr suhu dalam satuan  celcius
2. Untuk menghitung konversi suhu dari celcius ke Reamur, masukan besaran suhu ke dalam rumus berikut : ( R = 4/5 * C )
3. untuk menghitung konversi suhu dari celcius ke reamur, masukkan besaran suhu ke dalam rumus berikut : ( F = 9/5 * C + 32 )
4. Output akan tampil, suhu dalam Reamur dan Fahrenheit
DEKLARASIInt : C, R, F

INPUT C
R = 4/5 * C
F = 9/5 * C +32
OUTPUT
PRINT R
PRINT F
END


2. Algoritma bilangan ganjil / genap
1. Masukkan sebuah bilangan → i
2. Lakukan operasi mod pada i
3. Simpan sisanya dalam variabel n
4. Jika n = 0 maka i adalah bilangan genap
5. Jika n = 1 maka i adalah bilangan ganjil
6. Selesai

Sedangakan untuk aplikasi ke program visual basic sangat mudah berikut adalah Source code bilangan ganjil/genap dengan VB 6.0

Private Sub command1_Click()
    If Text1 = "" Then
        MsgBox "Bilangan masih kosong"
        Else
           If Text1.Text Mod 2 = 0 Then
           Label2.Caption = Text1.Text + " Bilangan Genap"
           Else
           Label2.Caption = Text1.Text + " Bilangan Ganjil"
           End If
        End If
End Sub


3. Algoritma untuk menentukan bilangan prima atau bukan.
Deklarasi variable FAKTOR = 0.
Masukkan bilangan bulat positif BILANGAN.
Proses looping A=1 sampai dengan BILANGAN:
- Jika BILANGAN modulus A sama dengan 0, tambah 1 nilai variabel FAKTOR.
- Lanjutkan looping.
Jika variabel FAKTOR = 2, cetak “Bilangan Prima.” Jika tidak, cetak “Bukan Bilangan Prima”.
Selesai.

MEMBUAT LUAS JAJARGENJANG DENGAN VB

Public Class Form1
    Dim alas, tinggi, hasil As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Menghitung Luas Jajargenjang
        If TextBox1.Text = "" Then
            MsgBox("Data Belum Diisi")
        Else
            alas = Val(TextBox1.Text)
            tinggi = Val(TextBox2.Text)
            hasil = alas * tinggi
            TextBox3.Text = hasil
        End If
    End Sub
End Class