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 <stdio.h>
#include <stdlib.h>
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的输入语句

我在百度上搜的，剩下的你自己去搜吧。。。。。。

Answer 2

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

a=1
b=4
c=4
@ 2,10 say "求解一元二次方程 ax^2+bx+c=0 "
@ 4,14 say " a " get a picture "99999"
@ 4,24 say " b " get b picture "99999"
@ 4,34 say " c " get c picture "99999"
read
if b*b-4*a*c<0
?"无实根"
return
endif
x1= (-b+ SQRT(b*b-4*a*c))/(2*a)
x2=(-b- SQRT(b*b-4*a*c))/(2*a)
? "方程的根是：" , x1 , "另一个根是：" , x2