Решение задачи на языке Pascal ABC с блок-схемой

@Полина05-02 · Регистрация: 18.10.2017

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

Организовать ввод элементов трех множеств A, B, C. По запросу пользователя вычис-
лить и напечатать одно из производных множеств (объединение, пересечение, разность)
для любой пары множеств. Запрос вводится в виде: A*C, C+B, B-C и т.п.
Помогите решить задачу на языке Pascal ABC и составить к ней блок-схему,пожалуйста. Заранее благодарю!

@ZX Spectrum-128 · 06.06.2018, 14:55

Взято отсюда:
Найти множеств пересечение и вывести полученное множество на экран

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
var
  d, a, b, c: Set of Byte;
  i, n: byte;
  x: Byte;
  s: string;
 
begin
  randomize;
  d := [];
  s := '';
  n := random(5) + 2;
  Writeln('Заполните первое множество ', n, ' числами: ');
  for i := 1 to n do
  begin
    Readln(x);
    Include(a, x);
  end;
  //  write(a);
  n := random(5) + 2;
  Writeln('Заполните второе множество ', n, ' числами: ');
  for i := 1 to n do
  begin
    Readln(x);
    Include(b, x);
  end;
  //  write(b);
  n := random(5) + 2;
  Writeln('Заполните третье множество ', n, ' числами: ');
  for i := 1 to n do
  begin
    Readln(x);
    Include(c, x);
  end;
  //  write(c);
  writeln('Введите запрос в виде A+B: ');
  readln(s);
  if s = 'A+B' then
  begin
    d := a + b;
    Writeln('Объединение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A+C' then
  begin
    d := a + c;
    Writeln('Объединение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'B+C' then
  begin
    d := b + c;
    Writeln('Объединение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A*B' then
  begin
    d := a * b;
    Writeln('Пересечение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A*C' then
  begin
    d := a * c;
    Writeln('Пересечение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'B*C' then
  begin
    d := b * c;
    Writeln('Пересечение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A-B' then
  begin
    d := a - b;
    Writeln('Разность множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A-C' then
  begin
    d := a - c;
    Writeln('Разность множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'B-C' then
  begin
    d := b - c;
    Writeln('Разность множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
    writeln('Некорректный запррос!');
end.

@Полина05-02 · 06.06.2018, 15:08 **[ТС]**

ZX Spectrum-128, Спасибо большое!!!

Новые блоги и статьи Все статьи Все блоги /
Оптимизация производительности Express.js бэкенда Reangularity 23.05.2025 Express. js заслуженно остаётся одним из самых популярных инструментов для создания бэкенда, но даже он не застрахован от проблем с производительностью. Многие разработчики сталкиваются с ситуацией,. . .	Продвинутая обработка данных с LINQ в C# stackOverflow 23.05.2025 LINQ (Language Integrated Query) — это фундаментальное изменение парадигмы работы с данными в C#. Простые запросы Where и Select знакомы любому разработчику, но настоящая мощь LINQ раскрывается в. . .	Инфраструктура PKI и сертификатов безопасности Mr. Docker 23.05.2025 PKI (Public Key Infrastructure) — это невидимый фундамент цифрового доверия, без которого современный интернет просто рассыпался бы как карточный домик. За этой аббревиатурой скрывается целый. . .	Аутентификация OAuth в Python py-thonny 22.05.2025 OAuth (Open Authorization) — это целый стандарт для делегированного доступа. Звучит занудно? Давайте проще: OAuth позволяет приложениям получать доступ к информации пользователя на сторонних сервисах. . .	Хеширование и соль паролей в веб-приложениях C# stackOverflow 22.05.2025 Когда-то в начале своей карьеры я тоже грешил простейшими подходами к хранению паролей – MD5-хеширование казалось верхом защиты. Но технологии не стоят на месте, вычислительные мощьности растут, и. . .
Генераторы Python для эффективной обработки данных AI_Generated 21.05.2025 В Python существует инструмент настолько мощный и в то же время недооценённый, что я часто сравниваю его с тайным оружием в арсенале программиста. Речь идёт о генераторах — одной из самых элегантных. . .	Чем заменить Swagger в .NET WebAPI stackOverflow 21.05.2025 Если вы создавали Web API на . NET в последние несколько лет, то наверняка сталкивались с зелёным интерфейсом Swagger UI. Этот инструмент стал практически стандартом для документирования и. . .	Использование Linq2Db в проектах C# .NET UnmanagedCoder 21.05.2025 Среди множества претендентов на корону "идеального ORM" особое место занимает Linq2Db — микро-ORM, балансирующий между мощью полноценных инструментов и легковесностью ручного написания SQL. Что. . .	Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .

@Полина05-02 0 / 0 / 0 Регистрация: 18.10.2017 Сообщений: 46

	Решение задачи на языке Pascal ABC с блок-схемой 06.06.2018, 10:14. Показов 1906. Ответов 2 Метки нет (Все метки) Организовать ввод элементов трех множеств A, B, C. По запросу пользователя вычис- лить и напечатать одно из производных множеств (объединение, пересечение, разность) для любой пары множеств. Запрос вводится в виде: A*C, C+B, B-C и т.п. Помогите решить задачу на языке Pascal ABC и составить к ней блок-схему,пожалуйста. Заранее благодарю! 0

@Полина05-02 0 / 0 / 0 Регистрация: 18.10.2017 Сообщений: 46
	06.06.2018, 15:08 [ТС]
	ZX Spectrum-128, Спасибо большое!!! 0

Опции темы