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

Найти число таких групп, которые начинаются и заканчиваются одной и той же буквой

14.03.2016, 15:23. Показов 2035. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан текст, хранящийся в текстовом файле f, каждый символ которого может быть малой буквой, цифрой или одним из знаков ‘+’, ‘-‘, ‘*’. Группой букв будем называть такую совокупность последовательно расположенных букв, которой непосредственно не предшествует и за которой непосредственно не следует буква. Аналогично определяется группа цифр и группа знаков.
Найти число таких групп, которые начинаются и
заканчиваются одной и той же буквой. Все эти группы вывести в новый файл g
Помогите пожалуйста.

Добавлено через 20 часов 28 минут
upp
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.03.2016, 15:23
Ответы с готовыми решениями:

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

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

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

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

1
Модератор
9919 / 5275 / 3321
Регистрация: 17.08.2012
Сообщений: 16,135
14.03.2016, 23:21 2
Лучший ответ Сообщение было отмечено satar160 как решение

Решение

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
const m = ['a'..'z'];
 
var f, g: text;
    i, n: integer;
    s, t: string;
 
begin
  assign(f, 'f.txt');
  reset(f);
  assign(g, 'g.txt');
  rewrite(g);
  n := 0;
  t := '';
  while not eof(f) do
    begin
      readln(f, s);
      s := s + ' ';
      for i := 1 to length(s) do
        if s[i] in m
          then t := t + s[i]
          else begin
            if (length(t) > 0) and (t[1] = t[length(t)])
              then begin
                inc(n);
                writeln(g, t)
              end;
            t := ''
          end
    end;
  close(f);
  close(g);
  write('Число групп, начинающихся и заканчивающихся одной и той же буквой: ', n);
  readln
end.
1
14.03.2016, 23:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.03.2016, 23:21
Помогаю со студенческими работами здесь

Определить количество слов, которые начинаются и заканчиваются одной и той же буквой
дана строка, состоящая из русских слов,разделенных пробелами(одним или несколько). Определить...

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

Найти слова, которые начинаются и заканчиваются одной и той же буквой
Дана строка символов (Т.е. ввести свои данные) .Найти слова, которые начинаются и заканчиваются...

Найти слова, которые начинаются и заканчиваются одной и той же буквой
Дана строка символов (То есть ввести данные) .Найти слова, которые начинаются и заканчиваются одной...

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

Найти количество слов, которые начинаются и заканчиваются одной и той же буквой.
Здравствуйте люди добрые, Вот и у меня настала практика по Pascal, 43 задачи я решил из 54, на...


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

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

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