строка

[Katrina*]

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

Асет любит читать строку через символы, т.е. ‘acbed’, он читает а, после пропускает b и читает с, дальше пропускает d и читает е. Асету интересно сколько раз он прочитал подстроку ab.

[Xardas]

Интересно, зачем дублировать темы в разных разделах? Алгоритм этой задачи я Вам описал в Вашей теме в разделе "Паскаль", и все возможные манипуляции с файлами Вам в Ваших кучах тем тоже объяснили... Чего ж не хватает-то?

В файле 1.txt должно находиться Ваше 'acbed'... Вот, пожалуйста, то же самое, что было описано Вам в прошлых темах.

assign(f1,'С:\1.txt');
assign(f2,'C:\2.txt');
reset(f1); rewrite(f2);
readln(f1,s);

А вот алгоритм, написанный Вам еще в одной теме...

t := '';
for i := 1 to length(s) do
 if odd(i) then t := t + s[i]; //формируем строку из нечетных символов

i := 0;
while pos(s1,t) > 0 do // смотрим вхождения подстроки в строку
 begin
  inc(i); // считаем количество
  delete(t, pos(s1,t), length(s1)); // удаляем подстроку из строки, чтобы найти еще возможные вхождения
 end;

Добавляем описание переменных, и, о чудо, получаем-таки код, который можно было получить путем копирования двух фрагментов из кучи Ваших тем в разделе "Паскаль", которые были разжеваны полностью:

var
  s, s1, t : string; // строка, подстрока, строка без четных символов
  i : integer;
  f1,f2:text;

begin
assign(f1,'С:\1.txt');
assign(f2,'C:\2.txt');
reset(f1); rewrite(f2);
readln(f1,s);

s1 := 'ab'; //или ввод с клавиатуры

t := '';
for i := 1 to length(s) do
 if odd(i) then t := t + s[i]; //формируем строку из нечетных символов

i := 0;
while pos(s1,t) > 0 do // смотрим вхождения подстроки в строку
 begin
  inc(i); // считаем количество
  delete(t, pos(s1,t), length(s1)); // удаляем подстроку из строки, чтобы найти еще возможные вхождения
 end;

write (f2,i);
close(f1); close(f2);

end.

Проверил, в файле 2.txt, при строке 'acbed', содержащейся в файле 1.txt, появляется значение 1.

Смысла создавать миллион тем я, если честно, не понял

[Katrina*]

Премного благодарна! просто нервы на пределе, надо быстрей решить задачи! ССори если что-то не так

[Xardas]

Нервы беречь надо. И не стоит плодить одинаковые темы в разных разделах, учитывая, что на все Ваши вопросы уже были написаны ответы. А то вместо помощи получите предупреждения от модераторов

[Serge_Bliznykov]

Закрыто за кросспост