Recent content by scorpino

این برنامه رو برات نوشتم اما اعداد رو از آخر به اول چاپ میکنه! یعنی اول آخرین عدد رو ..تا برسه به اولین عدد! program adad; uses crt,dos; var number,b:integer; Begin write('Please enter a number : '); readln(number); while number>0 do begin b=number mod 10...

توی پاسکال بحثی بود به نام طول میدان خروجی ها و... از اون برای خروجی استفاده کن.. یا میتونی از تابع round() استفاده کنی برای اون متغییر هایی که اعشاری نشون میدن... خودتم یکم تلاش کن که برنامه نویس بشی... موفق باشی...

به نام خدا پاسکال زیاد یادم نمونده چون زیاد ازش خوشم نمیومد.این کد رو تند تند توی نت پد نوشتم واست... تست کن ببین کار میکنه یا نه... program test; uses dos,wincrt; var a,b,c,i,sum:integer; BEGIN {start of program} write('tedade mavarede kharid ra benevisid:'); readln(a); for i:=1 to a do begin...

برای من هم بفرستین لطفا: [email protected]