1 / 1 / 2
Регистрация: 26.05.2011
Сообщений: 47
1

Определить в тексте слово максимальной длины с четным количеством букв

09.02.2013, 13:06. Показов 831. Ответов 3
Метки нет (Все метки)

Определить в тексте слово максимальной длины с четным количеством букв
должно быть выполнено не массивом, и я вот что то даже не знаю как мне это сделать
условие наверно будет как то так
Pascal
1
If (Length(sl) mod 2 = 0) and (Length(sl)>length(max))
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.02.2013, 13:06
Ответы с готовыми решениями:

В тексте в слове с четным количеством букв удалить первую букву
В тексте в слове с четным количеством букв удалить первую букву, в слове с нечетным количеством...

Ищет в тексте все слова с чётным количеством букв и возвращает строку, в которой они удалены
Необходимо сделать через регулярные выражения Мой код: *Regex r = new Regex(@"\w+"); ...

Найти слово максимальной длины в заданном тексте
Напишите программы на Паскале. 1. Найти слово максимальной длины в заданном тексте. 2. Для...

Найти слово максимальной длины в заданном тексте
найти слово максимальной длины в заданном тексте

3
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
09.02.2013, 13:22 2
Условие верное, а как организовать программу, посмотрите по последней внизу страницы(похожие темы).
Еще нужно вести переменную, фиксирующую наличие такого слова
0
1 / 1 / 2
Регистрация: 26.05.2011
Сообщений: 47
09.02.2013, 14:56  [ТС] 3
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
uses
  crt;
var
  s,max,sl:string;
  i:integer;
  mn: set of char;
begin
  clrscr;
  mn:=[' ',',','.',';',':','-','=','+'];
  writeln('Введите строку...');
  readln(s);
  sl:='';
  max:='';
  for i:=1 to length(s) do
  begin
    if not (s[i] in mn)
    then sl:=sl+s[i] else if length(sl)>0 then
      begin
        if (Length(sl) mod 2 = 0) and (length(sl)>length(max)) then
          max:=sl;
        sl:='';
      end;
  end;
  writeln('Самое длинное слово с четным количеством букв: ',max,'. В нем букв: ',length(max))
end.
вроде получилось, как думаете нет ошибок? не уверен, что правильно написал момент пропуска знаков припенания

Добавлено через 5 минут
Pascal
1
2
if not (s[i] in mn)
    then sl:=sl+s[i] else if length(sl)>0 then
если символ не относится к [' ',',','.',';',':','-','=','+'] тогда добавляю символ к формируемому слову
иначе(тоесть если попали на символ [' ',',','.',';',':','-','=','+'] ) идет условие количество символов больше 0, тоесть мы пропускаем знаки препинания

правильно ли я понимаю это ?))
0
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
09.02.2013, 15:15 4
Я же писал
Еще нужно вести переменную, фиксирующую наличие такого слова
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
uses
  crt;
var
  s,max,sl:string;
  i,k:integer;
  mn: set of char;
begin
  clrscr;
  mn:=[' ',',','.',';',':','-','=','+'];
  writeln('Введите строку...');
  readln(s);
  sl:='';
  max:='';
  k:=0;
  for i:=1 to length(s) do
  begin
    if not (s[i] in mn)
    then sl:=sl+s[i] else if length(sl)>0 then
      begin
        if (Length(sl) mod 2 = 0) and (length(sl)>length(max)) then
         begin
          max:=sl;
          k:=1;
         end;
        sl:='';
      end;
  end;
 if k=0 then write('Нет слов четной длины')
 else write('Самое длинное слово с четным количеством букв: ',max,'. В нем букв: ',length(max))
end.
Добавлено через 36 секунд
Цитата Сообщение от Александр_111 Посмотреть сообщение
правильно ли я понимаю это ?))
Правильно
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2013, 15:15
Помогаю со студенческими работами здесь

В тексте найти слово с наибольшим количеством букв
Помогите с задачкой, не очень могу понять.В тексте найти слово с наибольшим количеством букв.

Найти в тексте слово с максимальным количеством заданных букв
Необходимо найти в тексте слово , в котором максимальное количество "e"... Найдите...

В тексте найти первую подстроку максимальной длины, не содержащую букв.Как это делать?
Просто непонятно,что значит подстрока максимальной длины,не содержащая букв

Подсчет количества слов с четным и не четным количеством букв в слове
люди помогите пожалуйста, понять не могу почему не правильно считает... нужно подсчитать количество...


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

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

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