|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.01.2009, 22:51 | #1 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
помогите со стрингами
Из текста удалить все слова, в которые входит заданное бук-восочетание
помогите плз |
07.01.2009, 23:08 | #2 |
Пользователь
Регистрация: 05.01.2009
Сообщений: 24
|
362827711
Помощь платная. |
08.01.2009, 00:46 | #3 |
Пользователь
Регистрация: 11.11.2008
Сообщений: 32
|
ты ч е не написал чтоль\?
AndreiKA_PC
|
08.01.2009, 00:49 | #4 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
нет
не написал не знаю как |
08.01.2009, 00:51 | #5 |
Пользователь
Регистрация: 11.11.2008
Сообщений: 32
|
мля я сам думаю как свой написать ни хрена ни кто не помогает
AndreiKA_PC
|
08.01.2009, 01:21 | #6 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
а потом уже банальщина: Код:
|
|
08.01.2009, 21:34 | #7 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
не благодарите меня, просто оставьте отзыв)))
uses crt;
var mas,ar:array[1..20] of string; i,j,n,k:integer; s,st:string; begin clrscr; write(' CKOJIbKO CTPOK -> '); readln(N); writeln; for i:=1 to n do readln(mas[i]); writeln; write(' IIODCTPOKA -> '); readln(st); writeln; for i:=1 to 20 do ar[i]:=''; k:=1; for i:=1 to n do begin j:=1; s:=''; mas[i]:=mas[i]+' '; repeat if mas[i][j]<>' ' then s:=s+mas[i][j] else begin if pos(st,s)=0 then ar[k]:=ar[k]+s+' '; s:=''; end; j:=j+1; until j>length(mas[i]); k:=k+1; end; for i:=1 to k-1 do writeln(ar[i]); readln; end.
@(o_0)@
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
поогите исправить программу со стрингами | Ananim-Pbl6ak | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 02.01.2009 17:46 |
помогите исправить программу со стрингами | Ananim-Pbl6ak | Помощь студентам | 2 | 31.12.2008 00:32 |
C++,функции,работа со стрингами | NamelessEndless | Помощь студентам | 3 | 12.11.2008 00:46 |