درخواست یه برنامه با پاسکال

سلام
میخواستم با پاسکال یه برنامه بهم بدید که خروجیش این باشه:::
*
* *
* * *
* * * *

hoseinquest جون بفرما:

کد:

---

http://file.uploadr.com/3710

---

;)

ساسان جان اون برنامه اي كه گفتي فقط براي 4 تا ستاره هست ولي اگه بخواهيم تا مثلا 100 تا ستاره پيش بره اونوقت مجبور ميشيم 100 تا دستور write بزاريم. با اين برنامه كه اين زير مي نويسم راحت مي تونين تا هر مقدار كه بخواهين پيش برين .

کد:

---

uses crt;
var n,i,j:integer;
begin
clrscr;
write('please enter number of * : ');readln(n);
clrscr;
for i:=1 to n do
begin
  for j:=1 to i do
  write('*');
writeln;
end;
end.

---

خروجي برنامه بالا به شكل زير ميشه :

کد:

---

×
××
×××
××××

---

اينم يكي ديگه :

کد:

---

uses crt;
var n,i,j:integer;
begin
clrscr;
write('please enter number of * : ');readln(n);
clrscr;
for i:=n downto 1 do
begin
  for j:=1 to i do
  write('*');
writeln;
end;
end.

---

خروجي به شكل زير است :

کد:

---

××××
×××
××
×

---

رضا جون ممنون خودم میدونستم ولی ایشون هم معلوم بود تازه کاره باید یه جوری آموزشش میدادی که مطلبو بگیره وگرنه با یک حلقه ی for دقیقا مثل برنامه ی شما میتوان این کار را به تعداد دلخواه انجام داد:);)

ساسان جان اگر هم آقا حسن تازه كار باشه بهتره از همين الان راه اصولي رو ياد بگيره .
خوب با اين برنامه’ شما و برنامه’ من فكر كنم ديگه موضوع تكميل و حل شده باشه. ;) :biggrin:

نقل قول:

---

با یک حلقه ی for دقیقا مثل برنامه ی شما میتوان این کار را به تعداد دلخواه انجام داد

---

اگه لازم باشه بدون حلقه for و while و ... هم ميشه اين برنامه رو براي 1000 تا ستاره هم نوشت. :cool:

رضا جون آره میشه ولی ..........
من خودم پاسکال رو یه ذرشو بلدم شماها حرفه اید:);)

ممنونم از تون

حسين جون اميدوارم به دردت خورده باشه.
ساسان جون منم هيچي بارم نيست ;) :rolleye:

سلام
بنده به تازگي در اين سايت عضو شدم و نميدانم كه چطور ميتونم سوال كنم وجواب بگيرم الان هم نميدونم اصلا ايني كه دارم مينويسم ارسال ميشه يا نه و نميدونم كه اين نوشته رو چه كسي ميخونه و سوالاتم در مورد برنامه نويسي به زبان پاسكال است
اصلا دلم نميخواد مايوس بشم و با اين سايت بسيار جالب براي هميشه خداحافظي كنم
لطفا به اين ادرس مرا كمك كنيد [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] با عرض پوزش احمد ياراد

سلام
یه برنامه با پاسکال میخوام که انتگرال sinxdx رو از 0 تا pi (عدد پی) حساب کنه. ممنون
لطفا سریع تر عجله دارم.