PersonalCorpus 版 (精华区)

寄信人: No (hi)
标  题: 1094
发信站: 哈工大紫丁香 (2002年03月13日13:51:15 星期三)
来  源: mtlab4.hit.edu.cn 

160969 05:53:57 13 Mar 2002
Bozhang,HIT,P.R.China 1094 Pascal Accepted 0.02 sec 49K


var
    s:array[1..80] of char;
    c:char;
    p:byte;
begin
    fillchar(s,sizeof(s),32); p:=1;
    while not eof(input) do begin
        while eoln(input) do readln;
        read(c);
        case c of
            '>': begin
                    inc(p); if p=81 then p:=1;
                end;
            '<': begin
                    dec(p); if p=0 then p:=1;
                end;
            else begin
                s[p]:=c; inc(p); if p=81 then p:=1;
            end;
        end;
    end;
    for p:=1 to 80 do write(s[p]); writeln;
end.

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]
--
※ 转寄:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: mtlab4.hit.edu.cn]