+62 852-4056-7490 •

Artikel

Cetak Belah Ketupat Pada Pascal

ridux 3 Comments Mei 21, 2014
img

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


Tags: pascal dCc

3 Comments

reply

John Doe

June 29, 2014 - 11:23 Proin eget tortor risus. Cras ultricies ligula sed magna dictum porta. Pellentesque in ipsum id orci porta dapibus. Lorem ipsum dolor sit amet, consectetur adipiscing elit.
reply

Diana Doe

June 29, 2014 - 11:23 Proin eget tortor risus. Cras ultricies ligula sed magna dictum porta. Pellentesque in ipsum id orci porta dapibus. Lorem ipsum dolor sit amet, consectetur adipiscing elit.
reply

Melissa Doe

June 29, 2014 - 11:23 Proin eget tortor risus. Cras ultricies ligula sed magna dictum porta. Pellentesque in ipsum id orci porta dapibus. Lorem ipsum dolor sit amet, consectetur adipiscing elit.

Peter Doe

June 29, 2014 - 11:23 Proin eget tortor risus. Cras ultricies ligula sed magna dictum porta. Pellentesque in ipsum id orci porta dapibus. Lorem ipsum dolor sit amet, consectetur adipiscing elit.

Leave a reply Your email address will not be published.