搜搜做题作业网几道pascal语言的简单题目
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/06/25 03:12:13
几道pascal语言的简单题目
1 从键盘输入a,b,c求方程ax(平方)+bx+c=0的两个实数根(不考虑无解的情况)
2 交换两个变量的值:由键盘输入两个正整数A和B,编程交换这两个变量的值
请解释每一步
1 从键盘输入a,b,c求方程ax(平方)+bx+c=0的两个实数根(不考虑无解的情况)
2 交换两个变量的值:由键盘输入两个正整数A和B,编程交换这两个变量的值
请解释每一步
第一道题
var a,b,c,x1,x2,delt:real;
begin
writeln('please input a,b,c');
read(a,b,c);
delt:=sqr(b)-4*a*c;
{如果需要考虑根的情况可以在这里加入选择语句,判断delt与0的大小}
x1:=(-b+sqrt(delt))/2a;
x2:=(-b-sqrt(delt))/2a;
write('x1=',x1,'x2=',x2);{最好加上场宽,看着舒服}
end.
--------------------------------------------
第二道题
整个思路就是多声明一个变量作为中间量.
var a,b,c:integer;
begin
writeln('please input the numbers');
read(a,b); {读入a和b}
c:=a; {把a的值给c}
a:=b; {把b的值给a}
b:=c; {把c的值,也就是开始的a,给b,完成交换}
.
end.
var a,b,c,x1,x2,delt:real;
begin
writeln('please input a,b,c');
read(a,b,c);
delt:=sqr(b)-4*a*c;
{如果需要考虑根的情况可以在这里加入选择语句,判断delt与0的大小}
x1:=(-b+sqrt(delt))/2a;
x2:=(-b-sqrt(delt))/2a;
write('x1=',x1,'x2=',x2);{最好加上场宽,看着舒服}
end.
--------------------------------------------
第二道题
整个思路就是多声明一个变量作为中间量.
var a,b,c:integer;
begin
writeln('please input the numbers');
read(a,b); {读入a和b}
c:=a; {把a的值给c}
a:=b; {把b的值给a}
b:=c; {把c的值,也就是开始的a,给b,完成交换}
.
end.