Задача на String!, помогите! срочно! Опции

[push]

Нужно удалить из предложения слова, которые встречаются в нем заданное количество раз.

[klem4]

таак опоздал, но вроде исправился :DDDD
уже из принципа решил, надеюсь этоправильно ))) вроде тестил прилично)))

uses crt;
const
   limits=[#0..#32,'.',',','!','?',';'];
var
   x,yes,no:array[1..30] of string;
   s:string;
   i,j,k,l,yy,nn,ycount,ncount,count,count1,bword:integer;
   flag:boolean;

Begin

   clrscr;

   write('s='); readln(s);

   write('count='); readln(count);

   i:=1; j:=0;

   while(i<=length(s)) do
    begin
       while(i<=length(s))and(s[i] in limits) do
        inc(i);
       if i<=length(s) then
        begin
           bword:=i;
           inc(j);
           while(i<=length(s))and(not(s[i] in limits)) do
            inc(i);
           x[j]:=copy(s,bword,i-bword);
        end;
    end;

    ycount:=0; ncount:=0;

    for i:=1 to j do
     begin
        count1:=0;
        for k:=i to j do
         if x[i]=x[k] then
          inc(count1);
        if count1=count then
         begin
            if ycount>0 then
             begin
                flag:=false;
                l:=1;
                while(l<=ycount)and(not(flag)) do
                 if x[i]=yes[l] then
                  flag:=true
                 else inc(l);
                if flag then
                 begin
                    inc(ycount);
                    yes[ycount]:=x[i];
                 end
                else
                 begin
                    inc(ncount);
                    no[ncount]:=x[i];
                 end
             end
              else
               begin
                  inc(ncount);
                  no[ncount]:=x[i];
               end;

         end{c=c}
          else
           begin
              if ncount>0 then
               begin
                  flag:=false;
                  l:=1;
                  while(l<=ncount)and(not(flag)) do
                   if x[i]=no[l] then
                    flag:=true
                   else inc(l);
                  if not(flag) then
                   begin
                      inc(ycount);
                      yes[ycount]:=x[i];
                   end
               end
                  else
                   begin
                      inc(ycount);
                      yes[ycount]:=x[i];
                   end;
           end;
     end;

   for i:=1 to ycount do
    write(yes[i],' ');
   readln;
end.

злая задача :fire:

Сообщение отредактировано: klem4 - 5.06.2005 16:36