0 / 0 / 0
Регистрация: 18.10.2017
Сообщений: 46
1

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

06.06.2018, 10:14. Показов 1690. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Организовать ввод элементов трех множеств A, B, C. По запросу пользователя вычис-
лить и напечатать одно из производных множеств (объединение, пересечение, разность)
для любой пары множеств. Запрос вводится в виде: A*C, C+B, B-C и т.п.
Помогите решить задачу на языке Pascal ABC и составить к ней блок-схему,пожалуйста. Заранее благодарю!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2018, 10:14
Ответы с готовыми решениями:

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

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

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

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

2
Эксперт Pascal/Delphi
6805 / 4564 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
06.06.2018, 14:55 2
Лучший ответ Сообщение было отмечено 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  [ТС] 3
ZX Spectrum-128, Спасибо большое!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2018, 15:08
Помогаю со студенческими работами здесь

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

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

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

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

Вычисление суммы n членов ряда согласно условию задачи (с блок-схемой)
составить блок-схему алгоритма и программу вычисления суммы n членов ряда согласно условию задачи....

PASCAL ABC. ЗАДАЧИ НА ФОТО. ПОМОГИТЕ С УРОВНЕМ С
PASCAL ABC. ЗАДАЧИ НА ФОТО. ПОМОГИТЕ С УРОВНЕМ С


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru