Question

PASCAL编程几道比较初级的题目

1. 从键盘输入a、b、c，求一元二次方程a*x*x+b*x+c=0的两个实数根（不考虑无解的情况）

2.从键盘输入a、b、c，按从大到小的顺序打印出来

3.用循环语句，计算100以内所有奇数的和

谢谢大家！由于是初学，最好用简单点的语句^ ^
解答一两道也行！

Answer 1

1.用求根公式.下面给出程序(结果保留2位小数)
var a,b,c,d,x1,x2:real;
begin
readln(a,b,c);
d:=sqrt(sqr(b)-4*a*c);
x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a);
writeln(x1:2:2); writeln(x2:2:2);
end.
2.简单排序
var a,b,c,t:integer;
begin
readln(a,b,c);
if a<b then begin t:=a; a:=b; b:=t; end;
if a<c then begin t:=a; a:=c; c:=t; end;
if b<c then begin t:=b; b:=c; c:=t; end;
writeln(a,' ',b,' ',c);
end.
3.简单循环
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 2=1 then
s:=s+i;
writeln(s);
end.

Answer 2

1.
var a,b,c,x1,x2:real;
begin
read(a,b,c);
x1:=(-b+sqrt(b*b-4*a*c))/(a*2);
x2:=(-b-sqrt(b*b-4*a*c))/(a*2);
writeln('x1=',x1:0:2);
writeln('x2=',x2:0:2);
end.

Answer 3

1.
program abc(input,output);
var a,b,c,d,x1,x2:real;
begin
readln(a,b,c);
d:=sqrt(sqr(b)-4*a*c);
x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a);
writeln(x1:2:2); writeln(x2:2:2);
end.
2.
program paixu(input,output);
var a,b,c,t:integer;
begin
readln(a,b,c);
if a<b then begin t:=a; a:=b; b:=t; end;
if a<c then begin t:=a; a:=c; c:=t; end;
if b<c then begin t:=b; b:=c; c:=t; end;
writeln(a,' ',b,' ',c);
end.
3.
program asd(input,output);
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 2=1 then
s:=s+i;
writeln(s);
end.