بعض من اسئلة المتسلسلات
المحلووووووووووولة
موصى بها ..
(( تحميل ))
المحلووووووووووولة
موصى بها ..
(( تحميل ))
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
.
