برنامه ای بنویسید که شکل  زیر را چاپ کند.

;program a1

;uses crt

var

;i,j,p,m,n,a,b,c,d,e,q,w,s:integer

begin

;clrscr                                                      **********   **********

for i:=10 downto 1 do                                *********       *********

begin                                                       ********           ********

for j:=1 to i do                                         *******               *******

;(‘*’)write                                               ******                   ******

for p:=10-i downto 1 do                            *****                      *****

;(‘ ‘)write                                                ****                          ****

;(‘    ‘)write                                            ***                              ***

for m:=10 -i downto 1 do                        **                                 **

;(‘ *

for n:=1 to i do                                      *                                    *

;writeln                                                ***                             ***

;end                                                    ****                          ****

for a:=1 to 10 do                                 *****                      *****

begin                                                  ******                  ******

for b:=1 to a do                                  *******              *******

;(‘*’)write                                           ********          ********

for c:=10-a downto 1 do                     *********      *********

;(‘ ‘)write                                          **********   **********

;(‘    ‘)write

for d:=10-a downto 1 do

;(‘ ‘)write

for e:=1 to a do

;(‘*’)write

;writeln

;end

;readln

.end

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: