只给你一个c:char变量，实现以下功能。（挑战高手的题目）

Question

补充要求：所有的源程序为一个可以用tp7或bp7直接编译出来的.pas文件。

Answer 1

var
 c:char;
function main:char;
begin
  while (not (eof)) do
  begin
    read(c);
    write(main);
    result := c;
  end;
end;begin
  main;
end;//好久不用标准PASCAL了，语法快忘了：（

Answer 2

手上没pascal了，不过楼上的帖子程序有问题，那个result:= c可能错了，应该移到write(main)前面去，
我没运行这个代码，只是看的。

Answer 3

var
c:char;
function main:char;
begin
  while (not (eof)) do
  begin
    read(c);
    result := c;  // 其实是利用了函数来保存中间结果了
    write(main);
  end;
end;begin
  main;
end

Answer 4

tp7/bp7是不能用“result:=”的。而且也不能用“//”。

Answer 5

to pazee:
pazee的程序我试过了（改成可以运行的），是错误的，让我输入很多字符，打了很多个回车，就是没有输出。
另外，eof是什么？我只用过eof(F){f:file}

Answer 6

我印象中好像应该这样处理返回值：“main := c”var
c:char;
function main:char;
begin
  while (not (eof)) do
  begin
    read(c);
    main := c;            // 其实是利用了函数来保存中间结果了
    if c<>'q' then        // 避免死循环，一时想不起其他方法，只好用'q'来结束
       write(main)
    else writeln;
  end;
end;begin
  write(main);
end 

Answer 7

至于pascal中的注释符我是真的忘了！:p

Answer 8

功力还是不行，不调试写不出来：）var
c:char;
function main:char;
begin
  result := c;
  if (not (eoln)) then
  begin
    read(c);
    write(main);
  end;
end;begin
  main;
end;

Answer 9

to bomdy()　
返回值的处理的确是直接赋值，但是程序还是不对。
to windindance, bomdy:
读入的时候不要用read，因为那样得回车才有效。应该这样：c:=readkey;而且最后还要记得使用“.”。

Answer 10

to windindance:
不行啊，你的程序还是不对。

Answer 11

我的手头没有pascal
这个就是递归的问题
很容易实现
function x
read(c)
if c<>#13 then x;
write(c)
这样利用堆栈保存c
就可以实现

Answer 12

还没有人吗？var
c:char;
function main:char;
begin
  main := c;
  if (not (eoln)) then
  begin
    read(c);
    write(main);
  end;
end;begin
  main;
end.

Answer 13

函数里不是遇到给函数赋值就返回了吗？
不象用result

Answer 14

经试验，windindance's program is right.
but i can write without any function.

Answer 15

who can give the better program?