Tugas Algoritma

TUGAS ALGORITMA DASAR

Nama         : Nuraiman

NPM           : 1314030071

Unit            : 2.3

Fakultas     : Teknik Informatika

Algoritma Luas_Segitiga_Sama_Kaki

          Menghitung dan menampilkan Luas Segitiga Sama Kaki dengan masukan Panjang AB dan Panjang  t.

Rumus       :    Luas = AB x t

Uraian kalimat deskriptif (narasi):

•Baca Panjang AB  (AB)

•Baca Panjang t  (t)

•Luas ←  AB x t

•Tulis Luas

Menggunakan Raptor

 Menggunakan Console VB 2012

Sub Main()

        'Bagian Judul

        Console.WriteLine("Menghitung Luas_Segitiga_Sama_Kaki")

        Console.WriteLine("________________________")

        'Bagian Kamus

        Dim AB As Integer

        Dim t As Integer

        Dim Luas As Double

        'Bagian Deskripsi

        Console.WriteLine("Masukkan Panjang_AB: ")

        AB = Console.ReadLine

        Console.WriteLine("Masukkan Tinggi_t: ")

        t = Console.ReadLine

        Luas = AB * t

        Console.WriteLine("Luas: " & Luas)

        Console.ReadLine()

End Sub