Cetak belah ketupat pada pascal

Cetak belah ketupat pada pascal

Create: ridux | Rabu, 21 Mei 2014 | 20:53:41 WITA | dibaca: 6884

Assalamualaikum warahmatullahi wabarakatu, kali ini saya ingin share tentang cara membuat listing cetak belah ketupat pada pascal. berikut ini adalah listing programnya :

 

 

uses crt;
var a,b,c : byte;
begin
clrscr; 
    b:=1;
        for a:=1 to 5 do
        begin
           for c:=1 to 5-a do
           write(' ');
           for b:=a downto b do
           write('|',' ');
           writeln;
           end;
           for a:=1 to 4 do
           begin
           for b:=1 to a do write(' ');
           for c:=4 downto a  do
           write('|',' ');
           writeln;     
        end;
readln;
end.

outputnya :

 


 selamat mencoba ...

#Disini kita bertemu untuk sesuatu yang mulia



11 KOMENTAR

obat pelangsing paten | 08 Juli 2014 || 14:29:53
" artikelnya sangat bagus sekali.. sangat bermanfaat sekali.. semoga semakin sukses slalu websitenya "
Bandar Bola | 10 Oktober 2015 || 13:52:04
" Terima kasih atas info yang sangat menarik ini gan =)) Kunjungi balik blog ane ya gan :D http://clayton88.blogspot.com | http://goo.gl/lNMX3D | http://goo.gl/sCBswn | www.Babapoker.com | http://bit.ly/1NM7v7j | www.Ingatpoker.com | http://goo.gl/eQV9d3 | http://tinyurl.com/plzqfn6 | http://informasiberitatop.blogspot.com | www.Axioobet.com | http://goo.gl/cAQcMp | http://goo.gl/tw2ZtP | www.Bapakpoker.com | http://bit.ly/1SBm0g2 | http://goo.gl/97Yn1s | http://goo.gl/RkuB4G | http://goo.gl/8rM20b "
kompasqq | 21 Maret 2017 || 10:02:12
" KompasQQ merupakan salah satu situs Judi Online indonesia paling terpercaya yang pernah ada. Dengan permainan yang 100 % Fair bet dan tentunya bebas settingan. Selain itu juga di situs ini anda dapat bermain dengan hanya menggunakan 1 User Id untuk 7 Permainan di dalamnya. 7 Permainan yang sediakan oleh KompasQQ diantaranya adalah : #BANDARPOKER #POKER #CAPSASUSUN #DOMINOQQ #BANDARQ #ADUQ #SAKONG (NEW GAMES ) Dan juga tambahan permainan menarik lainya yang dapat anda nikmati diantarannya : #Fish Hunter - ( Tembak Ikan ) www.gg626.com #Cock Fighting - ( Sabung Ayam ) www.s128.net #Mesin Slot Game - ( Roulette ) www.Joker123.net Bonus yang disediakan oleh KompasQQ juga sangat menarik yakni diantaranya: • Bonus CASHBACK sebesar 0.5% (Setiap minggunya) • Bonus REFRENSI sebesar 10%+10% = (20% untuk seumur hidup) Semua permainan itu dapat anda mainkan dengan hanya bemodalkan minimal Deposit Rp.15.000 saja. Jadi tunggu apalagi? Langsung saja daftarkan diri anda di situs Kompasqq.info atau anda bisa melakukan Pendaftaran/Registrasi by Referral : https://goo.gl/n6g8xD atau add PIN Bbm 7BD4C69C atau 7B66BFC1 "
metroqq | 20 April 2017 || 04:52:44
" Proses Deposit & WD tercepat hanya di METROQQ Permainan fair tanpa Bot, Tanpa Admin 100% Player Vs Player Dapatkan Bonus Menarik Setiap Harinya • Bonus Turnover 0.3 - 0.5% (Dibagikan setiap hari Senin) • Bonus Referal 10% + 10% (Seumur Hidup) Mari bergabung dengan cindy disini : http://bit.ly/2nQGEit "
tribunqq | 28 April 2017 || 02:20:52
" TRIBUNQQ.NET AGEN POKER ONLINE TERBESAR & TERPECAYA 2017 | MEMBER vs MEMBER 100% NO ROBOT. PROSES CEPAT & MUDAH. CUSTOMER SERVICE 24JAM ONLINE. PROMO BANYAK. Bonus CashBack Sebesar 0,5% setiap senin Bonus Referral sebesar 20% berlaku seumur hidup Permainan yang kami sediakan saat ini : Poker, Domino99, Bandar Poker, BandarQ, Bandar Sakong (Segera Hadir) Supported 5 Bank Lokal Minimal Depo & WD : Rp 15.000,- Yuk segera bergabung bersama kami dan menangkan hadiah hingga RATUSAN JUTA RUPIAH !! Mau langsung daftar ? Kunjungi Website resmi kami hanya di WWW.TRIBUNQQ.NET http://bit.ly/2pPXgdG "
METROQQ | 25 Oktober 2017 || 15:06:24
" POKER LOVERS AYO MERAPAT DI http://bit.ly/2ofc0ma METROQQ Menyediakan Games Seru Diantaranya : -BANDAR POKER -BANDAR QQ -DOMINO QQ -BANDAR SAKONG METROQQ juga menyedia kan games lainnya seperti : -GAME FISH HUNTER -SABUNG AYAM -ADUQ Hanya Dengan Deposit MINIMAL Rp 15.000 Anda sudah bisa memainkan 4 games seru dan asik yang sudah disediakan METRO QQ Menyediakan BONUS-BONUS Untuk ANDA Diantaranya : -BONUS REFERRAL 20% (SEUMUR HIDUP/SETIAP SENIN ) -BONUS TUROVER 0.3 - 0.5 % ( SETIAP HARI ) -NO ROBOT,NO ADMIT -Mentransaksi Deposit dan Withdraw Dengan Cepat -Dilayani CS Yang Ramah Dan Profesional, Siap Melayani Para Member Setia Selama 24jam Full -DiLayanin Dengan 6 banks :BCA,BNI,BRI,DANAMON,MANDIRI,CIMB NIAGA Untuk Info Contact Dan Customer Service Kami, Anda Bisa Menghubungi Kami Di : PIN BBM : 2BE32842 SKYPE : Metro.QQ Facebook : metroqq.id999@gmail.com Twitter : @MetroQQ [img]https://i.imgur.com/apBZnrB.jpg[/img] "
pokemesh app | 07 November 2017 || 17:27:35
" Download the latest version PokeMesh APK for Android from the link provided below. PokeMesh APK free Download 2017 Latest Version, Pokemesh APK is available and now the latest version for Android pokemesh online.Download PokeMesh Real Time Map For Windows PC & Mac. "
Happy New Year 2018 Pictures | 15 Desember 2017 || 17:09:06
" It’s the time when individuals begin sharing Happy New Year 2018 Images pictures flags, hd pictures, cards, cut craftsmanship among loved ones to welcome another year taking care of business. "
ivtightgelreviews.com | 02 Januari 2018 || 12:17:17
" V-Tight is a gel that promises to tighten vagina naturally and reverse the loss of elasticity. Read v tight gel reviews to know more about this gel.how much does v tight gel cost v-tight gel in nigeria v tight gel instructions v-tight gel price in india is v tight gel permanent v-tight gel cost. "
Sex Toy Wanita | 13 Januari 2018 || 06:55:16
" thanks ypu infona "
solar movies | 17 Januari 2018 || 16:25:37
" Solar Movie is such a platform wic provides the online streaming links of movies from the different site you wish to watch. "



ISI KOMENTAR

NAMA

WEBSITE

KOMENTAR


Captcha Sepakbola
Apakah anda manusia?Lebih baik lagi kalau anda menyukai sepak bola
Sebutkan pemain sepak bola disamping:

Captcha Sepakbola by codingwear








  • $DCC = NEW XXI("Solidaritas","Loyalitas","Kualitas");
  • PELATIHAN KAMPUS
  • Pelatihan Komputer (DIGITAL SCHOOL)
  • Study Tour GoTv
  • IT FUN