当前位置:编程学习 > C/C++ >>

POJ 2271(HTML)

这题字符串处理
注意Seekeof会自动把后面的空格吃掉(有时遇到回车,后面会漏一个空格……貌似有时没空格也会读到,字符串处理时慎用)
另外 空格的Ascii码是32,31及以下都是不可输入字符


[delphi] 
program P2271; 
var 
   s:string; 
procedure cin; 
var 
   c:char; 
   i,len:longint; 
begin 
   s:=''; 
   c:=' '; 
   i:=0; 
   while not(seekeof) do 
   begin 
      read(c); 
      while (ord(c)<=32) and not(eof) do read(c); 
      if ord(c)<=32 then break; 
      repeat 
         s:=s+c; 
         if eof then break; 
         read(c); 
      until (ord(c)<=32); 
 
      len:=length(s); 
      if s='<br>' then begin writeln; i:=0; end 
      else 
      if s='<hr>' then 
      begin 
         if i>0 then writeln; 
         for i:=1 to 80 do write('-'); 
         writeln; 
         i:=0; 
      end 
      else 
      begin 
         if (i=0) then 
         begin 
            if len<80 then 
            begin 
               write(s); 
               i:=len; 
            end; 
         end 
         else 
         begin 
            if (i+1+len<=80) then 
            begin 
               write(' ',s); 
               i:=i+1+len; 
            end 
            else 
            begin 
               writeln; 
               write(s); 
               i:=len; 
 
            end; 
         end; 
 
 
 
      end; 
 
 
 
      s:=''; 
   end; 
 
 
 
 
 www.zzzyk.com
 
end; 
begin 
{   assign(input,'p2271.in');
   assign(output,'p2271.out');
   reset(input);
   rewrite(output);
 }  cin; 
   writeln; 
  { close(input);
   close(output);} 
end. 

补充:软件开发 , C++ ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,