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

@Ленка23 · Регистрация: 23.05.2013

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

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

Kodzaev · 26.06.2013, 23:42

Pascal

Type
  MySet = Set of Char;
Var
  s1,s2: String;
  m1,m2: MySet;
  i: Byte;
{-----------}
Procedure PrintSet(var h: MySet);
var i: Byte;
begin
  For i:=0 to 255 do
  If Chr(i) in h Then
  Write(Chr(i),' ');
  Writeln
end;
{-----------}
BEGIN
m1:=[];
m2:=[];
Writeln('Введите 1 строку:');
Readln(s1);
Writeln('Введите 2 строку:');
Readln(s2);
For i:=1 to Length(s1) do
Include(m1,s1[i]);
For i:=1 to Length(s2) do
Include(m2,s2[i]);
Writeln('Множество символов 1 строки:');
PrintSet(m1);
Writeln('Множество символов 2 строки:');
PrintSet(m2);
Writeln('Разность множеств:');
m1:=m1-m2;
PrintSet(m1);
END.

@Ленка23 1 / 1 / 0 Регистрация: 23.05.2013 Сообщений: 28
		1
	Даны две строки. Из множества символов первой строки удалить символы содержащиеся во второй строке. 26.06.2013, 23:13. Показов 5510. Ответов 1 Метки нет (Все метки) составить программу для решения задач: 6. Даны две строки. Из множества символов первой строки удалить символы содержащиеся во второй строке. 0

	26.06.2013, 23:42

Опции темы

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

Решение