22 Februari 2011

Program Vb.Net : Membuat Deret Bilangan 2 1 4 3 6 5 dengan Console

22 Februari 2011
Request Dari KHézié LøvìñG'ü Ælwåys
Input n : 6
hasil : 2 1 4 3 6 5

Coding:
Imports System.Console
Module Module1

Sub Main()

Dim d, i, y As Integer

Dim hasil As Integer

Write("Masukan Banyaknya bilangan genap : ")
i = ReadLine()
For d = 1 To i Step 1
If d Mod 2 = 0 Then
y = 2 * d - (d + 1)
Else
y = 2 * d - (d - 1)
End If
hasil = hasil + y
Write(y)

Next d
WriteLine("")
Write("total= ")
Write(hasil)
ReadLine()
End Sub
End Module

0 comments:

Poskan Komentar

sampaikan komentar dengan sopan dan bertanggung jawab :)