pascal语言 输入两个整数30 34,交换他们的位置,输出34 30

难啊难啊难啊~！！！！！！刚学，啥都不懂！！！！！！！！！！

这个是比较基础的题目了，多联系一下吧，代码如下：

program jh;

   var  a,b,c:integer;

   begin

    readln(a,b);

    c:=a;

      a:=b;

    b:=c;

    writeln(a,' ',b);

end.

以上代码可以练习交换，这个以后经常用。当然，你也可以偷懒啦：

program jh2;

    var  a,b:integer;

    begin

    readln(a,b);

    writeln(b,' ',a);

   end.

但是这个代码起不到联系作用了~~

希望我的答案您能满意！~

三种写法。

1.朴素：

var x,y:longint; tmp:longint;

begin

 readln(x,y);

 tmp:=x;

 x:=y;

 y:=tmp;

 writeln(x,' ',y);

end.

第二种：

var x,y:longint;

begin

readln(x,y);

 x:=x+y;

 y:=x-y;

 x:=x-y;

 writeln(x,' ',y);

end.

第三种：位运算

var x,y:longint;

begin

 readln(x,y);

 x:=x xor y;

 y:=x xor y; 

 x:=x xor y;

 writeln(x,' ',y);

end.

program huida;

   var 

    a,b,c:integer;    //为什么要设三个变量，一会说明

   begin

    readln(a,b);    //读入a，b   在你的题里a=30  b=34

    c:=a;    //让c等于a，将a的值保存下来

      a:=b;

    //a变成了b， 即 30变成了34，所以要提前保存下a，否则，a发生了变化后，b就无法变成a了（因为a变了，已经没有a了，但是现在的c中保存的就是a）

    b:=c;    //将b变成c，c中放的是a，即 b变成了a （到此，交换完成）

    writeln(a,' ',b);    //输出结果 （a，b中间的‘ ’ 是让a，b在输出时产生这个效果 34  30 否则会变成3430）

end.

var a,b:integer; begin read(a,b); write(b,' ',a); end. 当然，你得保证输入是30和34.

var a,b,t:longint;

begin

assign(input,'');

assign(output,'');

reset(input);

rewrite(output);

read(a);read(b);

t:=a;a:=b;b:=a;

writeln(a,' ',b);

close(output);

end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息