用fortran语言求圆的面积

program

double precision r,s

write(*,*) "请输入圆的半径"

read(*,*) r

s=3.1415926*r*r

write(*,*) s

end

write(*,*) ' 请输入三角形三个顶点的坐标 x1，y1，x2，y2，x3，y3：'

read(*,*) x1,y1,x2,y2,x3,y3

a=sqrt((x2-x1)^2+(y2-y1)^2)

b=sqrt((x3-x1)^2+(y3-y1)^2)

c=sqrt((x3-x2)^2+(y3-y2)^2)

L=(a+b+c)/2

s=sqrt(L*(L-a)*(L-b)*(L-c))

write(*,*) ' 该三角形的面积为：', s

end

---