Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Функции Delete и Pos для массива строк

Автор: Серп 7.08.2007 13:46

Помогите с функциями Delete и Pos для массива строк, не могу написать wacko.gif если есть другие ф-ции буду благодарен.(Delete - удаление подстроки из массива строк)

Автор: мисс_граффити 8.08.2007 3:26

можно на примере?
пока не вижу разницы между применением этих подпрограмм к массиву строк и к строке...

Автор: volvo 8.08.2007 15:19

Цитата
не вижу разницы между применением этих подпрограмм к массиву строк и к строке...

Разница есть:

'Вот это строка №1,'
'а это - №2...'

Как будем искать (напрямую, без ухищрений, хоть и небольших, я имею в виду) строку ", а", да и вообще любую, находящуюся "по обе стороны от разделения строк" ?

Автор: мисс_граффити 8.08.2007 15:53

поэтому и прошу пример.
то ли так, то ли у нас массив строк рассматривается не как одна строка (то есть "склейка" производиться не должна, ищем полное вхождение в строку - элемент массива)

Автор: Серп 9.08.2007 17:30

Рассматривать надо как массив строк, а не как склейку.

Автор: volvo 9.08.2007 18:45

Поскольку пример так и не был приведен, а догадываться, что именно тебе нужно - собственно не очень то и хотелось, совет один: For + Pos/Delete

Автор: klem4 11.08.2007 20:59

Вот такой мой вариант для pos. Потестировал, вроде отрабатывает без ошибок.

функция _POS вернет true если подстрока s входит в массив строк sa, также в этом случае str_num будет содержать номер строки в которой начинается вхождение, а str_pos будет содержать позицию в этой строке с которой начинается вхождение.

uses crt;

const
MAX_STRINGS = 4;

type
TSA = array [1..MAX_STRINGS] of string;

function _pos(const sa: TSA; const s: string;
var str_num: integer; var str_pos: byte): boolean;

var
strn, posn, i: byte;
find: boolean;

begin
str_num := 1; str_pos := 0;
{ при удачном завершении будут содержать
номер слова и позицию в нем, с которых соответственно начинается вхождение
подстроки в массив строк }


repeat

strn := str_num; { текущее рассматриваемое слово }
posn := str_pos + 1; { рассматриваемая позиция в текущем слове }

find := false; { признак окончания поиска }
i := 1; { текущий рассматриваемый символ из искомой подстроки }

// найдем первый символ, начиная с текущей позиции в текущем слове

repeat

if posn > length(sa[strn]) then begin
posn := 1;
strn := strn + 1;
end;

if strn <= MAX_STRINGS then begin

while ( posn <= length(sa[strn]) ) and (sa[strn][posn] <> s[i])
do posn := posn + 1;

find := (posn <= length(sa[strn]));

end;

until (find) or (strn > MAX_STRINGS);

posn := posn + 1;
i := i + 1;

str_num := strn;
str_pos := posn - 1;

if find then begin// первая буквай найдена

repeat

if posn > length(sa[strn]) then begin
posn := 1;
strn := strn + 1;
end;

find := false;

if strn <= MAX_STRINGS then begin

while (i <= length(s)) and
(posn <= length(sa[strn])) and (sa[strn][posn] = s[i]) do begin
i := i + 1;
posn := posn + 1;
end;

find := posn > length(sa[strn]);
end;

until not(find) or (i > length(s));

end;

until (i > length(s)) or (strn > MAX_STRINGS);

if i > length(s) then begin
_pos := true;

end else _pos := false;
end;

var
sa: TSA = ('mama', 'mila', 'ramu', 'qwerty');
_string: string = 'laramuqwer';

str_n: integer;
pos_n: byte;

begin
clrscr;

if _pos(sa, _string, str_n, pos_n) then
writeln(str_n,',', pos_n)
else
writeln('no');

readln;
end.

Автор: alter 9.11.2007 20:32

Помогите плз:

Из заданного предложения выбрать и вывести на экран только те символы, которые встречаются в нем только один раз( в том порядке, в котором они встречаются в текст). Вывести на экран исходную символьную строку.


Автор: volvo 9.11.2007 20:39

Ну, и что, теперь ты будешь дублировать это задание ВЕЗДЕ, где есть темы о строках? dry.gif

Здесь уже ответили:
http://forum.pascal.net.ru/index.php?s=&showtopic=19705&view=findpost&p=112263