Динамические структуры. Найти количество строк, содержащих данную подстроку

@Vika0_0 · Регистрация: 09.03.2012

Author24 — интернет-сервис помощи студентам

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

О_О

@DaskOFF · 08.06.2012, 17:51

проверяйте
на входе 5 строк, записываются в массив
вводится интересующая строка(b)

Pascal

uses crt;
const
    n=5;
type 
    mas = array[1..n] of string;
var 
    a:mas;
    i,count:integer;
    b,c:string;
    
begin
clrscr;
count:=0;
for i:=1 to n do begin
    readln(a[i]);
end;
write('b: ');readln(b);
for i:=1 to n do begin
    if pos(b,a[i])>0 then begin
        c:=copy(a[i],1,length(a[i]));
        a[i]:=':'+c;
        delete(a[i],pos(b,a[i])+length(b),3);
        inc(count);
    end;
end;
for i:=1 to n do 
    writeln(a[i]);
writeln('---------------');
write(count);
readln;
end.

@Vika0_0 · 08.06.2012, 18:36 **[ТС]**

а если в задании говориться(перед самим заданием) разработать программу формирования из заданной последовательности однонаправленного списка в куче?
(динамические структуры)

@Vika0_0 0 / 0 / 0 Регистрация: 09.03.2012 Сообщений: 20
		1
	Динамические структуры. Найти количество строк, содержащих данную подстроку 08.06.2012, 17:29. Показов 1643. Ответов 2 Метки нет (Все метки) дана последовательность строк. найти количество строк, содержащих данную подстроку. перед каждой такой строкой вставить двоеточие. удалить три элемента после первой найденной строки О_О 0

@Vika0_0 0 / 0 / 0 Регистрация: 09.03.2012 Сообщений: 20
	08.06.2012, 18:36 [ТС]	3
	а если в задании говориться(перед самим заданием) разработать программу формирования из заданной последовательности однонаправленного списка в куче? (динамические структуры) 0

Динамические структуры. Найти количество строк, содержащих данную подстроку

Решение