pascal初学者求助编写程序！！！！！！！！！

来源：百度知道 编辑：UC知道 时间：2024/06/14 09:41:48
1.输入a,b,c三个不同的数，将它们按由小到大的顺序输出。
2.编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石头。游戏者分别把自己的选择输入，计算机给出结果。3.输入两个数a,b，输出较大数的平方值。
4.从键盘读入一个数，判断它的正负。是正数，则输出"+"，是负数，则输出"-"。

1.var a,b,c:integer;
procedure jiaohuan(var a,b:integer)
begin
t:=a;
a:=b;
b:=t;
end;
begin
readln(a,b,c);
if a>b then jiaohuan(a,b);
if b>c then jiaohuan(b,c);
if a>c then jiaohuan(a,c);
writeln(a,b,c);
end.
2.var r1:char;r2,d:byte;
begin
repeat
readln(r1);
until r1 in[s,r,p];
case r1 of
s:r2:=1;
r:r2:=2;
p:r2:=3;
end;
d:=trunc(random(3))+1;
case (d-r2) of
1:writeln('shu');
2:writeln('ying');
0:writeln('ping');
-1:writeln('ying');
-2:writeln('shu');
end;
end.
3.var a,b:integer;
begin
readln(a,b);
if a>b then writeln(a*a) else writeln(b*b);
end.
4.var a:integer;
begin
readln(a);
if a>0 then writeln('+');
if a<0 then writeln('-&#