Free Pascal问题,用函数和过程解.

1、 var a,b,c,s:integer;
procedure max(a,b,c:integer;var s:integer);
var tmp:integer;
begin
if a>b then tmp:=a;a:=b;b:=tmp;
if a>c then tmp:=a;a:=c;c:=tmp;
if b>c then tmp:=b;b:=c;c:=tmp;
s:=c;
end;
begin
readln(a,b,c);
max(a,b,c,s);
writeln(s);
end.

其他的问题我临时没有时间 如果你不急的话 我会在 这周五晚上完整回答 我是个学生.

其实你的问题都是一些很基本的问题 1、2、4 基本上就是排序算法 3、其实更简单 定义一个中间变量, 例如 ： 把a、b的值交换 tmp:=a; a:=b; b:=tmp; 就相当于是加了一个中转站.

我的QQ是 597736446 还有问题可以随时问我.