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.

Visual Basic 2010

Public Class Form1
    Dim diagonal_1, diagonal_2, Hasil As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Menghitung luas belah ketupat'
        diagonal_1 = Val(TextBox1.Text)
        diagonal_2 = Val(TextBox2.Text)
        Hasil = 0.5 * diagonal_1 * diagonal_2
        TextBox3.Text = Hasil
    End Sub
End Class