работа с записями, (упорядочение, формирование множества) Опции

[18192123]

T - абсолютно не нужно.
вместо него пишешь a[i] и делаешь снаружи цикл по i. то есть чтобы действия, описанные volvo, выполнялись для каждого элемента.
записи? сначала у тебя множество пустое. а добавление в него эл-тов происходит здесь:

rez_mn:=rez_mn+[T mod 10];

ты наверное не правильно поняла меня насчет записи:
"а вот ещё: дан массив из эн натур. чисел. Сформировать множество цифр, которых нет в записи хотя бы одного из чисел массива. "

[Malice]

Похоже вот этот блок в твоей программе:

rez_mn:=is_mn-rez_mn;
for i:=0 to 9 do 
  begin
         if i in rez_mn then

надо поменять на:

is_mn:=is_mn-rez_mn;
for i:=0 to 9 do 
  begin
         if i in is_mn then

[мисс_граффити]

18192123, запись числа - это совокупность его цифр, написанных по определенному закону! это то, что мы записываем.
тут речь не про тип "запись".

[volvo]

T - абсолютно не нужно.
вместо него пишешь a[i] и делаешь снаружи цикл по i.

То есть, посмотреть на контекст нельзя никак? Сообщение №13 что говорит? Я по-моему, объяснил, ЗАЧЕМ здесь нужно T?

[мисс_граффити]

Ой. Сорри.
А нельзя тему на 2 разделить?

[18192123]

тут речь не про тип "запись".

Всё! теперь понятно!

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

[volvo]

procedure creat_mn(const a:vect); { <--- Проблема в Const }

Ты запретила изменять множество, а ниже пытаешься это делать... Значит, тебе надо Var ...

[18192123]

procedure creat_mn(const a:vect); { <--- Проблема в Const }

Ты запретила изменять множество, а ниже пытаешься это делать... Значит, тебе надо Var ...

компиляция проходит успешно, а программа выдает все цифры от 0 до 9
??????????????????

[volvo]

а программа выдает все цифры от 0 до 9

А что ты думала она будет выдавать? mn_4isel - локальная переменная, после выхода из процедуры уничтожается, а глобальная с тем же именем ничего про процедуру create_mn вообще не знает, и естественно равна [] ... Все правильно... Тебе надо как-то возвращать множество из процедуры... Подумай, как...

[18192123]

А что ты думала она будет выдавать? mn_4isel - локальная переменная, после выхода из процедуры уничтожается, а глобальная с тем же именем ничего про процедуру create_mn вообще не знает, и естественно равна [] ... Все правильно... Тебе надо как-то возвращать множество из процедуры... Подумай, как...

у меня такая мысль:
объявить mn_4isel в списке формальных параметров(не знаю, как - пытаюсь сделать - ошибки??????)

Сообщение отредактировано: 18192123 - 3.12.2006 21:41

[18192123]

у меня такая мысль:
объявить mn_4isel в списке формальных параметров(не знаю, как - пытаюсь сделать - ошибки??????)

я права???

[18192123]

А что ты думала она будет выдавать? mn_4isel - локальная переменная, после выхода из процедуры уничтожается, а глобальная с тем же именем ничего про процедуру create_mn вообще не знает, и естественно равна [] ... Все правильно... Тебе надо как-то возвращать множество из процедуры... Подумай, как...

ну объясните пожалуйста, как нужно

в правильном ли направлении я думаю???????