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

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

Дано натуральное число 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

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

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

@Valerka 2 / 2 / 0 Регистрация: 25.02.2009 Сообщений: 21
	28.02.2009, 16:28 [ТС]	3
	конечно спасибо но можно попроше а то мы такого не проходили=( первый курс 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	28.02.2009, 16:29	4
	А что здесь сложного? Сейчас такое в школе проходят. 0

@Valerka 2 / 2 / 0 Регистрация: 25.02.2009 Сообщений: 21
	28.02.2009, 16:34 [ТС]	5
	без констант и тайпов если мона ) я просто не шарю в них... 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	28.02.2009, 16:43	6
	главное написать процедуру Это я Вам написал. А как Вы хотите написать процедуру, не определив пользовательские типы параметров? 0

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

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

Опции темы