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

Удалить в тексте заданные слова.

07.12.2010, 15:55. Показов 11398. Ответов 6
Метки нет (Все метки)

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

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

Удалить в тексте третью букву каждого слова
1. Дан текст. Удалить в нём третью букву каждого слова;

Определить сколько раз заданные слова встречаются в тексте.
Требуется помощь! Возникла проблема не могу решить задачу! Тема: Файлы. 1)Дан файл, содержащий...

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

6
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
07.12.2010, 16:05 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Dekio;
var
s,n :string;
i :integer;
begin
writeln('Введите строку');
readln(s);
writeln('Введите слово которое удалить');
readln(n);
while pos(n,s)<>0 do
delete(s,pos(n,s),length(n));
writeln('Результат');
writeln(s);
end.
1
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
07.12.2010, 16:12 3
 Комментарий модератора 
Pascal П.О.М.О.Г.И.Т.Е
Так называть темы-нарушение правил, которые Вы не читали. Я одну тему исправил, Вы продолжаете, не обижайтесь на карточку, заслужили.


Добавлено через 2 минуты
Dekio, Введите строку
столб сторож просто.
введите удалить слово сто.
0
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
07.12.2010, 16:18 4
Введите строку
столб сторож просто.
Введите слово которое удалить
сто
Результат
лб рож про.
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
07.12.2010, 16:29 5
Так в строке нет вообще слова сто, Вы удалили не слова, а сочетания букв.
0
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
07.12.2010, 16:34 6
точно, проглядел
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
07.12.2010, 16:36 7
Можно например так.

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
uses crt;
var s,slv,s1,s2:string;
    n,i,j,k,p:byte;
begin
clrscr;
writeln('Введите последовательность слов, разделенных пробелами');
readln(s);
writeln('Какое слово удалить?');
readln(slv);
s2:='';
i:=1;
while i<=length(s) do
if (s[i]<>' ')and ((s[i-1]=' ')or(i=1)) then{если буква, а перед ней пробел, или она первая}
 begin
  k:=i;s1:='';
  while (s[k]<>' ')and(k<=length(s))do {пока не пробел и не конец строки}
   begin
    s1:=s1+s[k];
    k:=k+1;{идем вперед}
   end;
  if s1<>slv then s2:=s2+s1; {если не заданное слово, пишем в новую строку}
  i:=i+length(s1);{перепрыгиваем}
 end
else
 begin
  s2:=s2+s[i];{если не слово, пишем и идем вперед}
  i:=i+1;
 end;
write(s2);
readln
end.
0
07.12.2010, 16:36
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2010, 16:36

Определить количество повторений в тексте заданного слова. Считать, что слова в тексте отделены друг от друга
1)В строке удалить введённое буквосочетание. 2)Определить количество повторений в тексте заданного...

Удалить в тексте третью букву каждого слова
Дан текст. Удалить в нём третью букву каждого слова; помогите че-то я не могу разобраться ...

В тексте удалить слова с нечетным количеством букв
2) Вводится текст. В тексте удалить слова с нечетным количеством букв. Конец ввода F1.

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


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

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

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