0 / 0 / 0
Регистрация: 03.01.2013
Сообщений: 7
1

Дан текстовый файл,каждая строка которого является

04.01.2013, 18:42. Показов 1422. Ответов 2
Метки нет (Все метки)

Дан текстовый файл, каждая строка которого является предложением (используется русский алфавит). В каждом предложении указать слово, в котором доля гласных максимальна.
-----
помогите пожалуйста)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.01.2013, 18:42
Ответы с готовыми решениями:

Создать новый текстовый файл , каждая строка которого содержит последний символ соответствующей строки исходного файла
Очень нужна помощь

Дан текстовый файл F и строка S. посчитать кол-во строк совпадающих со строкой S и рез-т записать в файл G
Дан текстовый файл F и строка S. посчитать кол-во строк совпадающих со строкой S и рез-т записать в...

Дан текстовый файл. Найти количество абзацев в тексте, если первая строка каждого абзаца начинается с 5 пробелов
Дан текстовый файл. Найти количество абзацев в тексте, если первая строка каждого абзаца начинается...

Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины
1. Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины.Пример...

2
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
04.01.2013, 20:59 2
Лучший ответ Сообщение было отмечено artemii как решение

Решение

Здравствуйте
Вариант решения:
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
program _strings;
 
const
 
 fin        = 'input.txt';
 
var
 
 fi         : text;
 instring   : string;
 
function GetMaxVW(const S : string ) : string;
{возвращает  слово с максимальным кол-вом гласных из строки}
 const
  cSet      = ['у','У','е','Е','ы','Ы','и','И','ю',
                'Ю','а','А','о','О','э','Э','я','Я'];
 
 var 
  i,k,j     : byte;
  s_word    : string;
  cur,max   : byte;
  s_max     : string;
 
begin
 i:=1;
 k:=1;
 max:=0;
 s_max:='';
 repeat
  while i<=length(s) do if s[i]=' ' then break else inc(i);
  s_word:=copy(s,k,i-k);
  inc(i);
  k:=i;
  cur:=0;
  for j:=1 to length(s_word) do 
    if s_word[j] in cSet then inc(cur);
  if cur>max then begin
                   max:=cur;
                   s_max:=s_word;
                  end;
 until i>length(s);
 GetMaxVW:=s_Max;
end;
 
BEGIN
{ assign & input }
 assign(fi,fin);reset(fi);
 
{ proces. & output }
  While not eof(fi) do 
     begin
      Readln(fi,instring);
      Writeln(instring,' : ',GetMaxVW(instring))
     end;
close(fi);
 
END.
Компилировался в PascalABC.net
1
0 / 0 / 0
Регистрация: 03.01.2013
Сообщений: 7
04.01.2013, 22:01  [ТС] 3
cпасибо за помощь)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.01.2013, 22:01
Помогаю со студенческими работами здесь

Дан текстовый файл f. Найдите самое длинное слово среди слов, второй буквой которых является "e"
Дан текстовый файл f. Найдите самое длинное слово среди слов, второй буквой которых является &quot;e&quot;;...

дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово
помогите пожалуйста решить задачу... условие:дан текстовый файл.перенести в текстовый файл все...

Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы
Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого...

Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы
Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru