برامج في المصفوفات

س1: اكتب برنامج يقوم بأدخال عناصر مصفوفة احادية مكونة من 13 عنصراً والتي هي عبارة عن مكعبات الاعداد من 1 الى 13 ثم يقوم بطباعتها؟

الجواب:
dim A(12) as long
for k=0 TO 12
A(k) = (k+1)^3
print A(k)
next k

س2: اكتب برنامج يدخل عناصر مصفوفة احادية مكونة من 20 عنصراً والتي هي عبارة عن جذور الاعداد من 1 الى 20 ؟ ثم يقوم بما يلي:
1-حساب مجموع عناصر المصفوفة.
2-حساب مجموع مربعات عناصر المصفوفة.
3-كباعة قيم جييب تمام عناصر المصفوفة.

الجواب:
dim a(19) as single
sum1=0
sum2=0
for i =0 TO 19
a(i)= sqr(i)
next i
for i =0 TO 19
sum1=sum1+a(i)
next i
print sum1
for i = 0 TO 19
sum2=sum2+(a(i) ^ 2 )
next i
print sum2
for i=0 TO 19
z=a(i)
print cos(z)
next i

» برامج أضافيه في الفيجول بيسك
» برامج السي++ مع التحليل العددي