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

首页/题库/448℃/2024-05-06 13:24:20

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

我来回答修改/报错/举报内容！

猜你喜欢