Klavyeden yarıçapı girilen dairenin çevresini ve alanını hesaplayan bir program yazınız.
Kod:
program daire
pi=3.141592
write(*,*) 'yaricapi giriniz:'
read(*,*) r
cevre=2*pi*r
alan=pi*r**2
write(*,*) 'Alan=_', alan, '_Cevre=_', cevre
end