Множества.Паскаль

[Ultar]

Дано: type M=set of 0..99;
Описать функцию card(A),подсчитывающую количество элементов в множестве А типа М.

type M=set of 0..99;
var b : m;
    k1, x : integer;
function card(A:M) : integer;
var p,k : integer;
begin
        k:=0;         for p:=0 to 99 do if p in A then k:=k+1;
        card:=k
end;
 begin      b:=[ ];
repeat  write('Vvedite chislo >0<=99 – ');
readln(x); b:=b+[x];
until x=0;
k1:=card(b);
writeln('Kolichestvo razlichnix elementov mnoshestva', k1);
end.

Преподаватель сказал,что здесь ошибка в множестве А.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Sciv]

хз... никакой ошибки не вижу. Может он имел в виду, что надо объявить:

function card(var A: M): integer;

но все-равно не вижу необходимости использовать в аргументах функции var.

[Ultar]

Как бы объяснить,она сказала,что программа считает количество элементов типа М,но не в множестве А,а это множество А нужно создать.Вот не могу понять,что делать.

[kventin_zhuk]

Как я понял: описание A:M предполагает, что будет множество чисел, в диапазоне от 0 до 99. но самих чисел там ещё нет. нужно их туда занести, вот как-то так:

for i := 0 to 99 do
  A := A + [i];

Думаю, что так.

[Stilet]

он считает количество элементов типа М,но не в множестве А

Скажи ей что она не годится на роль преподавателя.

нужно их туда занести

А это что по твоему?:

repeat write('Vvedite chislo >0<=99 – ');
readln(x); b:=b+[x];
until x=0;

[Serge_Bliznykov]

Как бы объяснить,она сказал,что он считает количество элементов типа М,но не в множестве А,а это множество А нужно создать.Вот не могу понять,что делать.

Вы уж извините, но либо Вы его неправильно понимаете (и, соответственно, неверно нам передаёте) его претензии, либо он глуп/не знает Паскаль.

я лично не вижу особенного / ошибочного в вашем коде.
ну, хочет он множество с именем A - так сделайте ему множество с именем A:

type M=set of 0..99;

function card(A:M) : integer;
var p,k : integer;
begin
  k:=0;         
  for p:=0 to 99 do 
     if p in A then k:=k+1;
  card:=k
end;
var 
  A : m;
  k1, x : integer;

begin      
   A:=[ ];
   repeat  
       write('Vvedite chislo >0<=99 – ');
       readln(x); 
       if (x>0) and (x<=99) then
                   A:=A+[x];  {вместо '+' можно использовать процедуру Include();}
   until x=0;

   k1:=card( A );

   writeln('Kolichestvo razlichnix elementov mnoshestva', k1);
end.

p.s. А задание из учебника/методички (печатного издания)? Если да, не сочтите за труд, сделайте скан(фото) и выложите сюда, может задание чуть по другом звучит...

Сообщение от Stilet

Скажи ей что она не годится на роль преподавателя.

Почему - "ей"? Вроде преподаватель мужчина?... Хотя, по сути, я тоже склоняюсь к этой версии - преподаватель просто некомпетентен...

[kventin_zhuk]

Serge_Bliznykov, там непонятки с преподавателем

она сказал

[Serge_Bliznykov]

Ага, уже вижу:

она сказала

тем хуже для неё — сути проблемы это не меняет!

[Ultar]

Большое спасибо ребят.Завтра сфоткаю задание)

[Sciv]

Странный преподаватель - ни пола, ни компетенции...