Question

pascal语言编程

Answer 1

解：交换两个变量的值，可以想象成交换两盒录音带（称为A和B）的内容，可以按以下步骤处理：
步骤①：拿一盒空白录音带C为过渡，先将A翻录至C；
步骤②：再将B翻录至A；
步骤③：最后将C翻录至B。
这样操作，可达到题目要求。
Pascal程序：
Program
Exam17;
Var
a,b,c
:
integer;
Begin

Write(‘A,B=’);

Readln(a,b);

C:=
A;

｛等价于步骤1｝

A
:=
B;

｛等价于步骤2｝

B
:=
C;

｛等价于步骤3｝

Writeln(A,B);
End.

Answer 2

var
a,b:integer;
begin
readln(a,b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln('a=',a,'
b=',b);
end.
长时间不写P语言的代码了，语法不知道有没有错，但是算法没有问题。