编程的交换数值用pascal怎么做？

~ 用一个临时变量即可。
Var
i,a,b:Longint;
Begin
Readln(a,b);
{读入这两个数据}
i:=a;
{临时将a存入临时变量i}
a:=b;
{将变量a赋值b}
b:=i;
{把刚刚备份的i赋值给b}
Writeln(a,b);
{已实现交换}
End.
又或者，可以用“异域”运算来实现巧妙的交换，但这应该会比直接开变量交换效率低。当然，这样可以开少一个变量，而且便于记忆。
Var
a,b:Longint;
Begin
Readln(a,b);
a:=a
xor
b;
b:=a
xor
b;
a:=a
xor
b;
{这样就实现了交换....我也不知道为神马-
=}
End.

---

鹿邑县13979337618： 编程的交换数值用pascal怎么做? - ？
犁邱格芬： 用一个临时变量即可. Vari,a,b:Longint; BeginReadln(a,b); {读入这两个数据}i:=a; {临时将a存入临时变量i}a:=b; {将变量a赋值b}b:=i; {把刚刚备份的i赋值给b}Writeln(a,b); {已实现交换} End.又或者,可以用“异域”运算来实现巧妙的交换,但这应该会比直接开变量交换效率低.当然,这样可以开少一个变量,而且便于记忆.Vara,b:Longint; BeginReadln(a,b);a:=a xor b;b:=a xor b;a:=a xor b; {这样就实现了交换....我也不知道为神马- =} End.

鹿邑县13979337618： pascal中怎样实现数字与字符的相互转化·····? - ？
犁邱格芬： 楼主你好! 现在的很多pascal程序都用到数字转字符串,字符串转数字的方法. 其实用函数就可以相互转换. 数串转换为数值. 过程val(s,x,I) 把数串s转化为数值x,如果成功则I=0,不成功则I为无效字符的序数. 例:val('1234',x,I);结果 x:=...

鹿邑县13979337618： pascal语言 从键盘读入两个整型变量a、b的值,交换它们的值,然后输出交换后的a、b的值.注:不能引用第三个变量!？
犁邱格芬： var integer a,b;readln(a);readln(b);a:=a+b;b:=a-b;a:=a-b;

鹿邑县13979337618： 用不带参数的过程和带参数的过程分别编写一个程序,实现变量x与y的值相互交换. free pascal - ？
犁邱格芬： 不带参数: varx, y: Integer;procedure Exchange; varz: Integer; beginz := x;x := y;y := z; end; 带参数: procedure Exchange(var a, b: Integer); varc: Integer; beginc := a;a := b;b := c; end;

鹿邑县13979337618： 将A、B两个杯子通过杯子C来将水交换过来,用编程Pascal语言表示出来!!!急!!! - ？
犁邱格芬： var a,b,c:integer; begin c:=a; a:=b; b:=c; writeln(a,' ',b,' ',c); readln; end.如果我能帮到你,请加分.

鹿邑县13979337618： pascal语言编程？
犁邱格芬：var a,b:integer; begin readln(a,b); a:=a+b; b:=a-b; a:=a-b; writeln('a=',a,' b=',b); end. 长时间不写P语言的代码了,语法不知道有没有错,但是算法没有问题.

鹿邑县13979337618： 用free pascal编写程序把一个三位整数反转,例如123反转成321 - ？
犁邱格芬： program exe2_6; var a,b,c,d,e:integer; begin readln(d); a:=d div 100; c:=d mod 10; b:=d div 10-10*a; e:=c*100+b*10+a; writeln(e); end.

鹿邑县13979337618： pascal 怎么读取其他程序传递的值 像Exec('a.exe',' Holle! '); a怎么知道 Holle! - ？
犁邱格芬： Yes,就是楼上的说法.函数paramcount返回 参数的个数 ,如你的例子,那就是 1函数paramstr(n)返回第n个 参数,如你...

鹿邑县13979337618： pascal编程:将一个数x插入到有序的数列A中,插入后数列A仍然有序.请大师们最最简单的答案,谢谢了! - ？
犁邱格芬： var i,j,n,x,t:longint; a:Array[1..2000]of longint; procedure swap(var a,b:longint);//交换2个数的过程 var c:longint; begin c:=a;a:=b;b:=c; end; begin readln(n); for i:=1 to n do read(a[i]);//读入n个数 readln(x);//读入要插入的数 a[n+1]:=x;//把要插入的...

鹿邑县13979337618： 编程计算并输出12+22+...+1002的值(pascal) - ？
犁邱格芬： var s,i:longint; begins:=0;i:=12;while i<=1002 dobegins:=s+i;i:=i+10; end; writeln(s); end. {so easy~~}