سلام دوستان

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

Grogram    faktoril;

Var

I,h : integer ;

A:array[1..201] of integer;

Begin

             For I := 1  to 201 do

             Readln (a[i]);

             H : = 0;

             For I := 1  to 201  do

             H : = a[i] * h ;

             Write ( "faktoril ="  h );

End.              

اگر مشکلی داشت بهم بگید .

خوش باشید.

سلام

یکی از دوستان لطف کردن و یک برنامه ای رو گفتن که بنویسم و تو نوشتن این برنامه یه تاخیری افتاد و نشد به موقع جوابشون رو بدم . اول اینکه من ازشون عذر خواهی می کنم که کمی دیر شد . سعی می کنم تو اولین فرست این کار رو بکنم . و اما سوالی که پرسیدن این بود که (برنامه ای بنویسید که توانایی محاسبه فاکتوریل اعداد 1 تا 201 باشد.) اما در باره این سوال باید بگم که نگفته بودن که باچه برنامه ای براشون بنویسم و من هم سعی میکنم با استفاده از برنامه پاسکال جوابشون رو بدم .

و اما تنها مسئله ای که می مونه اینه که فکر کنم بعضی از دوستان نمی خوان برنامه نویسی کار کنند و یاد بگیرندباز هم می گم من برنامه نویسی رو تازه شروع کردم و می خوام تو این کار موفق بشم و به خاطر این می خوام تو وبلاگم در باره برنامه نویسی بحث کنم و می خوام بیشتر روش کار کنم .

خوش باشید .