Ini adalah program request dari Larass 'z Ssatiee
Program menggunakan Vb.net console
Soalnya Tampiklan N
N = 3
dan pada Tampilan outputnya didosnya
2 - 4 - 6 = -8
Codingnya
Imports System.Console
Module Module1
Sub Main()
Dim d, i, y As Integer
Dim hasil As Integer
hasil = 4
Write("Masukan Banyaknya bilangan genap : ")
i = ReadLine()
For d = 1 To i
y = 2 * d
hasil = hasil - y
If y = 2 Then
Write("")
Else
Write(" - ")
End If
Write(y)
Next
Write(" = ")
Write(hasil)
ReadLine()
End Sub
End Module
Soal ke 2:
Tampilkan
1
1 + 2
1 + 2 + 3
Total = 10
Codingnya :
Imports System.Console
Module Module1
Sub Main()
Dim v, a, b, h As Integer
h = 0
Write("Masukan Banyaknya Angka : ")
v = ReadLine()
WriteLine(" ")
For a = 1 To v Step 1
For b = 1 To a Step 1
If b = 1 Then
Write("")
Else
Write(" + ")
End If
h = h + b
Write(b)
Next b
WriteLine(" ")
Next a
WriteLine("")
Write("total= ")
Write(h)
ReadLine()
End Sub
End Module
Soal 3
Soalnya Tampiklan N
N = 3
dan pada Tampilan outputnya didosnya
1 + 3 + 5 = 9
Imports System.Console
Module Module1
Sub Main()
Dim d, i, y As Integer
Dim hasil As Integer
hasil = 0
Write("Masukan Banyaknya bilangan: ")
i = ReadLine()
For d = 1 To i
y = 2 * d - 1
If y = 1 Then
Write("")
Else
Write(" + ")
End If
hasil = hasil + y
Write(y)
Next
Write(" = ")
Write(hasil)
ReadLine()
End Sub
End Module