UC知道pascal编程小问题
来源：百度知道 编辑：UC知道 时间：2024/05/17 22:19:39
用于交换两数字的值，很简单，但是编不成功:
program ex17;
var a,b,c:integer;
begin
writeln('a,b=');
readln(a,b);
c:=a;
a:=b;
b:=c;
write(a,b);
readln
end.
program ex17;
var a,b,c:integer;
begin
writeln('a,b=');
readln(a,b);
c:=a;
a:=b;
b:=c;
write(a,b);
readln
end.
很成功啊，没有问题
你把write(a,b); 改成 write(a,' ',b); 就能更好的看到结果了
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
{ TODO -oUser -cConsole Main : Insert code here }
var a,b,c:integer;
begin
writeln('a,b=');
readln(a,b);
c:=a;
a:=b;
b:=c;
write(a,b);
readln
end.
倒数第二行“readln”没写“；”