Komentar

Jumat, 05 Juli 2013

POLA I

Posted by M Habibie 19.47, under | No comments





var
 
n:byte;
j, i : byte;
 



begin
 readln(n);
  
 for i:=1 to n do
 begin
  
 for j:=1 to n-i do
  
 write(#32);
 for j:=1 to i do
 write('*');
 writeln();
 end;
 
end.

0 komentar:

Posting Komentar

Your Ip Address

Your IP Address

IP

Popular Post

Popular Posts

  • Hymne Titian Teras
    Kami putra jambi Siswa titian teras menjunjung tinggi citra pribadi, luhur Demi cita-cita Demi kemerdekaan Rela berkorban ...
  • Pandangan saya terhadap Pemilu 2014
    Dalam beberapa hari lagi kita (indonesia) akan melaksanakan yaitu pemilihan umum Presiden dan wakil presiden. akan tetapi sekarang ini ...
  • Apa itu PHP dalam Bahasa Pemograman??
    PHP   adalah teknologi yang diperkenalkan tahun 1994 oleh Rasmus Lerdorf. Beberapa versi awal yang tidak dipublikasikan digunakan pada ...
  • Floor And Ceiling
    var   floor , ceiling :  longint ;   n :  real   ;
  • While
    var   kal:  string ;  
  • Nomor Urut menggunakan Array
    type  carnivora=(Singa,Puma,Macan,Beruang,Serigala,Musang,Kucing); var  bb: carnivora;  x:array[singa..kucing] of byte;
  • Galaxy Note 10.1
    VIVAnews  - Melanjutkan inovasi seri Galaxy Note, Samsung kembali meluncurkan produk tablet terbarunya, Galaxy Note 10.1. Tablet penerus...
  • Nevelostos
    Futsal ,, (?) saya awal ny bermain futsal hanya iseng" saja , ketika suatu masalah yang mengakibatkan saya di skor dalam di SMA say...
  • Cinta
    Cinta merupakan Anugrah terindah Karna tanpa cinta hidup seseorang akan terasa hampa Cinta juga bisa membuat orang menjadi sisi ...
  • Luas Segitiga
    var   a: longint ;   t: longint ;   l: real ;