Predmet:Re: Zadaci za razbibrigu*
PreuzmiIzvorni kôd (Text): program Tacka
print*,'Unesi koordinate centra kruznice'
read*,kx,ky
print*,'Unesi poluprecnik kruznice'
read*,r
print*,'Unesi x i y koordinate tacke T'
read*,tx,ty
deltax=kx-tx
deltay=ky-ty
hipT=deltax**2+deltay**2
hipT=sqrt(hipT)
if(hipT>r)then
print*,'Data tacka T ne pripada krugu'
else if(hipT==r)then
print*,'Data tacka T se nalazi na kruznici'
else
print*,'Data tacka T pripada krugu'
end if
print*,'T (',tx,', ',ty,')'
print*,'K (',kx,', ',ky,')'
pause
end program Tacka
Procedura radjena u fortranu.