作业帮 > 综合 > 作业

1制作程序求三角形面积s=(底边×高)/2,其中底边L和高H由键盘输入,如果底边≤0或高≤0,则显示“输入有误,请重新输

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/04/29 01:49:52
1制作程序求三角形面积s=(底边×高)/2,其中底边L和高H由键盘输入,如果底边≤0或高≤0,则显示“输入有误,请重新输入”,否则显示三角形的面积.按钮名称:三角形面积
1制作程序求三角形面积s=(底边×高)/2,其中底边L和高H由键盘输入,如果底边≤0或高≤0,则显示“输入有误,请重新输
用什么程序写的?
我给你个pascal的
program ex;
var s,l,h:real;
begin
l:=0;
h:=0;
s:=0;
repeat
read(l,h);
if ((l0));
s:=(l*h)/2;
writeln(s:0:2);
end.
这个可以循环到你输入正确为止,然后面积输出时保留两位小数.
比楼上慢了点,我认为你可以用循环来做把这段改成VB就可以了
repeat
read(l,h);
if ((l0));
s:=(l*h)/2;
这个就可以循环到输入正确了
再问: Private Sub Command3_Click() Dim L As Double, H As Double, s As Double L = InputBox("请输入底边的值~") H = InputBox("请输入高的值~") If (L