program alan_hesabi
use matematik
real::x1,radx1,x2,radx2
real::a1,b1,a2,b2
real::alan1,alan2
print*,"Birinci ucgenin sirayla iki kenar ve ortadaki"
print*,"acisini(derece) belirtin:(kenar,kenar,aci)"
read*,a1,b1,x1
print*
print*,"Ikinci ucgenin sirayla iki kenar ve ortadaki"
print*,"acisini(derece) belirtin:(kenar,kenar,aci)"
read*,a2,b2,x2
radx1=radyan(x1)
radx2=radyan(x2)
call alan(a1,b1,radx1,alan1)
call alan(a2,b2,radx2,alan2)
print*
print*
call yazdir(1,alan1)
call yazdir(2,alan2)
end program alan_hesabi