Помогите с функциями Delete и Pos для массива строк, не могу написать если есть другие ф-ции буду благодарен.(Delete - удаление подстроки из массива строк)
можно на примере?
пока не вижу разницы между применением этих подпрограмм к массиву строк и к строке...
поэтому и прошу пример.
то ли так, то ли у нас массив строк рассматривается не как одна строка (то есть "склейка" производиться не должна, ищем полное вхождение в строку - элемент массива)
Рассматривать надо как массив строк, а не как склейку.
Поскольку пример так и не был приведен, а догадываться, что именно тебе нужно - собственно не очень то и хотелось, совет один: For + Pos/Delete
Вот такой мой вариант для 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.
Помогите плз:
Из заданного предложения выбрать и вывести на экран только те символы, которые встречаются в нем только один раз( в том порядке, в котором они встречаются в текст). Вывести на экран исходную символьную строку.
Ну, и что, теперь ты будешь дублировать это задание ВЕЗДЕ, где есть темы о строках?
Здесь уже ответили:
http://forum.pascal.net.ru/index.php?s=&showtopic=19705&view=findpost&p=112263