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

Diposting pada 803 views
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

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

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *