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

@glykoman · Регистрация: 07.10.2013

Author24 — интернет-сервис помощи студентам

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

@CodeR · 30.11.2013, 12:20

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.

Добавлено через 1 минуту
Предполагается,что слова разделены пробелами и в них входят только буквы

@eugene007 · 04.12.2013, 17:23

CodeR,
помогите пожалуйста
Сформировать массив из элементов матрицы

@glykoman 1 / 1 / 0 Регистрация: 07.10.2013 Сообщений: 110
		1
	Для каждой строки файла найти слово, содержащее наибольшее число различных букв и поместить его в файл G 30.11.2013, 12:04. Показов 1167. Ответов 2 Метки нет (Все метки) помогите решить задачку) Создать текстовый файл F. Для каждой строки найти слово, содержащее наибольшее число различных букв и поместить его в файл G. 0

@eugene007 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 34
	04.12.2013, 17:23	3
	CodeR, помогите пожалуйста Сформировать массив из элементов матрицы 0

Опции темы

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

Решение