برنامه نویسی در فرترن

در اين بخش مي‌توانيد به مباحث مربوط به انواع زبان هاي برنامه نويسي بپردازيد

مدیران انجمن: athlon64x2, abbas.m.k, شوراي نظارت

ارسال پست
Major II
Major II
نمایه کاربر
پست: 317
تاریخ عضویت: سه شنبه 25 مهر 1385, 10:00 am
محل اقامت: سرزمين آريايي
سپاس‌های ارسالی: 25 بار
سپاس‌های دریافتی: 20 بار

برنامه نویسی در فرترن

پست توسط Mamool » دو شنبه 16 دی 1387, 11:37 am

دوستان من این برنامه رو برای تبدیل اعداد در مبنای 8 به مبنای 10 در زبان فرترن نوشتم ولی یه مشکل دارم اونم اینه که نمیدونم چطوری به وسیله برنامه تعداد ارقام عددهای ورودی توسط کاربر رو قبل و بعد از ممیز بشمارم البته عدد دلخواه خواهد بود که من محدود به 1000 رقم کردم .(واسه همین باید تعدادتوسط کاربر بوسیله پارامترهای e,f وارد بشه که خوشایند نیست!)

real::a(1000)
c=0
d=0
read(*,*) e,f
if (e+f<=1000) then
read(*,*) (a(i),i=1,e+f)
if (e>0)then
do i=e,1,-1
c=8**(e-i)*a(i)+c
enddo
endif
if (f>0) then
do i=e+1,e+f
d=a(i)*8**(e-i)+d
enddo
endif
endif
s=c+d
write(*,*) 'number=',s
end
[FONT=Microsoft Sans Serif]
  نمی توانی بالا بروی پس سیب باش تا با افتادنت اندیشه ای بالا  
 

Major II
Major II
نمایه کاربر
پست: 317
تاریخ عضویت: سه شنبه 25 مهر 1385, 10:00 am
محل اقامت: سرزمين آريايي
سپاس‌های ارسالی: 25 بار
سپاس‌های دریافتی: 20 بار

Re: برنامه نویسی در فرترن

پست توسط Mamool » سه شنبه 17 دی 1387, 12:31 pm

یکی نیست کمک کنه؟
[FONT=Microsoft Sans Serif]
  نمی توانی بالا بروی پس سیب باش تا با افتادنت اندیشه ای بالا  
 

ارسال پست

بازگشت به “برنامه نويسي”