Question

Помогите!!! переменная А вводится с помощью описания : var A:set of char;
напишите функцию, которая возвращает количество символов в множестве А.(МОЖНО ИСПОЛЬЗОВАТЬ STRING!!!)

Answer 1

type
  S = set of char;

function VS(p:S):integer;
var
  i,n: integer;
begin
  for i:=0 to 255 do if chr(i) in p then n:=n+1;
  VS:=n
end;

var
  m:S;
begin
  m := ['П', 'р', 'и', 'в', 'е', 'т', ' ', '1', '2', '5', 'H', 'e', 'l', 'o'];
  Writeln('Количество символов в множестве- ',VS(m))
end.

Тестовое решение:
Количество символов в множестве- 14

Answer 2

type
A = set of char;

function MA(x:A):integer;
var
i,n: integer;
begin
for i:=0 to 255 do if chr(i) in x then n:=n+1;
MA:=n
end;

var
m:A;
begin
m :=('П', 'р', 'и', 'в', 'е', 'т', ' ', '1', '2');
Writeln('Количество символов в множестве- ',MA(m));
end.
Я не много видоизменил программу... но почему в этом случаи программа не идет???

Answer 3

А Вы не моли бы указать конкретнее, что подразумевается под Вашим "не идёт"?

Answer 4

Я при беглом осмотре не увидел изменений, кроме как замены одних букв другими

Answer 5

нет, все хорошо, огромное вам спасибо

Answer 6

вы бы мне не смогли кратко ее объяснить, в пару предложениях, мы не делали подобного... только если Вам не сложно