[specter_wind]

Дан некоторый текст произвольной длины. Необходимо проверить его симметричность, используя динамический список

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

Дана тема "динамический список" в разделе "[ "Начинающим" ]", непонятно что хочет автор от посетителей.

[Bargest]

Вижу текст произвольной длины:

Дан некоторый текст произвольной длины. Необходимо проверить его симметричность, используя динамический список

Он не симметричен. И без списка проверил.

[specter_wind]

а можешь помочь написать плис , так я необъясню преподу можешь скинуть проект делфи пожайлуста или тут написать ) буду благодарен

[poli-smen]

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

а можешь помочь написать плис , так я необъясню преподу можешь скинуть проект делфи пожайлуста или тут написать ) буду благодарен

Что-то у меня есть смутное подозрение что ты и с проектом преподу ничего не объяснишь.
Ладно, показывай что не получается.

[specter_wind]

я немогу понять как всё начать какой имено текст ) и чё за семметричность

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

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

а можешь помочь написать плис

ПЛИС - Программи́руемая логи́ческая интегра́льная схе́ма

Симметрия: http://ru.wikipedia.org/wiki/%D0%A1%D0%B8%D0%BC%D0%BC%D0%B5%D1%82%D1%80%D0%B8%D 1%8F

[Alegun]

По-старинке (с накапливаемым integer вместо динсписка) как-то всё же проще

Код:

function smtr(ds: string): boolean;
var
 i, b : integer;
begin
 Result:= false;
 if Length(ds) mod 2 > 0 then Exit;
 b:= 0;
 for i := 1 to Length(ds) div 2 do
  if ds[i] = ds[Length(ds) - (i-1)] then Inc(b);
 Result:= b = Length(ds) div 2;
end;