23 Februari 2011

Program Vb.Net : Membuat Jajaran Genjang di Vb.Net Console

23 Februari 2011
Kemarin saya sudah memberikan coding cara membuat jajaran genjang dengan c++, sekarang saya berikan coding membuat jajaran genjang dengan vb.net Console



Coding:
Imports System.Console
Module Module1
Sub Main()
Dim bil, i, j, y As Integer
' Dim hasil As Integer
Write("Masukan Angka : ")
bil = ReadLine()
WriteLine("")
If bil > 0 And bil <= bil Then
For i = bil To 1 Step -1
For j = 1 To i Step 1
Write(" ")
Next j

For j = 1 To bil Step 1
y = 2 * j - 1
Write("*")
Next j
WriteLine("")
Next i
End If
ReadLine()
End Sub
End Module


Sekarang berdasarkan reques dari KHézié LøvìñG'ü Ælwåys yang menginginkan kalau inputannya harus seperti ini:


Codingnya:

Imports System.Console
Module Module1
Sub Main()
Dim bil, i, j, y As Integer
' Dim hasil As Integer
Write("Masukan Angka : ")
bil = ReadLine()
WriteLine("")
If bil > 0 And bil <= bil Then
For i = bil To 1 Step -1
For j = 1 To i Step 1
Write(" ")
Next j

For j = 1 To bil Step 1
y = 2 * j - 1
Write(y)
Next j
WriteLine("")
Next i
End If
ReadLine()
End Sub
End Module


3 comments:

Anonim mengatakan...

trimaksih,saya coba koding ya

Anonim mengatakan...

MKSH Y GAN...

Anonim mengatakan...

gan bisa minta tolong disertakan penjelasan buat newbie g?
saya masih bingung dlm ngebaca codingan..
trus tips biar jago algoritma apa y?

Poskan Komentar

sampaikan komentar dengan sopan dan bertanggung jawab :)