نحوه کار با این آرایه چگونه است؟

[mohammadsaleh]

آرایه ای شامل اعداد اول (3,5,7,11,13,17,19,23,29,31,37,41,43,47,53) داریم. قصد داریم هر عددی که به برنامه می دهیم از سمت راست عدد مورد نظر ما یک به یک در آرایه ضرب نموده و در انتها جمع حاصلضرب را به ما بدهد. این آرایه شامل 15 عدد می باشد. عددی که به ورودی می دهیم نباید بیشتر از 15 رقم باشد. بازای تعداد ارقام کمتر اعداد آرایه در صفر ضرب می شوند

فرض کنید قصد عملیات بر روی عدد 2589 را داریم.
این عملیات باید انجام شود:

9 ضربدر 53 + 8 ضربدر 47 + 5 ضربدر 43 + 2 ضربدر 41+ ( 11 رقم بعدی را باید صفر در نظر بگیریم )
در حقیقت تابعی می خواهیم که با تشخیص طول عدد ورودی هر یک از اعداد عدد اصلی را در عدد آرایه از سمت ضرب نماید

[mazoolagh]

کافی هست با format ، سمت چپ عدد رو با 0 پر کنین به شکلی که طول اون کلا 15 کارآکتر بشه؛
بعدش دیگه ساده است:


function f(N as string) as long
dim primes
primes=array(3 , ... , 53)
N=format(N , string$(15,"0"))
dim i as integer
f=0
for i=1 to 15
f=f + primes(i-1) * mid(n,i,1)
next
end function


کد بررسی صحت عدد از نظر تعداد ارقام به عهده خودتون.

[mohammadsaleh]

کافی هست با format ، سمت چپ عدد رو با 0 پر کنین به شکلی که طول اون کلا 15 کارآکتر بشه؛
بعدش دیگه ساده است:


function f(N as string) as long
dim primes
primes=array(3 , ... , 53)
N=format(N , string$(15,"0"))
dim i as integer
f=0
for i=1 to 15
f=f + primes(i-1) * mid(n,i,1)
next
end function


کد بررسی صحت عدد از نظر تعداد ارقام به عهده خودتون.




سلام. تشکر استاد