Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
9 / 0 / 0
Регистрация: 21.02.2014
Сообщений: 80
1

Удалить из первой строки символы, которые встречаются во второй строке

22.02.2014, 13:56. Просмотров 1246. Ответов 4
Метки нет (Все метки)

Помогите, пожалуйста, составить программу:
Удалить из первой строки символы, которые встречаются во второй строке.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2014, 13:56
Ответы с готовыми решениями:

Удалите из второй строки все символы, которые встречаются в первой строке, и поместите их в третью строку
заранее большое спасибо!

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

Удалите из второй строки все символы, которые встречаются в первой строке, и поместите их в третью строку
1. Удалите из второй строки все символы, которые встречаются в первой строке, и поместите их в...

Удалить из первой строки символы, которые содержатся во второй
Заданы две строки S1 и S2 . Удалить из строки S1 символы, содержащиеся в строке S2 .

4
Модератор
60231 / 45354 / 31294
Регистрация: 18.05.2008
Сообщений: 108,952
22.02.2014, 14:32 2
Pascal
1
2
3
4
i:=1;
while  i<=length(s1) do
if pos(s1[i],s2)>0 then delete(s1,i,1)
else i:=i+1;
1
9 / 0 / 0
Регистрация: 21.02.2014
Сообщений: 80
26.02.2014, 17:41  [ТС] 3
Спасибо, скажите пожалуйста, как оформить эту программу через процедуры и функции?
0
Модератор
60231 / 45354 / 31294
Регистрация: 18.05.2008
Сообщений: 108,952
26.02.2014, 17:56 4
Лучший ответ Сообщение было отмечено viktoriya95 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
procedure del(var s1:string;s2:string);
var i:byte;
begin
i:=1;
while i<=length(s1)do
if pos(s1[i],s2)>0 then delete(s1,i,1)
else i:=i+1;
write(s1)
end;
var s1,s2:string;
begin
clrscr;
writeln('Введите 1 строку');
readln(s1);
writeln('Введите 2 строку');
readln(s2);
del(s1,s2);
readln
end.
1
9 / 0 / 0
Регистрация: 21.02.2014
Сообщений: 80
26.02.2014, 17:59  [ТС] 5
Огромное спасибо!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2014, 17:59

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

Удалить из первой строки символы, не принадлежащие второй строке
Нужна помощь. Составить программу, в результате выполнения которой из первой заданной строки...

Даны две строки. Из множества символов первой строки удалить символы содержащиеся во второй строке.
составить программу для решения задач: 6. Даны две строки. Из множества символов первой строки...

Из множества символов первой строки удалить символы содержащиеся во второй строке
Народ, помогите пожалуйста :-С помощью одной/двух из этих процедур: -ввода с клавиатуры...

Вывести на экран в обратном порядке русские буквы, которые встречаются в первой строке и не встречаются во второй строке
Даны 2 строки. Вывести на экран в обратном порядке русские буквы, которые встречаются в первой...

Удалить из строки 1 все символы, которые встречаются в строке 2
4 Удаляет из строки 1 все символы, которые встречаются в строке 2 Вывести результат и статистику по...

Из первой заданной строки удалить символы имеющиеся во второй строке
Составить программу, в результате выполнения которой из первой заданной строки удаляется каждый...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.