Bismillah


Breaking News

Terjemahan

English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified

Saturday, October 1, 2011

Mencetak Karakter berbentuk Belah Ketupat (Java)

Berikut adalah contoh program mencetak belah ketupak menggunakan kata yang merupakan inputan dari keyboard.
import java.io.*;
public class KarakterKetupat
{
    public static String nama() throws Exception
    {
        DataInputStream entri = new DataInputStream(System.in);
        System.out.print("Masukan Kalimat: ");
        String kal = entri.readLine();
        return kal;
    }
 
    public static void ProsesKetupat(String nama) throws Exception
    {
        int i,j,k,x,y,n;
        char str;
        k = nama.length()/2;
        x= k+1;
        y = k;
     
        for(i=0;i<x;i++)
        {
            for(j=0;j<nama.length();j++)
            {
                str = nama.charAt(j);
                if(j<=y && j>=k)
                    System.out.print(str+" ");
                else
                    System.out.print("  ");
            }
            k--;
            y++;
            System.out.println();     
        }
     
        x=x-1;
        k += 2;
        y -= 2;
     
        for(i=0;i<x;i++)
        {
            for(j=0;j<nama.length();j++)
            {
                str = nama.charAt(j);
                if(j<= y && j>=k)
                    System.out.print(str+" ");
                else
                    System.out.print("  ");
            }
            k++;
            y--;
            System.out.println();
        }
    }
 
    public static void main(String[] args) throws Exception
    {
           ProsesKetupat(nama());
       }
}

Print Out.

http://inlvchacomp.blogspot.com/
Sumber : http://ruang-informatika.blogspot.com/2011/06/berikut-adalah-contoh-program-mencetak.html

1 comment:

Link Exchange

Iq-Network Tips dan Trik komputer, Game dll http://gratisan92.blogspot.com/ Terselubung Sekali
Jika banner blog Anda mau di pasang silahkan komentar di Link Exchange
Designed By