محبوبترینها
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
سیگنال در ترید چیست؟ بررسی انواع سیگنال در ترید
بهترین هدیه تولد برای متولدین زمستان: هدیه‌های کاربردی برای روزهای سرد
در خرید پارچه برزنتی به چه نکاتی باید توجه کنیم؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1829205284
سوال در مورد برنامه نویسی در پاسکال -
واضح آرشیو وب فارسی:سایت ریسک: سوال در مورد برنامه نویسی در پاسکال nimja 07 آذر 1386, 12:16سلام به همه دوستان میخواستم یه برنامه تو پاسکال بنویسم که در خروجی اعداد زیر رو به همین شکل نمایش بده: با استفاده از سه حلقه for خیلی ممنون the_king 07 آذر 1386, 15:20البته این برنامه را به راحتی میشه بدون هرگونه loop اضافی با دو حلقه for هم نوشت، یعنی چاپ کاراکترهای فاصله را هم با حلقه چاپ اعداد ترکیب کرد. uses crt; var i,j,k:integer; begin clrscr; for i:=1 to 4 do begin for j:=1 to 4-i do write(); for k:=1 to 2*i-1 do if (k>i) then write(i*2-k) else write(k); writeln; end; readkey; end. «کد برنامه PAS در داخل یک فایل zip شده ضمیمه این پست می باشد» nimja 07 آذر 1386, 16:40البته این برنامه را به راحتی میشه بدون هرگونه loop اضافی با دو حلقه for هم نوشت، یعنی چاپ کاراکترهای فاصله را هم با حلقه چاپ اعداد ترکیب کرد. uses crt; var i,j,k:integer; begin clrscr; for i:=1 to 4 do begin for j:=1 to 4-i do write(); for k:=1 to 2*i-1 do if (k>i) then write(i*2-k) else write(k); writeln; end; readkey; end. «کد برنامه PAS در داخل یک فایل zip شده ضمیمه این پست می باشد» خیلی خیلی مچکرم با 2 تا for که فرمودید چه طور میشه؟:neutral: nimja 08 آذر 1386, 11:26من هنوز منتظر هستم ها:oops: the_king 08 آذر 1386, 23:53شرمنده ام، برنامه رو نوشته بودم ولی یادم رفت پست بزنم. uses crt; var i,j:integer; begin clrscr; for i:=1 to 4 do begin for j:=1 to i+3 do if (j<=4-i) then write() else if (j>4) then write(4-j+i) else write(j+i-4); writeln; end; readkey; end. «کد برنامه PAS در داخل یک فایل zip شده ضمیمه این پست می باشد»
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 549]
-
گوناگون
پربازدیدترینها