建立一个整数链表 倒序输出 Turbo Pascal
来源:百度知道 编辑:UC知道 时间:2024/09/22 21:16:11
急!!!
program x;
var a:char;
procedure bian(var a:char);
var b:char;
begin
if a<>'?' then begin
read(b);
bian(b);
write(a);
end;
end;
begin
read(a);
bian(a);
end.
program x;
var a:char;
procedure bian(var a:char);
var b:char;
begin
if a<>'?' then begin
read(b);
bian(b);
write(a);
end;
end;
begin
read(a);
bian(a);
end.
这是一个字符串逆序