1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
T - абсолютно не нужно. вместо него пишешь a[i] и делаешь снаружи цикл по i. то есть чтобы действия, описанные volvo, выполнялись для каждого элемента. записи? сначала у тебя множество пустое. а добавление в него эл-тов происходит здесь:
rez_mn:=rez_mn+[T mod 10];
ты наверное не правильно поняла меня насчет записи: "а вот ещё: дан массив из эн натур. чисел. Сформировать множество цифр, которых нет в записи хотя бы одного из чисел массива. "
18192123, запись числа - это совокупность его цифр, написанных по определенному закону! это то, что мы записываем. тут речь не про тип "запись".
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
ещё один вопрос: составила прогу для второй задачи без процедур: все работает
Program lab_8_2; uses crt; const n=5; type vect=array[1..n]of integer; procedure input(var a:vect); var i:byte; begin writeln ('vvedite massiv naturalnih 4isel'); for i:=1 to n do read (a[i]); end; VAR a:vect; i,k:byte; is_mn,rez_mn,mn_4isel:set of byte; BEGIN CLRSCR; input (a); mn_4isel:=[]; for i:=1 to n do begin while a[i]<>0 do begin mn_4isel:=mn_4isel+[a[i] mod 10]; a[i]:=a[i] div 10; end; end;
is_mn:=[0..9]; rez_mn:=is_mn-mn_4isel; for k:=0 to 9 do begin if k in rez_mn then writeln (k); end; readkey; end.
теперь хочу дополнить программу процедурой - не получается; не пойму в чем дело?
Program lab_8_2; uses crt; const n=5; type vect=array[1..n]of integer; procedure input(var a:vect); var i:byte; begin writeln ('vvedite massiv naturalnih 4isel'); for i:=1 to n do read (a[i]); end; procedure creat_mn(const a:vect); var mn_4isel:set of byte; i:byte; begin mn_4isel:=[]; for i:=1 to n do begin while a[i]<>0 do begin mn_4isel:=mn_4isel+[a[i] mod 10]; a[i]:=a[i] div 10; end; end; end;
VAR a:vect; i:byte; is_mn,rez_mn,mn_4isel:set of byte; BEGIN CLRSCR; input (a); creat_mn(a,i); is_mn:=[0..9]; rez_mn:=is_mn-mn_4isel; for i:=0 to 9 do begin if i in rez_mn then writeln (i); end; readkey; end.
А что ты думала она будет выдавать? mn_4isel - локальная переменная, после выхода из процедуры уничтожается, а глобальная с тем же именем ничего про процедуру create_mn вообще не знает, и естественно равна [] ... Все правильно... Тебе надо как-то возвращать множество из процедуры... Подумай, как...
А что ты думала она будет выдавать? mn_4isel - локальная переменная, после выхода из процедуры уничтожается, а глобальная с тем же именем ничего про процедуру create_mn вообще не знает, и естественно равна [] ... Все правильно... Тебе надо как-то возвращать множество из процедуры... Подумай, как...
у меня такая мысль: объявить mn_4isel в списке формальных параметров(не знаю, как - пытаюсь сделать - ошибки??????)
А что ты думала она будет выдавать? mn_4isel - локальная переменная, после выхода из процедуры уничтожается, а глобальная с тем же именем ничего про процедуру create_mn вообще не знает, и естественно равна [] ... Все правильно... Тебе надо как-то возвращать множество из процедуры... Подумай, как...