...
for i:=1 to {ne znayu}
do {zapolnit' massiv}
for i:=1 to ...
do writeln(s[i]);
{zatem soverwit' kakie to deistviya s otdelnymi slovami: tipa naxozhdeniya samogo dlinnogo slova i t. p.}
Как это будет выглядеть (хотя бы примерно) ?
...
for i:=1 to {ne znayu}
do {zapolnit' massiv}
for i:=1 to ...
do writeln(s[i]);
{zatem soverwit' kakie to deistviya s otdelnymi slovami: tipa naxozhdeniya samogo dlinnogo slova i t. p.}
limits = [#0..#32,'.',',',':',';','!','?','"'];
function GetWords(s : string; var w : TWords) : byte;
s[i] in limits
GetWords := n;
m: set of byte;
...
m:=[1,2,3];
Include(m,8); {множество стало [1,2,3,8]}
Include(m,8); {множество не изменилось}
m:=m+[2,3]; {множество не изменилось}
m:=m+m; {множество не изменилось}
m:=m-[1,3]; {множество стало [2,8]}
m:=[1,2,3]+[1,2,5]; {множество стало [1,2,3,5]}
m:=[]; {пустое множество}
var
s: string;
m: set of char;
...
for i:=1 to Length(s) do Include(m,s[i]);
c:='f';
Write('символ ',c);
if not (c in m) then Write('не ');
WriteLn(' присутствует в строке');
var
m:set of byte;
begin
m:=[1,2,3];
Include(m,8); {ìíîæåñòâî ñòàëî [1,2,3,8]}
Include(m,8); {ìíîæåñòâî íå èçìåíèëîñü}
m:=m+[2,3]; {ìíîæåñòâî íå èçìåíèëîñü}
m:=m+m; {ìíîæåñòâî íå èçìåíèëîñü}
m:=m-[1,3]; {ìíîæåñòâî ñòàëî [2,8]}
m:=[1,2,3]+[1,2,5]; {ìíîæåñòâî ñòàëî [1,2,3,5]}
m:=[]; {ïóñòîå ìíîæåñòâî}
end.
var
s: string;
m: set of char;
i:integer;
begin
readln(s);
for i:=1 to Length(s) do Include(m,s[i]);
c:='f';
Write('ñèìâîë ',c);
if not (c in m) then Write('íå ');
WriteLn(' ïðèñóòñòâóåò â ñòðîêå');
end.
Возникает вопрос: правильно ли я их дополнил?