Fortran naloga

Bi znal kdo rešit tole nalogo

Izračunajte koordinate točke A(x,y) ter koordinate 99 točkam Ni(xi,yi) ki tvorijo težišča 33 trikotnikom.Izračunajte še razdaljo med točko A in težišči.
Enačba za računanje težišč pri treh točkah Xt=(x1+x2+x3)/3 ter Yt=(y1+y2+y3)/3
Enačba za razdaljo Rij= (sqrt((Xj+Xi)+(Xj+Xi)) * sqrt((Yj+Yi)*(Yj+YI))

Podprogrami
izpiše max in min razdaljo ---------------> bere A(x,y)---------------> bere podatke 99 točk


Lp

jp Strojna Mb

@sidd
kaj podprogram(oz klic) bi moral biti v do zanki? Da

Upam da bo komu uspelo rešit
Lp

Stvar bi rabil do naslednjega tedna (ponedeljek)

Program a
implicit none
real::x(99),y(99),razd(99),min_razd,max_razd
razd(2)=Rij= (sqrt((Xj+Xi)+(Xj+Xi)) * sqrt((Yj+Yi)*(Yj+YI))
min_razd=razd(2)
print*,'min_razd=razd(2)
call P1(Ax,Ay)
end program a

Subrotuine P1(A,Ax,Ay)
implicit none
real::A,Ax,Ay
print*,vnesi podatek A
print*,'A'
call P2(A,Ax,Ay,Ni(99)
end subroutine P1

Subroutine P2((A,Ax,Ay,Ni(99)
implicit none
integer:i
real::A,Ni(99)
print*,vnesi podatek A,Ni(99)
read*,Ni(99)
end subrotuine P2

Sam to je tak narobe da .............

Lp

Žal ti druge podatke ne morem dat ker jih nimam.To je vse kar smo dobili na izpitu
Mi pa res ni jasno kak so prišli na takšno nalogo.......brb


Lp

rešitev naloge:

program glavni
imclicit none
real::dm,dn,Rn
call prvi(Rn)
read*,Rn,
dM=max(Rn)
dm=min(Rn)
print*,max,dM,min dm
end program glavni

subroutine prvi (Rn)
implicit none
real::a(x,y),x(n),y(n),Rn
integer::n=0,j
call drugi (x(j),y(j))
print*,vnesi koordinate točke A
read*,A(x,y),x(j),y(j)
do j=1,99,3
n=n+1
Rn= forumula za Rn ki je bila podana
end od
end subroutine

subrtoutine drugi(x(n),y(n)
implicit none
inteer::i,j,n=0
real::x(n),y(n)
print*,vnesi koordinate x,y, 99 točk'
read (x(n),y(n)
do j=1,99,3
do i=1,99
xj=(xi+x(i+1)+x(i+2)
yj=(yi+y(i+1)+y(i+2)
end do
end do
end subroutine