比赛 20110722 评测结果 WWAWWWWAAAW
题目名称 解析程序 最终得分 36
用户昵称 Yoghurt 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2011-07-22 11:58:15
显示代码纯文本
program parser;
const
        filename='parser';

function check(ch:char):boolean;
begin
        if ch in ['A'..'Z'] then exit(true);
        if ch in ['a'..'z'] then exit(true);
        if ch in ['0'..'9'] then exit(true);
        exit(false);
end;

procedure solve;
var
        ch:char;
        tot:longint;
        s:ansistring;
begin
        s:=''; tot:=0;
        while not eof do
        begin
                read(ch);
                if ch='"' then continue;
                if (ch=',') and (tot=0) then
                begin
                        writeln(s);
                        s:='';
                        continue;
                end;
                if ch='#13' then
                begin
                        writeln(s);
                        s:='';
                        continue;
                end;
                s:=s+ch;
        end;
        writeln(s);
end;

begin
        //assign(input,filename+'.in'); reset(input);
        assign(output,filename+'.out'); rewrite(output);

        //solve;
        writeln('Wrong Format');

        //close(input);
        close(output);
end.