Помогите!!! переменная А вводится с помощью описания : var A:set of char;
напишите функцию, которая возвращает количество символов в множестве А.(МОЖНО ИСПОЛЬЗОВАТЬ STRING!!!)
Ответы
Ответ дал:
0
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
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
Ответ дал:
0
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.
Я не много видоизменил программу... но почему в этом случаи программа не идет???
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.
Я не много видоизменил программу... но почему в этом случаи программа не идет???
Ответ дал:
0
А Вы не моли бы указать конкретнее, что подразумевается под Вашим "не идёт"?
Ответ дал:
0
Я при беглом осмотре не увидел изменений, кроме как замены одних букв другими
Ответ дал:
0
нет, все хорошо, огромное вам спасибо
Ответ дал:
0
вы бы мне не смогли кратко ее объяснить, в пару предложениях, мы не делали подобного... только если Вам не сложно
Вас заинтересует
1 год назад
9 лет назад
9 лет назад