21 Februari 2011

Program Vb.Net : Program For Next Dengan Console

21 Februari 2011
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


3 comments:

Anonim mengatakan...

blognya kerennn abizzzzz. :)

Anonim mengatakan...

i like it
:d:

Eli Wiyanti mengatakan...

12345678
23456781
34567812
45678123
..........


kalau buat yang kayak gini, syntagnya gimana ?
Please Help me...

Poskan Komentar

sampaikan komentar dengan sopan dan bertanggung jawab :)