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

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

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

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

главное написать процедуру
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2009, 14:24
Ответы с готовыми решениями:

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

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

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

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

8
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
28.02.2009, 15:27 2
По 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  [ТС] 3
конечно спасибо но можно попроше а то мы такого не проходили=( первый курс
0
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
28.02.2009, 16:29 4
А что здесь сложного? Сейчас такое в школе проходят.
0
2 / 2 / 0
Регистрация: 25.02.2009
Сообщений: 21
28.02.2009, 16:34  [ТС] 5
без констант и тайпов если мона ) я просто не шарю в них...
0
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
28.02.2009, 16:43 6
главное написать процедуру
Это я Вам написал. А как Вы хотите написать процедуру, не определив пользовательские типы параметров?
0
2 / 2 / 0
Регистрация: 25.02.2009
Сообщений: 21
28.02.2009, 16:45  [ТС] 7
наверное да... я в процедурах не разбираюсь =(
0
0 / 0 / 0
Регистрация: 01.03.2009
Сообщений: 4
01.03.2009, 00:42 8
Цитата Сообщение от 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 9
Цитата Сообщение от 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2012, 17:11
Помогаю со студенческими работами здесь

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

Определить, верно ли, что все члены второй последовательности входят в первую последовательность
Даны две последовательности 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). в каждой из них члены различны....

Даны две последовательности. Верно ли, что все члены второй последовательности входят в первую?
Даны две последовательности a^1,a^2,...,a^n, b^1,b^2,...,b^n (m&lt;n). В каждой из них члены различны....

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


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

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

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