2 سوال پاسکال

[mahsa_k61]

سلام. قبل از هرچیز از سایت و راهنمایی های دقیق تان تشکر می کنم. من یه سوال در رابطه با برنامه نویسی پاسکال دارم. راستش من برنامه نویسی پاسکالم اصلا خوب نیست. اگه میشه کد این دو تا برنامه رو برام بنویسین.
1- کد برنامه ای رو می خوستم که بتونه یک رشته را معکوس کنه.
2-برنامه ای که بتونه شکل زیر را برای n سطر چاپ کنه. یعنی در نهایت دو مثلث کنار هم داشته باشیم.

* *
** **
*** ***
**** ****
*********

ممنونم.

[NoneForce]

سلام
1- برعكس كردن رشته : رشته بصورت يكصري از كاراكترهاي پشت سرم هم است. براي برعكس كردن كافي است رشته را از آخر به اول بخوانيد و در يك رشته ديگر بريزيد :

for i := length(strInput) downto 1 do
strOutPut := strOutPut + strInput[i];
Writeln(strOutPut);

2-
for i := 1 to n do
begin
for j := 1 to i do
write('*');
writeln;
end;

اميدوارم ترم اول باشيد و اين پايان نامتون نباشه!

[mahsa_k61]

از محبتتون یه دنیا ممنون. من دات نت کار می کنم و خیلی وقته از محیط پاسکال و سی و ... دور شدم. به هر صورت کمک بزرگی کردید.

[NoneForce]

سلام
راستش اگر نميگفتيد دات نت كار مي كنيد شايد چيزي بهتون نميگفتم ولي اين چيزي كه من نوشتم اصلا ربطي به برنامه نويسي نداره يك منطق ساده است در كل هم از 2 تا دستور استفاده كردم!
اميدوارم ناراحت نشيد ولي به بعضي از سوالاتي كه اينجا طرح مي شود بايد يك جواب غير كامپوتري هم اضافه كرد.