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

Вывести все буквы, которые входят в наибольшее количество слов строки

22.10.2015, 09:10. Показов 2270. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите мне пожалуйста с решением задачи, а так мне нужно решить три задачи, я в этом вообще ничего не понимаю. Заранее огромное спасибо.

Задана строка символов. Группы символов, разделенные пробелом и не
содержащие пробелов внутри себя, будем называть словами. Вывести все бук-
вы, которые входят в наибольшее количество слов строки. Все выводимые
буквы преобразовать в прописные.
Например, задана строка :
‘Я учусь программировать на языке Турбо-Паскаль’
Результат работы программы:
Ь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2015, 09:10
Ответы с готовыми решениями:

Напечатать все буквы, которые входят в наибольшее количество слов последовательности
Задана последовательность строчных латинских букв, между словами запятая, за последним – точка....

Вывести все буквы, которые входят в наибольшее количество слов строки
В первой надо - вывести все буквы, которые входят в наибольшее количество слов строки - "Я учусь...

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

Вывести все буквы, которые входят в наибольшее количество слов строки
Помогите преобразовать программу из турбо паскаля в паскаль абц program Project1; (*Возвращает...

3
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
22.10.2015, 11:01 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

строчные и прописные буквы отличаются
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  i,j:integer;
  s,b:string;
  a:array[char] of integer;
  c,t:char;
begin
  write('Введите строку:');
  readln(s);
  s:=s+' ';b:='';
  for i:=1 to length(s) do
    if s[i]=#32 then begin
      for j:=1 to length(b) do
        if pos(b[j],b)=j then Inc(a[b[j]]);
    b:='';
  end else b:=b+s[i];
  t:=#0;
  for c:=#0 to #255 do if a[t]<a[c] then t:=c;
  writeln('Буквы входящие в наибольшее количество слов:');
  for c:=#0 to #255 do
    if a[t]=a[c] then write(c+#32);
  readln;
end.
тестовый прогон:
Код
Введите строку:Я учусь программировать на языке Турбо-Паскаль
Буквы входящие в наибольшее количество слов:
а ь
1
0 / 0 / 0
Регистрация: 15.10.2015
Сообщений: 3
22.10.2015, 11:20  [ТС] 3
Спасибочки, Вам, огромнейшее
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7654 / 4493 / 2811
Регистрация: 22.11.2013
Сообщений: 12,832
Записей в блоге: 1
22.10.2015, 11:51 4
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

С учетом
Цитата Сообщение от Lili-Hamer89_81 Посмотреть сообщение
Все выводимые буквы преобразовать в прописные.
и используя для учета букв в слове множество:
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
const
  LC: String[33] = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  UC: String[33] = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var
  s: String;
  a: array [Char] of Integer;
  b: set of Char;
  c: Char;
  i, m: Integer;
begin
  Write('Введите строку: '); ReadLn(s);
  s:=s+' '; b:=[];
  for i:=1 to Length(s) do begin
    case s[i] of
    'a'..'z':
      s[i]:=UpCase(s[i]);
    'а'..'п','р'..'я','ё':
      s[i]:=UC[Pos(s[i],LC)];
    end;
    if s[i]=' ' then begin
      for c:=#0 to #255 do if c in b then Inc(a[c]);
      b:=[];
    end else Include(b,s[i]);
  end;
  WriteLn('Буквы, входящие в наибольшее количество слов:');
  m:=0; for c:=#0 to #255 do if m<a[c] then m:=a[c];
  for c:=#0 to #255 do if m=a[c] then Write(' ',c);
  ReadLn;
end.
1
22.10.2015, 11:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2015, 11:51
Помогаю со студенческими работами здесь

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

Напечатать все буквы, которые входят в наибольшее количество слов последовательности
Я попал в беду, и мне очень срочно нужно переписать задачу с языка C++, на язык JS. Очень прошу...

Множество слов. Напечатать все звонкие согласные буквы, которые входят (не входят) хотябы в одно слово.
Дана непустая последовательность слов из строчных русских бкув, между ними запятая, в конце точка....

Вывести на экран в алфавитном порядке все согласные буквы заданной строки, которые не входят ни в одно слово
дана последовательность из строчных русских букв... между соседними словами-запятая.... за...


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

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

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