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

@Valerka · Регистрация: 25.02.2009

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

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

главное написать процедуру

@Puporev · 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.

@Valerka · 28.02.2009, 16:28 **[ТС]**

конечно спасибо

но можно попроше

а то мы такого не проходили=( первый курс

@Puporev · 28.02.2009, 16:29

А что здесь сложного? Сейчас такое в школе проходят.

@Valerka · 28.02.2009, 16:34 **[ТС]**

без констант и тайпов

если мона

) я просто не шарю в них...

@Puporev · 28.02.2009, 16:43

главное написать процедуру

Это я Вам написал. А как Вы хотите написать процедуру, не определив пользовательские типы параметров?

@Valerka · 28.02.2009, 16:45 **[ТС]**

наверное да... я в процедурах не разбираюсь =(

@Vitaliy · 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" включать в процедуру сиысла не вижу.

@li_lego · 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.

Пожалуйста напишите без процедуры )

Новые блоги и статьи Все статьи Все блоги /
Интеграция 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-файл вместо. . .

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

	Верно ли что все члены последовательности a1 .. a25 входят в последовательность b1...bn 28.02.2009, 14:24. Показов 3122. Ответов 8 Метки нет (Все метки) Дано натуральное число n, целые числа a1 .. a25, b1...bn. Среди a1 .. a25, b1...bn нет повторяющихся чисел. Верно ли что все члены последовательности a1 .. a25 входят в последовательность b1...bn главное написать процедуру 0

@Valerka 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

@Valerka 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

@Valerka 2 / 2 / 0 Регистрация: 25.02.2009 Сообщений: 21
	28.02.2009, 16:45 [ТС]
	наверное да... я в процедурах не разбираюсь =( 0

@Vitaliy 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

Опции темы