دانلود آموزش فرترن

[M!Zare 48,037]

132 صفحه آموزش فارسی فرترن 90

برای مشاهده این محتوا لطفاً ثبت نام کنید یا وارد شوید.

• ورود
• یا
• ثبت نام

[M!Zare 48,037]

هندبوک آموزشی 835 صفحه ای فرترن 90 (زبان اصلی)

برای مشاهده این محتوا لطفاً ثبت نام کنید یا وارد شوید.

• ورود
• یا
• ثبت نام

[baybak 4,434]

132 صفحه آموزش فرترن 90

برای مشاهده این محتوا لطفاً ثبت نام کنید یا وارد شوید.

• ورود
• یا
• ثبت نام

ممنون ما این ترم فرترن می خونیم در درس برنامه نویسی کامپیوتری..من فرترن 95 رو دانلود کردم خیلی خوبه از 90 بهتره دیگه نیازی با کامپایل اینا نیست ...

حدود 10 15 تا برنامه دارم که تمرینامونه نوشتم خواستین اینجا میزارمش

[M!Zare 48,037]

ممنون ما این ترم فرترن می خونیم در درس برنامه نویسی کامپیوتری..من فرترن 95 رو دانلود کردم خیلی خوبه از 90 بهتره دیگه نیازی با کامپایل اینا نیست ...

حدود 10 15 تا برنامه دارم که تمرینامونه نوشتم خواستین اینجا میزارمش

سلام.ممنون از توضیحاتتون.من تازه تصمیم گرفتم این برنامه رو یاد بگیرم،بنابراین زیاد باهاش آشنا نیستم.شما هم لطفا برنامه های خودتون رو قرار بدید.

[baybak 4,434]

این 4 تا برنامه که خودم نوشتم و امتحانش هم کرد ...

 

 

برای مشاهده این محتوا لطفاً ثبت نام کنید یا وارد شوید.

• ورود
• یا
• ثبت نام

[بیگلی 110]

میشه برنامه فرترن 95 رو قرار دهید.

[baybak 4,434]

میشه برنامه فرترن 95 رو قرار دهید.

 

300 مگ هستش..می تونی دانلودش کنی؟

[M!Zare 48,037]

300 مگ هستش..می تونی دانلودش کنی؟

اگر برنامه رو قرار بدید ممنون میشم

[بیگلی 110]

300 مگ هستش..می تونی دانلودش کنی؟

نه.متشکر.خیلی زیاده.

[baybak 4,434]

اگر برنامه رو قرار بدید ممنون میشم

 

این هم برنامه فرترن 95 ..البته بگم 90 روزه هست ها ..

 

برای مشاهده این محتوا لطفاً ثبت نام کنید یا وارد شوید.

• ورود
• یا
• ثبت نام

[baybak 4,434]

می تونید راهنمایی کنید؟

 

1: برنامه ای بنویسید که 100 عضو اول سری فیبوناچی را چاپ کند. 1.1.2.3.5.8.13...

2:عدد پی(3.14)=4(1-1/3+1/5-1/7....) برنامه ای بنویسید که این سری عدد پی را محاسبه کند.

3:برنامه ای بنویسید که بسط زیر را که تعریف تابع سینوسی هست را محاسبه کند؟

sin x=x-x*3/3l +x*5/5l -x*7/7l+...n

[artarya 16]

سلام

چطور میتونیم تو برنامه فرترن یه فایل دیتا رو به رشته تبدیل کنیم؟

[b-d 2,058]

برنامه ای بنویسید ماتریس n*n را چاپ کند.

program tamrin5

implicit none

 

integer,parameter::max=30

 

integer::p,q

 

real,dimension(max,max)::a

 

 

print*,"Size of A:"

 

read*,a(max,max)

 

 

do p=1,a(max,max)

 

do q=1,a(max,max)

 

print*,p,q

 

read*,a(p,q)

 

end do

 

end do

 

 

print*,"determinant=",determination(a)

 

 

contains

 

 

subroutine noij(a, b, i, j)

 

implicit none

 

real,dimension(max,max)::a,b

 

integer::i,j,ii,jj,iii,jjj

 

iii=1

 

do ii=1,a(max,max)

 

if(ii .NE. i)then

 

jjj=1

 

do jj=1,a(max,max)

 

if(jj .NE. j)then

 

b(iii,jjj)=a(ii,jj)

 

jjj=jjj+1

 

end if

 

end do

 

iii=iii+1

 

end if

 

end do

 

b(max,max)=a(max,max)-1

 

end subroutine

 

 

recursive function determination(a) result(d)

 

implicit none

 

real,dimension(max,max)::a, b

 

real::d,dd

 

integer::i

 

if(a(max,max) .EQ. 1)then

 

d=a(1,1)

 

elseif(a(max,max) .EQ. 2)then

 

d=a(1,1)*a(2,2)-a(2,1)*a(1,2)

 

else

 

dd=0

 

do i=1,a(max,max)

 

call noij(a, b, i, 1)

 

dd=dd+((-1)**a(i,1))*determination(b)

 

end do

 

d=dd

 

endif

 

end function

 

 

end tamrin5

[b-d 2,058]

حجم متوازی السطوح را با استفاده از a.(b*c محاسبه و چاپ نماید

 

A=(a1,a2,a3)

B=(b1,b2,b3)

C=(c1,c2,c3)

 

 

 

program tamrin4

implicit none

real,dimension(3)::a,b,c

integer::x=1,y=2,z=3

real::v

print*,"Enter A:"

read*,a(x),a(y),a(z)

print*,"Enter B:"

read*,b(x),b(y),b(z)

print*,"Enter C:"

read*,c(x),c(y),c(z)

v=(a(x)*b(y)*c(z)+a(y)*b(z)*c(x)+a(z)*b(x)*c(y))

(a(z)*b(y)*c(x)+a(x)*b(z)*c(y)+a(y)*b(x)*c(z))

print*,"V=",v

end tamrin4

[b-d 2,058]

اگر p1 و p2 دو نقطه در فضا باشند با استفاده از مفهوم آرایه برنامه ای بنویسید که فاصله دو نقطه را محاسبه

کند.

P1(x1,x2,x3)

P2(b1,b2,b3)

 

 

program tamrin1

implicit none

real,dimension(3)::p1,p2

integer::x=1,y=2,z=3

real::d

print *,"Enter point p1: "

read *,p1(x),p1(y),p1(z)

print *,"Enter point p2: "

read *,p2(x),p2(y),p2(z)

d=sqrt((p1(x)-p2(x))**2+(p1(y)-p2(y))**2+(p1(z)-p2(z))**2)

print *,"d=",d

end tamrin1

[b-d 2,058]

اگر نقاط p1 و p2 و p3 سه نقطه واقع در فضا و غیر واقع بر روی یک خظ باشند این سه نقطه

تشکیل مثلث بدهند برنامه ای بنویسید که با استفاده از این سه آرایه مساحت مثلث را چاپ

نماید.

P1p2,p1p3 p1p2*p1p3 /2

 

program tamrin3

implicit none

real,dimension(3)::p1,p2,p3

integer::x=1,y=2,z=3

real::area,d12,d23,d31,p

print*,"Enter Point p1:"

read*,p1(x),p1(y),p1(z)

print*,"Enter Point p2:"

read*,p2(x),p2(y),p2(z)

print*,"Enter Point p3:"

read*,p3(x),p3(y),p3(z)

d12=sqrt((p1(x)-p2(x))**2+(p1(y)-p2(y))**2+(p1(z)-p2(z))**2)

d23=sqrt((p2(x)-p3(x))**2+(p2(y)-p3(y))**2+(p2(z)-p3(z))**2)

d31=sqrt((p3(x)-p1(x))**2+(p3(y)-p1(y))**2+(p3(z)-p1(z))**2)

p=(d12+d23+d31)/2

area=sqrt(p*(p-d12)*(p-d23)*(p-d31))

print*,"Area=",area

end tamrin3

! --------------------------------------------------

[b-d 2,058]

برنامه ای بنویسید که مقدار تابع ذیل را با استفاده از تعریف تابع تابع چاپ نماید.

 

 

program tamrin7

implicit none

real::x

print*,"Enter X:"

read*,x

print*,"f(x)=",f(x)

contains

function f(x)

implicit none

real::f,x

f=(exp(x)-exp(-x))/(exp(x)+exp(-x))

end function

end tamrin7

[amirarrsalan 10]

سلام مرسی

من فرترن 64 بیتی لازم دارم چه کنم؟؟؟؟؟

[farshad0182 10]

آقا این نرم افزاره فرترن که گزاشتین همراه با pach و key هستش دیگه؟ مورد نداره اصلا؟ اگه بتونین ورژن 5.5 رو بزارین عالی میشه.. حجمش مهم نیست