القائمة الرئيسية

الصفحات

أحدث المواضيع[LastPost]

حلول حاسبات(المتسلسلات) مرحلة ثانية-هندسة ميكانيك-جامعة البصرة




بعض من اسئلة المتسلسلات

المحلووووووووووولة

موصى بها ..



(( تحميل ))







Q1/اكتب برنامجا بلغة فورتران لحساب مجموع 10 حدود من المتسلسلة التالية وطباعته :



! solution

real s,a,b,c,d

s=0

do i= 1,10

a=2*i)-1

b=2*i

C=a+2

d=b+2

s=s+((ac)/ (b*d))

end do

print*,'s=',s

end



Q2/اكتب برنامجا بلغة فورتران لطباعة 30 حد من حدود من المتسلسلة التالية :

                                                                   0, 1, 4, 5, 8, 9, 12, 13



! solution

real a

print*,0

doi=1,29

if(mod(1,2)==0)then

a=2*i

else

a=2'i]-1

end if

print*,a

end do

end

Q3/اكتب برنامجا بلغة فورتران لإيجاد مجموع المتسلسلة التالية وطباعته :


real j,x,sr

read*,x

S=0

doi=1,5

j=2'I

T=12j

s=str/(x**j])

end do

print*, 's=',s



end

Q4/اكتب برنامجا بلغة فور تران لحساب مجموع 20 حدا من حدود من المتسلسلة التالية وطباعته :




real a,b,c,i,fact,k,x,q

q=1

a=1

b=2

k=1

read*,x

do i=1,19

c=2*i

fact=1

do j=1,

fact=fact*j

end do

q=q+(k*(x**c)/(a* fact* fact))

a=a+b

b=b+1

k=k*-1

end do

print*,'q=',q

end

Q5/ اكتب برنامجا بلغة فور تران لحساب مجموع 20 حدا من حدود من المتسلسلة التالية وطباعته :



real::m,x,j,k,s

s=1

m=2

x=1

k=1

print*, cosx='s

do i=1,19

fact=1

do j=1,m

fact=fact*j

end do

S=s-((x** m)/(fact)*k)

k=k*(-1)

m=m+2

end do

print*, cosx=',s

end


Q6/اكتب برنامجا بلغة فورتران لحساب مجموع 10 حدود من المتسلسلة التالية وطباعته :




real q,m,fact,k 

q=0

k=1

do i= 1,10

m=2*i

fact=1

do j=1,m

fact=fact*j

end do

(q=q+ (fact/((m**2)-2))*k k=k* (-1

end do

print*,'q=',q

end


Q7/ اكتب برنامجا بلغة فور تران لحساب مجموع 15حد من حدود من المتسلسلة التالية وطباعته :




real (kind=8)::S

real m,r,x,k,c,i,s1,52,53

s=3.5

r=1

k=-1

C=1

i=2

read*,x

print*,s

do

m=(i**2)-i

fact=1

do j=1,m

fact=fact*j

end do

f=i-1

s2=r*x

s3=(c*((R**2)+(4*f)))

s1=((s2+3)/fact)*k

S=S+s1

k=k* (-1)

C=c*(-1)

r=r+2

i=i+1

end do

print*, 's=',s

end


Q8/اكتب برنامجا بلغة فورتران لحساب مجموع الأعداد الزوجية والأعداد الفردية المحصورة بين (0-100).


integer odd, even
even=0
odd=0
do i=0,100 if(mod(1,2)==0)then
even=eventi
else
odd=odd+i
end if
end do
print*, 'sum of odd numbers=',odd
print*, 'sum of even numbers=',even
end


Q9/اكتب برنامجا بلغة فور تران لحساب مجموع 10 حدود من المتوالية التالية وطباعته :

real s,n,m,k
s=0

m=1
n=1
k=1

do i=1,10
fact=1

do j=1,m
fact=fact*j
end do
n=n*m

(s=s+(n/fact*k
(k=k*(-1
m=m+2

end do
print*,'sum=',s
end



Q10/اكتب برنامج بلغة فورتران يقوم بحساب وطباعة جدول الضرب




real::f
do i=1,10
do j=1,10
f=i*j
print*,f
end do
end do
end







Q11/ واكتب برنامجا بلغة فورتران لإيجاد مجموع المتوالية التالية وطباعته:




real x, fact,m,q,q1

q=0

k=1

m=2

read*,n,x

do

i=1,n

m=i+1

fact=1

do j=1,m

fact=fact*j

end do

q1=(k*(x**i)/fact)

q=q+q1

k=k* (-1)

end do

print*,'q=',q

end








Q12/ اكتب برنامجا بلغة فورتران لحساب مجموع 20 حدا من حدود من المتسلسلة التالية وطباعته :


S=N+3N²+5N³+8N⁴+12N⁵



real na

read*,n

S=n

a=3

do i=2,20

s=s+a*n**1)

a=a+i

end do

print*,'s=',s

end






.


هل اعجبك الموضوع :
author-img
هدفي هو التطوير من ذاتي ثم الاستفادة ثم تطوير غيري

تعليقات

التنقل السريع