VF编程题.任何一题都行.1.用过程化编成方式编写本题.求解一元二次方程（JFC.PRG）a=1b=4C=4x1=(-b+SQRT(b*b-4*a*c))/(2*a)x2=(-b-SQRT(b*b-4*a*c))/(2*a)”方程的根是：”,x1,“另一个根是：”,x22.理解

Question

VF编程题.任何一题都行.
1.用过程化编成方式编写本题.求解一元二次方程 （JFC.PRG）
a=1 b=4 C=4
x1= (-b+ SQRT(b*b-4*a*c))/(2*a)
x2=(-b- SQRT(b*b-4*a*c))/(2*a)
”方程的根是：” ,x1 ,“ 另一个根是：” ,x2
2.理解大小写转换函数.在文本框中输入文本串,按“转大写”按钮,文本中的英文字母变为大写,按“转小写”按钮,文本中的英文字母变为小写（如图所示）.
3.班上集体购买课外读物,在文本框中输入3种书的单价、购买数量,计算并输出所用的总金额.
4.在文本框中输入小时、分、秒,化成共有多少秒,然后输出之.
5.编程序输出在指定范围内的3个随机数,范围在文本框中输入.
6.编写例题4-8求圆面积,用对话框输出结果

Answer 1

全都是第5题：
1.
program abc;
var
a:longint;
b:longint;
c:longint;
d:longint;
begin
writeln('please write down a number');
readln(d);
a:=random(d);
b:=random(d-2);
c:=random(d-5);
writeln(a,' ',b,' ',c);
readln;
end.
2.
下面是范围0.0到1.0的随机数产生方法.供参考.
指定范围若是 [a,b] 且 b > a
计算三次:
---------------------------------------------
r = ( (double)rand() / ((double)(RAND_MAX)+(double)(1)) );
x1 = r * (b-a) + a;
r = ( (double)rand() / ((double)(RAND_MAX)+(double)(1)) );
x2 = r * (b-a) + a;
r = ( (double)rand() / ((double)(RAND_MAX)+(double)(1)) );
x3 = r * (b-a) + a;
----------------------------------------------
#include
#include
main()
{
int seed; // 种子
double r;
seed = 10000; // 随便给个种子
srand(seed); // 初始化随机数生成器
// r 是双精度浮点随机数,范围0.0到1.0
r = ( (double)rand() / ((double)(RAND_MAX)+(double)(1)) );
}
自己添入a,b,x1,x2,x3的类型声明
自己添入a,b的输入语句
我在百度上搜的,剩下的你自己去搜吧.