几道pascal语言的简单题目

第一道题
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。