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

Major II



نماد کاربر
پست ها

317

تشکر کرده: 0 مرتبه
تشکر شده: 0 مرتبه
تاريخ عضويت

سه شنبه 25 مهر 1385 10:00

محل سکونت

سرزمين آريايي

آرشيو سپاس: 23 مرتبه در 11 پست

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

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

دوستان من این برنامه رو برای تبدیل اعداد در مبنای 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

اگر نمی توانی بالا بروی پس سیب باش تا با افتادنت اندیشه ای بالا رود

Major II

Major II



نماد کاربر
پست ها

317

تشکر کرده: 0 مرتبه
تشکر شده: 0 مرتبه
تاريخ عضويت

سه شنبه 25 مهر 1385 10:00

محل سکونت

سرزمين آريايي

آرشيو سپاس: 23 مرتبه در 11 پست

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

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

یکی نیست کمک کنه؟

اگر نمی توانی بالا بروی پس سیب باش تا با افتادنت اندیشه ای بالا رود


 


  • موضوعات مشابه
    پاسخ ها
    بازديدها
    آخرين پست

چه کسي حاضر است ؟

کاربران حاضر در اين انجمن: بدون كاربران آنلاين و 1 مهمان