Напечатать в алфавитном порядке буквы первого набора, которые не принадлежат второму

@Eizio135 · Регистрация: 08.09.2019

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

Заданы два символьных массива с малых и больших латинских букв и цифр A (n), n <= 600 и C (m), m <= 500. Разработать программу, которая печатает в алфавитном порядке буквы первого набора, которые не принадлежат другому.

Скажите пожалуйста последовательность действий.(я не в коем случаи не прошу код )

@ValentinNemo · 22.07.2020, 15:09

Вариант 1. С повторяющимися символами.

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
program Project1;
 
uses
  CRT;
const
  maxelem1 = 600;
  maxelem2 = 500;
var
  a: array [1..maxelem1] of char; {Переменная для  хранения массива.}
  c: array [1..maxelem2] of char; {Переменная для  хранения массива.}
  b: array [1..maxelem1] of char; {Переменная для  хранения массива.}
  n,m: integer; {  Переменные для хранения значения количества элементов в массиве.}
  i,j,k,d: integer; { Вспомогательная переменная для организации циклов.}
  tmp: char; { Переменная для хранения значений кодов символов при сортировке}
  flag: boolean; { Вспомогательная перерменная для отбора элементов}
begin
  Randomize;
  write('Введите значение количества элементов массива А (не более ',maxelem1,'): ');
  repeat
    Readln(n);                        {Ввод значения количества элементов массива}
    if (n < 1) or (n > maxelem1) then   {Условие проверки введенного значения на допустимый диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
 
  write('Введите значение количества элементов массива C (не более ',maxelem2,'): ');
  repeat
    Readln(m);                        {Ввод значения количества элементов массива}
    if (m < 1) or (m > maxelem2) then   {Условие проверки введенного значения на допустимый диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  for i:= 1 to n do
    begin
      repeat
        k:= 48 + random(75);
      until k in [48..57,65..90,97..122];
      a[i]:= chr(k);
    end;
  for i:= 1 to m do
    begin
      repeat
        k:= 48 + random(75);
      until k in [48..57,97..122];
      c[i]:= chr(k);
    end;
 
  writeln('Исходный массив A: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);                 {Вывод значений элементов в консоль}
      if i mod 10 = 0 then
        writeln;
    end;
  writeln('Исходный массив C: ');
  for i:= 1 to m do
    begin
      write(c[i]:5);                 {Вывод значений элементов в консоль}
      if i mod 10 = 0 then
        writeln;
    end;
  k:= 0;
  for i:= 1 to n do
    begin
      flag:= true;
      for j:= 1 to m do
        if a[i] = c[j] then
          flag:= false;
      if flag then
        begin
          inc(k);
          b[k]:= a[i];
        end;
    end;
  for i:= 1 to k-1 do     {Сортировка "пузырьком"}
    for j:= 1 to k-i do
      if ord(b[j]) > ord(b[j+1]) then
        begin
          tmp:= b[j];
          b[j]:= b[j+1];
          b[j+1]:= tmp;
        end;
  writeln('Массив символов первого набора, которые не принадлежат второму набору: ');
  for i:= 1 to k do
    begin
      write(b[i]:5);                 {Вывод значений элементов в консоль}
      if i mod 10 = 0 then
        writeln;
    end;
 
  Readln;
end.

Вариант 2. С не повторяющимися символами.

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
program Project1;
 
uses
  CRT;
const
  maxelem1 = 600;
  maxelem2 = 500;
var
  a: array [1..maxelem1] of char; {Переменная для  хранения массива.}
  c: array [1..maxelem2] of char; {Переменная для  хранения массива.}
  b1,b2: array [1..maxelem1] of char; {Переменная для  хранения массива.}
  n,m: integer; {  Переменные для хранения значения количества элементов в массиве.}
  i,j,k,d,f: integer; { Вспомогательная переменная для организации циклов.}
  tmp: char; { Переменная для хранения значений кодов символов при сортировке}
  flag: boolean; { Вспомогательная перерменная для отбора элементов}
begin
  Randomize;
  write('Введите значение количества элементов массива А (не более ',maxelem1,'): ');
  repeat
    Readln(n);                        {Ввод значения количества элементов массива}
    if (n < 1) or (n > maxelem1) then   {Условие проверки введенного значения на допустимый диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
 
  write('Введите значение количества элементов массива C (не более ',maxelem2,'): ');
  repeat
    Readln(m);                        {Ввод значения количества элементов массива}
    if (m < 1) or (m > maxelem2) then   {Условие проверки введенного значения на допустимый диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  for i:= 1 to n do
    begin
      repeat
        k:= 48 + random(75);
      until k in [48..57,65..90,97..122];
      a[i]:= chr(k);
    end;
  for i:= 1 to m do
    begin
      repeat
        k:= 48 + random(75);
      until k in [48..57,97..122];
      c[i]:= chr(k);
    end;
 
  writeln('Исходный массив A: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);                 {Вывод значений элементов в консоль}
      if i mod 10 = 0 then
        writeln;
    end;
  writeln('Исходный массив C: ');
  for i:= 1 to m do
    begin
      write(c[i]:5);                 {Вывод значений элементов в консоль}
      if i mod 10 = 0 then
        writeln;
    end;
  k:= 0;
  for i:= 1 to n do
    begin
      flag:= true;
      for j:= 1 to m do
        if a[i] = c[j] then
          flag:= false;
      if flag then
        begin
          inc(k);
          b1[k]:= a[i];
        end;
    end;
  f:= 0;
  for i:= 1 to k do   { Цикл для перебора элементов в исходном массиве}
    begin
      flag:= false;
      for j:= 1 to f do {Цикл для перебора элементов во втором массиве}
        if b1[i] = b2[j] then  {Условие проверки наличия значений уже прошедших отбор }
          flag:= true;   {Флаг, который показывает, что такие значения уже найдены и занесены во второй массив}
      if not flag then
        begin
          inc(f);
          b2[f]:= b1[i];    {Пополнение второго массива элементами, значения которых еще не встречались}
        end;
    end;
  for i:= 1 to f-1 do     {Сортировка "пузырьком"}
    for j:= 1 to f-i do
      if ord(b2[j]) > ord(b2[j+1]) then
        begin
          tmp:= b2[j];
          b2[j]:= b2[j+1];
          b2[j+1]:= tmp;
        end;
  writeln('Массив символов первого набора, которые не принадлежат второму набору: ');
  for i:= 1 to f do
    begin
      write(b2[i]:5);                 {Вывод значений элементов в консоль}
      if i mod 10 = 0 then
        writeln;
    end;
 
  Readln;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Eizio135 2 / 8 / 1 Регистрация: 08.09.2019 Сообщений: 195

	Напечатать в алфавитном порядке буквы первого набора, которые не принадлежат второму 22.07.2020, 13:16. Показов 1040. Ответов 1 Метки нет (Все метки) Заданы два символьных массива с малых и больших латинских букв и цифр A (n), n <= 600 и C (m), m <= 500. Разработать программу, которая печатает в алфавитном порядке буквы первого набора, которые не принадлежат другому. Скажите пожалуйста последовательность действий.(я не в коем случаи не прошу код ) 0

Напечатать в алфавитном порядке буквы первого набора, которые не принадлежат второму

Решение