|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.12.2008, 23:30 | #1 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
помогите исправить программу со стрингами
Program Laba4;
{Їа®Ја*¬¬* ђ®¬**®ў* Ђ*в®**} var Tekst,TekstN:string; Pozicia,Zad,Per:integer; Symbol:char; begin write('введите ваше предложение'); readln(Tekst); write('введите букву слова начинающиеся с которой будем удалять '); readln(symbol); Tekst:=concat(' ',Tekst,' '); TekstN:=Tekst; Pozicia:=pos(symbol,tekst); While ((Pozicia<>0)and(Tekst[Pozicia - 1]= ' ')) do begin zad:=Pozicia; while tekst[zad] <>' ' do dec(zad); per:=Pozicia; While Tekst[per]<>' 'do inc(per); delete(tekst,zad,per-zad); pozicia:=pos(symbol,tekst); end; writeln('предложение',TekstN ,' без слов начинающихся с ',symbol,' - ',Tekst); Readln; End. помогите сделать пояснительный текст Последний раз редактировалось Ananim-Pbl6ak; 30.12.2008 в 23:42. |
31.12.2008, 00:25 | #2 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
Программа
Код:
Последний раз редактировалось capta1n; 31.12.2008 в 00:31. |
31.12.2008, 00:32 | #3 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
Не забудьте про отзыв, если понравилось Репутацию хочу поднять
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
поогите исправить программу со стрингами | Ananim-Pbl6ak | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 02.01.2009 17:46 |
C++,функции,работа со стрингами | NamelessEndless | Помощь студентам | 3 | 12.11.2008 00:46 |
Помогите исправить | NeiL | Общие вопросы C/C++ | 1 | 31.05.2008 13:31 |
Помогите исправить программу нужно очень срочно! | Алена | Помощь студентам | 3 | 04.11.2007 18:28 |