0 / 0 / 0
Регистрация: 08.09.2018
Сообщений: 98

Получить все члены последовательности b1,..., bn, которые не входят в последовательность a1,..., a25

25.11.2018, 10:59. Показов 1776. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны натуральное число n, целые числа a1,..., a25, b1,..., bn. Среди a1,..., a25 нет повторяющихся чисел, нет их и среди b1,..., bn.

Получить все члены последовательности b1,..., bn, которые не входят в последовательность a1,..., a25.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.11.2018, 10:59
Ответы с готовыми решениями:

Получить все члены последовательности b1 ... bn, которые не входят в последовательность a1 ... a25
Есть код задачи со вложенными циклами. надо сделать с процедурой. Помогите пожалуйста, у меня не получается. Выдает ошибку. Я еще не...

Верно ли что все члены последовательности a1 .. a25 входят в последовательность b1...bn
Дано натуральное число n, целые числа a1 .. a25, b1...bn. Среди a1 .. a25, b1...bn нет повторяющихся чисел. Верно ли что все члены...

Получить все члены последовательности b1,b2,.,bn, которые не входят в последовательность a1,a2,.,a25
Даны натуральное число n, целые числа a1,a2,...,a25, b1,b2,...,bn. Среди a1,a2,..., a25 нет повторяющихся чисел, нет их и среди...

2
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
25.11.2018, 12:25
Можно сделать так.
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
const n=25;
type mas=array[1..n] of byte; //тип byte чтоб использовать множества
//создание последовательности из не повторяющихся чисел
procedure massiv(var a:mas;c:char);
var m:set of byte;
    i:byte;
begin
writeln('Последовательность ',c);
m:=[];
for i:=1 to n do
 begin
  repeat
  a[i]:=random(256);
  until not(a[i] in m);
  include(m,a[i]);
  write(a[i]:4);
 end;
writeln
end;
//сортировка массива по возрастанию
procedure sort(var a:mas);
var i,j,x:byte;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
//бинарный поиск числа в массиве
function poisk(a:mas;x:byte):boolean;
var l,r,m:byte;
begin
l:=0;
r:=n;
while r-l>1 do
 begin
  m:=(l+r) div 2;
  if x<=a[m] then r:=m else l:=m;
 end;
result:=a[r]=x;
end;
var a,b:mas;
    i,k:byte;
begin
massiv(a,'A');
massiv(b,'B');
sort(a);
writeln('Числа из последовательности В которых нет в последовательности А');
k:=0;
for i:=1 to n do
if (b[i] in [a[1]..a[n]])and not poisk(a,b[i]) then
 begin
  k:=1;
  write(b[i]:4);
 end;
if k=0 then write('Таких чисел нет')
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.11.2018, 12:25
Помогаю со студенческими работами здесь

Верно ли, что все члены последовательности b1,..., bn входят в последовательность a1,..., a25
Даны натуральное число n, целые числа a1,..., a25, b1,..., bn. Среди a1,..., a25 нет повторяющихся чисел, нет их и среди b1,..., bn. Верно...

Процедуры и функции. Получить все члены последовательности b,которые входят в последовательность a
даны натуральные числа n и m,целые числа а1,а2,..аn;b1,b2,..bm.среди тех и тех нет повторяющихся.получить все члены последовательности...

Получить все члены одной последовательности, которые не входят во вторую
Помогите написать программу, очень нужно. Желательно использовать процедуры и функции. Даны две последовательности a1,a2,...,an и...

получить все элементы последовательности B которые не входят в последовательность A
Привет помогите пожалуйста написать программу по другому, Даны натуральные числа n и m, целые числа a(1),...,a(m) и b(1),...,b(n). Среди...

Верно ли что все члены последовательности a входят в последовательность b
Даны натуральное число n,целые числа a,...,a,b,...,b.Среди a,...,a нет повторяющихся чисел,нет их и среди b,...,b.Верно ли что все члены...


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

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

Новые блоги и статьи
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint
run.dev 26.04.2025
JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .
Паттерны в Python: Singleton, Factory и Observer
py-thonny 26.04.2025
Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .
Исключения в C#: Stack Overflow, Access Violation и Out of memory
stackOverflow 26.04.2025
Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana
stackOverflow 25.04.2025
Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .
Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик.
Hrethgir 25.04.2025
Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python
py-thonny 25.04.2025
Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .
Apache Kafka vs RabbitMQ в микросервисной архитектуре
ArchitectMsa 25.04.2025
Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .
Параллельное программирование с OpenMP в C++
NullReferenced 24.04.2025
Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .
Цепочки методов в C# с Fluent API
UnmanagedCoder 24.04.2025
Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .
Мульти-тенантные БД с PostgreSQL Row Security
Codd 23.04.2025
Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru