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

01.06.2010, 22:58. Показов 900. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Создать текст. Вывести те слова текста, которые отличны от последнего слова и первая буква слова входит в него еще раз и первая буква входит еще раз.

есть фрагмент...но он не работает... и не до конца...удаляется полностью строчка.

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
mn:=['.','!','?'];
mn1:=[' ',',',';']+mn;
  assign(f1,'f1.txt');
 
 vivod(f1,' fail f1');
 assign(f2,'f2.txt');
 rewrite(f2);
 reset(f1);
 while not seekeof(f1) do
   begin readln(f1,t);
kb:=0; ksl:=0;
    for i:= 1 to length(t) do
     if not (t[i] in mn1) then inc(kb)
                        else if kb>0 then
                                        begin
                                         inc(ksl);
                                         a[ksl]:=copy(t,i-kb,kb);
                                         kb:=0;
                                       end;
k:=ksl;
s1:=copy(t,k,pos);
 
reset(f1);
mn:=[' ','.',',','!'];
    kb:=0; ksl:=0;
 
while not seekoef(f1) do
begin readln(f1,t);
    for i:=1 to length (t)  do
    if not (t[i] in mn) then inc(kb)
                        else if kb>0 then begin inc(ksl);
                        a[ksl]:=copy(t,i-kb,kb);kb:=0; end;
     k:=ksl;
     t:=' ';
      for i:=1 to ksl-1 do 
      if a[i]=a[k] then a[i]:='';

вот

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

01.06.2010, 22:58

Ответы с готовыми решениями:

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

Напечатать все слова, у которых первая буква входит в слово еще раз
ЛАБОРАТОРНАЯ РАБОТА №10 Тема :обработка данных литерного типа. Цель:приобретение навыков работы с произвольным текстом. Задание: ...

Напечатать те слова последовательности, в которых первая буква слова входит в него ещё раз
Дана последовательность, состоящая из 10 слов. Напечатать те слова последовательности, в которых первая буква слова входит в него ещё раз.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

01.06.2010, 22:58

Помогаю со студенческими работами здесь

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

Вывести те слова последовательности, у которых первая буква слова входит в него ещё раз
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами –...

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

Напечатать слова, первая буква которых входит в них ещё раз
Есть последовательность в которой от 1 до 30 слов, в каждом из которых от 1 до 5 латинских букв.Слова разделены запетыми, в конце...

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

Наверх