[BlackMonsta]

Здравстуйте, как можно эту задачу сделать по множеству?(Паскаль)

Код:

const
bykvi='ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮйцукенгшщзхъэждлорпавыфячсмитьбю';
var
text, slovo, bykva,simslovo: string;
slovamas,simslova: array[1..100] of string;
seslovo: boolean;
i,masint, kolslov,j:integer;
begin
simslovo:='';
j:=0;
kolslov:= 0;
masint:= 0;
slovo:= '';
writeln('Введите предложение');
readln(text);
text:= text + ' ';
while pos('  ',text)>0 do 
begin
 delete(text,pos('  ',text),1);
end;
if pos(text[1], bykvi)<>0 then
begin
 seslovo:= true;
end
else
begin
 seslovo:= false;
end;
for i:=1 to length(text) do
begin
 if seslovo = true then
 begin
  if pos(text[i], bykvi)<>0 then
  begin
   seslovo:= true;
   slovo:= slovo + text[i];
  end
  else
  begin
   seslovo:= false;
   masint:= masint + 1;
   slovamas[masint]:= slovo;
   kolslov:= kolslov + 1;
   slovo:= '';
  end;
 end;
 if seslovo = false then
 begin
  if pos(text[i], bykvi)<>0 then
  begin
   seslovo:= true;
   slovo:= slovo + text[i];
  end
  else
  begin
   seslovo:= false;
  end;
 end;
end;
for i:=1 to kolslov do
begin
 if length(slovamas[i][1]) = length(slovamas[i]) then
 begin
  j:=j+1;
  simslova[j]:= slovamas[i];
 end;
 if length(simslovo) < length(slovamas[i]) then
 begin
  simslovo:= slovamas[i];
 end;
end;
writeln('Самое длинное симметричное слово: ',simslovo);
end.

Я просто вообще не понял что это такое "множества". Можете пожалуйста переделать и сказать что они вообще делать и как ими пользоваться.

[M.A.D.M.A.N.]

https://ru.wikipedia.org/wiki/%D0%9C...%D0%B2%D 0%BE

[BlackMonsta]

В том то и дело что я не понимаю и не понял вообще как переделать ее как множества. Я вообще не понял что это такое множество

[M.A.D.M.A.N.]

Вот множество целых чисел: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10…n

[icWasya]

в Дельфи множества - это set of, например

Код:

set of AnsiChar

[NumLock]

пример работы со множеством:

Код:

var
  s: set of AnsiChar;
  c: AnsiChar;
  i: Integer;
begin
  s:=['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'];
  for i:=0 to $ff do
  begin
    c:=AnsiChar(i);
    if CharInSet(c, s) then Memo1.Lines.Add(string(c));
  end;
end;

пляски с Ansi это из-за юникодной версии Delphi 2010

[M.A.D.M.A.N.]

Короче читай введение в дискретную математику.

[BlackMonsta]

Пожалуйста, переделайте, я не пойму до сих пор что это такое. Завтра сдавать, пожалуйста сделайте