Нужно написать программу (Упростите (A и B – множества)

@anime1903 · Регистрация: 28.04.2019

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

Упростите (A и B – множества) A·B – A

Множества. Обработка символьных данных

@ZX Spectrum-128 · 13.05.2019, 10:37

Pascal

var
  t, a, b: set of char;
  i, n: integer;
  c: char;
 
begin
  randomize;
  t := [];
  n := 100;
  for i := 1 to n do
  begin
    c := chr(random(224) + 32);
    include(a, c);
  end;
  writeln('Set A:');
  for c := #0 to #255 do
    if c in a then
      write(c);
  writeln;      
  for i := 1 to n do
  begin
    c := chr(random(224) + 32);
    include(b, c);
  end;
  writeln('Set B:');
  for c := #0 to #255 do
    if c in b then
      write(c);
  writeln;      
  t := a * b - a;
  writeln('New set:');
  for c := #0 to #255 do
    if c in t then
      write(c);
  writeln;      
end.

Добавлено через 27 секунд

Сообщение от anime1903

Упростите

Что значит "упростить"?

@volvo · 13.05.2019, 10:42

Сообщение от ZX Spectrum-128

Что значит "упростить"?

Значит, сразу написать:

Pascal

1
2
3

begin
  writeln('Result = []');
end.

Ведь если A*B - пересечение множеств, то в нем будут только те элементы, которые есть как в A, так и в B, и удаляя содержимое A - получим пустоту...

@ZX Spectrum-128 · 13.05.2019, 10:46

А я отчего-то подумал так:
a*b-a=a*(b-1)=a*0=0
Но засомневался.

@anime1903 · 13.05.2019, 23:16 **[ТС]**

код хороший. но я что то не понимаю. после new set: ничего нет снизу. не понимаю вообще как объяснить такой ответ
Set A:
#$%')-/9;BCIJNPZ\acdehmpz}‚„‡ˆŠ”–˜›Ÿ¡¤¥§ª«¬*¯²µº½¾ÀÃÅÆÇÊÌÏÐÑÖ×ÝÞèéëìîòõöøþ
Set B:
#%)+./139;=>BCDIJKMNORSVZ[]^ajknpstuy~„…ˆ‹’”•–™š›¢¥¦§*®²¶¾¿ÁÃÅÈÊËÍÓÔÕÖÚÝÞßäçìíîïðö÷øûý
New set:

можете пожалуйста объяснить либо, немножко переделать программу, ввести множества a и b (а не рандомом их создавать)

@ZX Spectrum-128 · 14.05.2019, 08:12

Pascal

var
  t, a, b: set of char;
  i, n: integer;
  c: char;
 
begin
  randomize;
  t := [];
  a := [];
  b := [];
  write('Введите количество символов в 1-м множестве: ');
  readln(n);
  writeln('Введите ', n, ' символов: ');
  for i := 1 to n do
  begin
    readln(c);
    include(a, c);
  end;
  writeln('Set A:');
  for c := #0 to #255 do
    if c in a then
      write(c, ' ');
  writeln;      
  write('Введите количество символов в 2-м множестве: ');
  readln(n);
  writeln('Введите ', n, ' символов: ');
  for i := 1 to n do
  begin
    readln(c);
    include(b, c);
  end;
  writeln('Set B:');
  for c := #0 to #255 do
    if c in b then
      write(c, ' ');
  writeln;      
  t := a * b - a;
  writeln('New set:');
  for c := #0 to #255 do
    if c in t then
      write(c, ' ');
end.

@anime1903 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 71
		1
	Нужно написать программу (Упростите (A и B – множества) 12.05.2019, 17:59. Показов 1927. Ответов 5 Метки нет (Все метки) Упростите (A и B – множества) A·B – A Множества. Обработка символьных данных 0

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	13.05.2019, 10:46	4
	А я отчего-то подумал так: ab-a=a(b-1)=a*0=0 Но засомневался. 0

@anime1903 0 / 0 / 0 Регистрация: 28.04.2019 Сообщений: 71
	13.05.2019, 23:16 [ТС]	5
	код хороший. но я что то не понимаю. после new set: ничего нет снизу. не понимаю вообще как объяснить такой ответ Set A: #$%')-/9;BCIJNPZ\acdehmpz}‚„‡ˆŠ”–˜›Ÿ¡¤¥§ª«¬¯²µº½¾ÀÃÅÆÇÊÌÏÐÑÖ×ÝÞèéëìîòõöøþ Set B: #%)+./139;=>BCDIJKMNORSVZ[]^ajknpstuy~„…ˆ‹’”•–™š›¢¥¦§®²¶¾¿ÁÃÅÈÊËÍÓÔÕÖÚÝÞßäçìíîïðö÷øûý New set: можете пожалуйста объяснить либо, немножко переделать программу, ввести множества a и b (а не рандомом их создавать) 0

	14.05.2019, 08:12

Опции темы

Нужно написать программу (Упростите (A и B – множества)

Решение