Membuat jajargenjang bintang for bersarang dengan 4 bahasa pemrograman

      Ok, sekarang saya ingin share sedikit ilmu saya. Mungkin bagi temen-temen yang sedang belajar Bahasa Pemrograman atau mahasiswa khususnya Jurusan TI,  kalau masuk bab for bersarang atau for Nested disuruh membuat segitiga bintang,bentuk kotak atau yang lain. Tapi kali ini saya akan Share cara membuat jajargenjar bintang pada 4 bahasa pemrograman yang berbeda yaitu Bahasa pemrograman C++, Java, VB 6 dan yang terakhir VB.NET.



1. Bahasa pemrograman C++
    Script code:

#include<iostream.h>
#include<conio.h>

main()
{
int inp;
cout<<"Masukkan Jumlah Bintang :"; cin>>inp;
for (int i=1;i<=inp;i++)
{
    for(int j=1;j<i;j++)
   {
       cout<<" ";
   }
   for(int z=1;z<=inp;z++)
   {
       cout<<"*";
   }
cout<<endl;
}
getch();
}

Hasilnya:

2. Bahasa Pemrograman Java
Script Code:

package belajar;
import java.io.*;
public class bintang {

    /**
     * @param args
     */
    public static void main(String[] args) {
        // TODO Auto-generated method stub
       
        BufferedReader sys = new BufferedReader(new InputStreamReader(System.in));
       
        String angka = null;
        try {
            System.out.print("Masukkan jumlah bintang :");
            angka=sys.readLine();
        } catch(IOException ioe) {
            System.out.println("Kesalahan IO pada saat menanyakan nama Anda");
            System.exit(1);
        }
        int ang1;
        ang1=Integer.parseInt(angka);
        for(int i=1;i<=ang1;i++){
            for(int j=1;j<i;j++){
                System.out.print(" ");
            }
            for(int z=1;z<=ang1;z++){
                System.out.print("*");
            }
            System.out.print("\n");
        }
       
    }
}
Hasilnya:

3.Bahasa Pemrograman VB 6
script code

Private Sub Command1_Click()
   
   
     For a = 1 To Val(Text1.Text)
        For b = 1 To a
       Print " ";
        Next b
        For c = 1 To 10
        Print "*";
        Next c
        Print
        Next a
End Sub

Private Sub Command2_Click()
 Form1.Cls
 Text1.Text = ""
 Text1.SetFocus
End Sub



 Hasilnya :

4. Bahasa Pemrograman VB.NET
script code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim temp, d As String
        For a As Integer = 1 To Val(TextBox1.Text)
            For b As Integer = 1 To a
                temp &= " "
            Next
            For c As Integer = 1 To Val(TextBox1.Text)
                temp &= "*"
            Next

            ListBox1.Items.Add(temp)
            temp = ""
        Next

    End Sub
End Class

Hasilnya:

Download File
via ziddu
via mediafire