满意答案
zhjp0412
.08.10
采纳率:40%等级:9
已帮助:214人
common lisp版(刚学的,献丑了- -):
(defun gougu(x y)
(setq z (- (* x x) (* y y )))
(if(< z 0) (setq z (- 0 z))
(sqrt z)))
c语言版:
#include
#include
int main()
{
int x,y;
float z;
printf("input x and y:");
scanf("%d %d",&x,&y);
z=sqrt(fabs(x*x-y*y));
printf("z=%f",z);
}
c++版:
#include
#include
void main()
{
int x,y;
float z;
cout<
cin>>x>>y;
z=sqrt(fabs(x*x-y*y));
cout<
}
vb版:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Double
a = InputBox("输入一斜边长")
b = InputBox("输入一直角边")
c = Sqr(a * a - b * b)
MsgBox c
End Sub
...
00分享举报
求直角边的斜边c语言 使用多种程序语言编程:已知斜边与一直角边 通过勾股定理求另外一直角边 50分起价 多一个正确回答加100分(并非刷分 请不要误解)...