С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
glykoman
1 / 1 / 0
Регистрация: 07.10.2013
Сообщений: 110
1

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

30.11.2013, 12:04. Просмотров 878. Ответов 2
Метки нет (Все метки)

помогите решить задачку)
Создать текстовый файл F. Для каждой строки найти слово, содержащее наибольшее число различных букв и поместить его в файл G.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2013, 12:04
Ответы с готовыми решениями:

Удалить из каждой строки слово, содержащее наибольшее количество различных букв
Помогите с программой, на языке ПАСКАЛЬ: Удалить из каждой строки слово,...

Найти слово, содержащее наибольшее количество различных букв
Дана строка. Найти слово содержащее наибольшее количество РАЗЛИЧНЫХ букв....

Удалить из каждой нечетной строки слово, содержащее наибольшее количество гласных букв
Удалить из каждой нечетной строки слово, содержащее наибольшее количество...

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

Найти и вывести слово, содержащее наибольшее количество согласных букв
Элементами слов могут быть любые символы. Найти и вывести слово, содержащее...

2
CodeR
Фрилансер
3384 / 2785 / 3000
Регистрация: 08.02.2012
Сообщений: 6,833
Записей в блоге: 1
30.11.2013, 12:20 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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 минуту
Предполагается,что слова разделены пробелами и в них входят только буквы
1
eugene007
0 / 0 / 0
Регистрация: 13.11.2013
Сообщений: 34
04.12.2013, 17:23 3
CodeR,
помогите пожалуйста
Сформировать массив из элементов матрицы
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2013, 17:23

Слова могут содержать любые символы языка. Найти и вывести слово, содержащее наибольшее кол-во символов, отличных от заглавных букв.
Слова могут содержать любые символы языка. Найти и вывести слово, содержащее...

Текстовый файл. В новый файл поместить те строки файла, которые содержат заданное слово
Дан текстовый файл и некоторое слово. В новый файл поместить те строки файла,...

В каждой строке строке файла найти самое длинное слово и дописать его в конец строки
Ввести строки с клавиатуры. Создать файл определить количество строк файла в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru