Prikazi cijelu temu 10.11.2016 20:55
mirsadz Van mreze
Administrator
Registrovan od:26.05.2011
Lokacija:BiH


Predmet:Re: Zadaci za razbibrigu*
PreuzmiIzvorni kôd (Text):
  1.     program Tacka
  2.  
  3.     print*,'Unesi koordinate centra kruznice'
  4.     read*,kx,ky
  5.     print*,'Unesi poluprecnik kruznice'
  6.     read*,r
  7.     print*,'Unesi x i y koordinate tacke T'
  8.     read*,tx,ty
  9.     deltax=kx-tx
  10.     deltay=ky-ty
  11.    
  12.     hipT=deltax**2+deltay**2
  13.     hipT=sqrt(hipT)
  14.    
  15.     if(hipT>r)then
  16.     print*,'Data tacka T ne pripada krugu'
  17.     else if(hipT==r)then
  18.     print*,'Data tacka T se nalazi na kruznici'
  19.     else
  20.     print*,'Data tacka T pripada krugu'
  21.     end if
  22.     print*,'T (',tx,', ',ty,')'
  23.     print*,'K (',kx,', ',ky,')'
  24.     pause
  25.  
  26.     end program Tacka
Procedura radjena u fortranu.