• پایان فعالیت بخشهای انجمن: امکان ایجاد موضوع یا نوشته جدید برای عموم کاربران غیرفعال شده است

يك مسئله؟لطفا كمك كنيد

arkdvi

کاربر فعال دوربین دیجیتال
کاربر فعال
تاریخ عضویت
3 فوریه 2007
نوشته‌ها
506
لایک‌ها
0
سن
40
محل سکونت
Gorgan
سلام
كسي هست اين مسئله رو حل كنه؟

برنامه اي بنويسيد كه n را گرفته و n رديف از اعداد را مطابق شكل چاپ كند

Untitled%201.gif


بصورت هرمي
 

Mehdi.T

کاربر فعال برنامه نویسی
کاربر فعال
تاریخ عضویت
30 سپتامبر 2005
نوشته‌ها
506
لایک‌ها
3
محل سکونت
In Search of Sunrise
من چند سال پيش اينو با پاسكال نوشتم توضيحش يادم نيست
:
کد:
program Tahmasebi_Mehdi ;
uses wincrt ;
var
   i,j,a,help,k : integer ;

begin

a:= 5 ;
help := 1 ;
for i := 5 downto 1 do
begin
    write( i:a-i+help ) ;
    j := 1 ;

    for j := 1 to a-help do
        write(' ' ,i+j);

    for k := 1 to a-help do
        write(' ' ,i+j-k);

    help := help + 1 ;
    writeln;
end

end.
 

arkdvi

کاربر فعال دوربین دیجیتال
کاربر فعال
تاریخ عضویت
3 فوریه 2007
نوشته‌ها
506
لایک‌ها
0
سن
40
محل سکونت
Gorgan
firebird و MehdiTeh عزيز ممنون و متشكرم . دقيقا همون چيزهايي كه مي خواستم:happy:
 
بالا