Blogfa - mmaprogram.blogfa.com
General Information:
Latest News:
چاپ آرایه جدول ضربی 6 Feb 2009 | 09:13 am
پاسخ سئوال آقای پرهیزکاری Private sub command1_click() Dim x(1 to 10, 1 to 10) as integer for i=1 to 10 for j=1 to 10 x(i,j)=i*j next j next i for i=1 to 10 for j=1 to 10 print x(i,j);" "...
حل تمرین 15 Jan 2009 | 11:30 am
برنامه های پاسکال محاسبه مجموع ۱ تا ۱۰۰ Program Test; Var i,sum:Integer; Begin Sum:=0; For i:=1 to 100 Do Sum:=sum+i; Writeln('Sum 1 to 100 is :' , Sum); End. محاسبه مجموع 100 عدد خوان...
