Для каждой строки файла найти слово, содержащее наибольшее число различных букв и поместить его в файл G - Turbo Pascal

Формулировка задачи:

помогите решить задачку) Создать текстовый файл F. Для каждой строки найти слово, содержащее наибольшее число различных букв и поместить его в файл G.


textual

Код к задаче: «Для каждой строки файла найти слово, содержащее наибольшее число различных букв и поместить его в файл G - Turbo Pascal»

Var f,g:text;
    i,max,k:byte;
    s,st,sm:string;
    mn:set of char;
Begin
    writeln('Окончание ввода " "');
    Assign(f,'in.txt');Rewrite(f);
    Repeat
     write('Строка: ');
     readln(s);
     if s<>' ' then writeln(f,s);
    Until s=' ';
    Close(f);Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';
      max:=0;sm:='';
      While Pos(' ',s)>0 do
      Begin
        st:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        k:=0;mn:=[];
        For i:=1 to Length(st) do
        Begin
          if st[i] in mn then Continue;
          inc(k);
          mn:=mn+[st[i]];
        End;
        if k>max then
        Begin
          max:=k;
          sm:=st;
        End;
      End;
      writeln(g,sm);
    End;
    Close(f);Close(g);
    writeln('Результат в файле "out.txt"');
    readln;
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.857 из 5

Источник
Похожие ответы