FUNCTION LU CEVRE HESABI

[abdullah erdi önüt]

program fonksiyonlar

5 print*,"bu program bir dairenin cevre hesabini yapar"
pi=4
print*,"r=? lutfen yaricapi giriniz..."
read*,r

print*,r,"yaricapli dairenin cevresi=",cevre(pi,r)


contains

function cevre(pi,r)

cevre=2*pi*r
end function

end program



GORUSLERINIZE SUNULMUSTUR.....
arkadaslar buna goto 5 falan dıyınce tabıkı sona ekledım end functıon
dan sonra hata verıyor sebebı sızce nedır?bılgılendırırsenız
sevınırım.......ıyı calısmalar....