Sabtu, 14 Juli 2012

Kamis, 05 Juli 2012

PROGRAM SEGITIGA

PROGRAM SEGITIGA PASCAL


uses wincrt;

var
n,i,j:integer;
x:array [1..100,1..100] of integer;

begin
    write('masukkan jumlah baris : '); readln(n);
    for i:=1 to n do
        for j:=1 to i do
            begin
                if j=1 then x[i,j]:=1
                else if j=i then x[i,j]:=1
                else x[i,j]:=x[i-1,j-1]+x[i-1,j]
            end;
    for i:=1 to n do
        begin
            gotoxy (40-3*i,2+1);
            for j:=1 to i do
                write(x[i,j]:6);
        end;
end.

Senin, 02 Juli 2012

Seorang pelukis

Profil
Nama  : Kadek Ary Maharyasa
TTL    : Batuan, 5 Januari 1989


Semua individu diciptakan oleh Tuhan Yang Maha Esa selalu dibarengi dengan keahlian dan kekurangan, begitu pula kakak saya yang satu ini, :)

Dek arik, begitu saya sering memanggilnya, kakak kedua saya ini mempunyai keahlian dibidang melukis, dan sudah barang tentu dia juga memiliki kekurangan seperti yang telah saya jelaskan sebelumnya.

Sekarang (2012) ia adalah masih berstatus sebagai seorang mahasiswa di salah satu Institut kesenian di Bali, yakni Institut Seni Indonesia Denpasar. Ia mengambil jurusan Seni Lukis Modern.

Ya, bakat seninya ini telah diketahui oleh kedua orang tua saya sewaktu ia masih berumur 6 tahun (sedangkan saya baru berumur 2 tahun,hehe) saat ia masih berada pada bangku TK dimana pada saat itu ia menjadi juara pada lomba menggambar di luar kota.

suatu kebanggaan saya memiliki kakak seperti dia, walaupun dengan keterbatasan keluarga dan kemampuannya, ia masih terus berkarya. cita - citanya adalah memiliki sebuah art shop dan studio lukis pribadinya. :). Astungkara bisa terwujud kk...