早教吧作业答案频道 -->其他-->
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.理解
题目详情
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求圆面积,用对话框输出结果
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求圆面积,用对话框输出结果
▼优质解答
答案和解析
全都是第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的输入语句
我在百度上搜的,剩下的你自己去搜吧.
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的输入语句
我在百度上搜的,剩下的你自己去搜吧.
看了VF编程题.任何一题都行.1....的网友还看了以下:
AB两人的钱数之和比A的钱数多30.4元,比B的钱数多25.6元,AB两人共有多少钱? 2020-03-30 …
假如我把几种不同品种的大米调配出一种大米新品种出来,那么怎么核算他的平均价格?如:A米300斤(每 2020-05-15 …
毕节市移动通讯公司开设了两种通讯业务,A类是固定用户:先缴50元基础费,然后每通话1分钟再付话费0 2020-05-20 …
买一千棵树苗,有a、b两种,a每颗15元成活率95%劳务费3元,b每颗20元,成活率%,劳务费4元 2020-05-22 …
A市和B市各有机床12台和6台,现运往c市10台,D市8台.若从A市运1台到C市、D市各需要运费4 2020-06-17 …
某市移动通讯公司开设了两种通讯业务,A类是固定用户:先缴50元基础费,然后每通话1分钟再付话费0. 2020-06-17 …
某电信公司手机的A类收费标准如下:不管通话时间多长,每部手机每月必须缴月租费50元,另外,每通话1 2020-07-05 …
某市移动通讯公司开设了两种通讯业务A类是固定用户先缴50元基础费然后每通话1分钟再付话费0. 2020-07-25 …
为什么蓝色球复式是按顺序6+2=4元,6+3=6元,6+9=18元,6+16=32元;红色球复式7+ 2020-11-07 …
成都市移动通讯开设了两种通讯业务A类是固定电话用户:线缴50元基础费,然后每通话1分钟再付话费0.4 2020-11-12 …