2 / 2 / 0
Регистрация: 25.02.2009
Сообщений: 21

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

28.02.2009, 14:24. Показов 3122. Ответов 8
Метки нет (Все метки)

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

главное написать процедуру
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.02.2009, 14:24
Ответы с готовыми решениями:

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

Верно ли, что все члены последовательности b1,..., bn входят в последовательность a1,..., a25
Даны натуральное число 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 нет повторяющихся чисел, нет их и среди...

8
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
28.02.2009, 15:27
По N ни каких ограничений нет? А то при N<25 точно нет.

Добавлено через 3 минуты 46 секунд
И обязательно процедуру? А то в таких задачах на проверку истинности обычно используют функцию логического типа.

Добавлено через 19 минут 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
uses crt;
const m=25;
      nmax=100;
type Tmas=array[1..nmax] of integer;
procedure Povtor(x:byte;m1,m2:Tmas; var f:boolean);
var i,j,k:byte;
begin
k:=0;
for i:=1 to m do
for j:=1 to x do
if m1[i]=m2[j] then k:=k+1;
if k=m then f:=true
else f:=false;
end;
 
var a,b:Tmas;
    pv:boolean;
    n:byte;
..................
write('n=');readln(n);
if n<m then 
   begin
    write('Ne vse vhodyat!');
    readln;
    exit;
   end
else
   begin
     ввод массивов
....................
     Povtor(n,a,b,pv);
     if pv=true then write('Vse vhodyat!')
     else write('Ne vse vhodyat!');
    end;
readln
end.
0
2 / 2 / 0
Регистрация: 25.02.2009
Сообщений: 21
28.02.2009, 16:28  [ТС]
конечно спасибо но можно попроше а то мы такого не проходили=( первый курс
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
28.02.2009, 16:29
А что здесь сложного? Сейчас такое в школе проходят.
0
2 / 2 / 0
Регистрация: 25.02.2009
Сообщений: 21
28.02.2009, 16:34  [ТС]
без констант и тайпов если мона ) я просто не шарю в них...
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
28.02.2009, 16:43
главное написать процедуру
Это я Вам написал. А как Вы хотите написать процедуру, не определив пользовательские типы параметров?
0
2 / 2 / 0
Регистрация: 25.02.2009
Сообщений: 21
28.02.2009, 16:45  [ТС]
наверное да... я в процедурах не разбираюсь =(
0
0 / 0 / 0
Регистрация: 01.03.2009
Сообщений: 4
01.03.2009, 00:42
Цитата Сообщение от Valerka Посмотреть сообщение
Дано натуральное число n, целые числа a1 .. a25, b1...bn. Среди a1 .. a25, b1...bn нет повторяющихся чисел. Верно ли что все члены последовательности a1 .. a25 входят в последовательность b1...bn

главное написать процедуру
Если число N не больше 255, то можно так:

var
a,b : set of byte;
begin
{ TODO -oUser -cConsole Main : Insert code here }
a:=[1,2,3,4];
b:=[1,2,3,4,5,6,6,7,8,9];
//
if a <= b then WriteLn('Yes!') else WriteLn('No!');
end.

Только это без процедур, так как "a<=b" включать в процедуру сиысла не вижу.
0
2 / 2 / 2
Регистрация: 27.10.2012
Сообщений: 110
18.12.2012, 17:11
Цитата Сообщение от Puporev Посмотреть сообщение
По N ни каких ограничений нет? А то при N<25 точно нет.

Добавлено через 3 минуты 46 секунд
И обязательно процедуру? А то в таких задачах на проверку истинности обычно используют функцию логического типа.

Добавлено через 19 минут 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
uses crt;
const m=25;
      nmax=100;
type Tmas=array[1..nmax] of integer;
procedure Povtor(x:byte;m1,m2:Tmas; var f:boolean);
var i,j,k:byte;
begin
k:=0;
for i:=1 to m do
for j:=1 to x do
if m1[i]=m2[j] then k:=k+1;
if k=m then f:=true
else f:=false;
end;
 
var a,b:Tmas;
    pv:boolean;
    n:byte;
..................
write('n=');readln(n);
if n<m then 
   begin
    write('Ne vse vhodyat!');
    readln;
    exit;
   end
else
   begin
     ввод массивов
....................
     Povtor(n,a,b,pv);
     if pv=true then write('Vse vhodyat!')
     else write('Ne vse vhodyat!');
    end;
readln
end.
Пожалуйста напишите без процедуры )
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.12.2012, 17:11
Помогаю со студенческими работами здесь

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

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

Определить, верно ли, что все члены второй последовательности входят в первую последовательность
Даны две последовательности a1, a2, ..., an и b1, b2, ..., bm (m &lt; n). В каждой из них члены различны. Верно, ли что все члены второй...

Верно, ли что все члены второй последовательности входят в первую последовательность
Даны две последовательности a1, a2, …an и b1, b2, …bm. (n&gt;m). В каждой из них члены различны. Верно, ли что все члены второй...

Определить, верно ли, что все члены второй последовательности входят в первую последовательность
даны две последовательности a1, a2,...,an и b1, b2,...,bm (m&lt;n). в каждой из них члены различны. верно ли, что все члены второй...


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

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

Новые блоги и статьи
Интеграция Hangfire с RabbitMQ в проектах C#.NET
stackOverflow 18.04.2025
Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .
Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики
ArchitectMsa 18.04.2025
Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .
Префабы в Unity: Использование, хранение, управление
GameUnited 18.04.2025
Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit)
stackOverflow 18.04.2025
Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .
Типы в TypeScript
run.dev 18.04.2025
TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core
stackOverflow 18.04.2025
Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
Коммуникация в реальном времени с SignalR в C# на примере создания чата
UnmanagedCoder 17.04.2025
Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .
Реализация CQRS с MediatR на C# .NET
stackOverflow 17.04.2025
Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .
Verilog и интеллектуальная собственность - "глазами" обученной LM модели.
Hrethgir 17.04.2025
В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .
Свап-файл дополнительно к разделу (если вдруг не хватает или не создан)
jigi33 17.04.2025
ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru