Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 17.03.2015
Сообщений: 4
1

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

01.04.2015, 14:34. Показов 1855. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
Эксперт Pascal/Delphi
6757 / 4531 / 4802
Регистрация: 05.06.2014
Сообщений: 22,351
02.04.2015, 09:41 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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
const
  limits = [#0..#32,'.',',',':',';','!','?','"'];
  n_max=100;
type
  TWords = array[1..n_max] of string;
var
  st,s : string;
  words : TWords;
  g,f:text;
  sw,max,i,c,cnt:integer;
 
function GetWords(s : string; var w : TWords) : byte;
var
  i,back,n : byte;
begin
  i := 1;
  n := 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
          back := i;
          while(i<=length(s)) and not(s[i] in limits) do
            inc(i);
          inc(n);
          w[n] := copy(s, back, i-back);
        end;
    end;
  GetWords := n;
end;
 
function GetCountVowels(s:string):integer;
var
  k,i:integer;
begin
  k:=0;
  for i:=1 to length(s) do
    if s[i] in ['A','a','E','e','U','u','I','i','O','o'] then
      inc(k);
  GetCountVowels:=k;
end;
 
begin
 
  assign(f,'text.txt');
  assign(g,'temp.txt');
  reset(f);
  max:=0; sw:=0;
  c:=1;
  while not eof(f) do
    begin
      readln(f,s);
      writeln(s);
      if odd(c) then
        begin
          cnt:=GetWords(s,words);
          for i:=1 to cnt do
            begin
              sw:=GetCountVowels(words[i]);
              if sw>max then
                max:=sw
            end;
        end;
      inc(c);
    end;
  close(f);
 
  writeln('Максимальное количество гласных: ',max);
 
  c:=1;
  reset(f);
  rewrite(g);
  while not eof(f) do
    begin
      readln(f,s);
      st:='';
      if odd(c) then
        begin
          cnt:=GetWords(s,words);
          for i:=1 to cnt do
            begin
              sw:=GetCountVowels(words[i]);
              if sw<>max then
                begin
                  st:=st+words[i]+' ';
                end;
            end;
         end
       else
         st:=s;
       writeln(g,st);
       inc(c);
     end;
  close(f);
  close(g);
  erase(f);
  rename(g,'text.txt');
 
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2015, 09:41

вывести слово, содержащее наибольшее количество гласных букв(Русских)
Ввести строку, вывести слово, содержащее наибольшее количество гласных букв..... Если можно то...

Ввести строку, вывести слово, содержащее наибольшее количество гласных букв
Привет Ребят,мне нужно сделать лабораторную по информатике,вот что мне надо Ввести строку,...

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

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


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

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

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