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
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.06.2018, 10:14
Ответы с готовыми решениями:

Нужно решение задачи на Pascal ABC
Работа с двумерными массивами. Дан двумерный массив размером n *m, заполненный случайным образом. 1.Заменить максимальный по модулю...

Создать блок-схему и программу на языке Pascal для приведенной задачи
Создать блок-схему и программу на языке Pascal для приведенной задачи

Создать блок-схему и программу на языке Pascal для приведенной задачи
Создать блок-схему и программу на языке Pascal для приведенной задачи

2
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
06.06.2018, 14:55
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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

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.
0
0 / 0 / 0
Регистрация: 18.10.2017
Сообщений: 46
06.06.2018, 15:08  [ТС]
ZX Spectrum-128, Спасибо большое!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.06.2018, 15:08
Помогаю со студенческими работами здесь

Создать блок-схему и программу на языке Pascal для приведенной задачи
Создать блок-схему и программу на языке Pascal для приведенной задачи

Как быстро научиться программировать на языке Pascal ABC
Как быстро научиться программировать на языке Pascal ABC? Для уроков информатики надо.

Задачи на Pascal ABC
Здравствуйте! Прошу помощи по программам Pascal ABC! Кто может помогите, хотя-бы одной.)

Задачи на Pascal ABC.NET
Помогите решить задачи приведенные на изображении ниже.

решение в Pascal ABC
Составить программу для вычисления значения функции y = f (x) в точках x при заданных значениях a. Нахождение значения функции f(x) при...


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

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

Новые блоги и статьи
Оптимизация производительности 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, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru