|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.04.2010, 19:24 | #1 |
Пользователь
Регистрация: 04.04.2010
Сообщений: 29
|
Строки в Паскале, найти ошибку
В строке малыми латинскими буквами записаны слова, разделяющиеся запятыми. Первые буквы некоторых слов могут совпадать. Указать минимальное количество первых букв, по которым можно различить слова из заданного списка.
Вот мой исходник: uses crt; const zap:string[1]=','; var s:string; t,l,i,n:integer; begin clrscr; writeln('vvedi slova cherez zapiatuiu: '); readln(s); l:=length(s); t:=1; n:=1; for i:=1 to l do begin if s[i]=zap then if s[t]<>s[i+n] then writeln('t=',t) else t:=t+1; n:=n+1; end; writeln('t=',t); end. у меня получается, что проверяет только когда первые буквы не равны и равны. Помогите пожалуйста переделать так, чтобы и вторые, третьи и т.д. буквы проверяло. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа про строки в стиле C; помогите найти ошибку... | vitaliy1392 | Помощь студентам | 4 | 29.12.2009 08:00 |
Корявое копирование строки. Помогите найти ошибку. | GonZaleZ | Общие вопросы C/C++ | 14 | 02.12.2009 21:58 |
Строки. Помогите найти ошибку. | 5nizza77 | Помощь студентам | 1 | 16.10.2009 16:10 |
Помогите найти ошибку в паскале. | Рената | Паскаль, Turbo Pascal, PascalABC.NET | 14 | 26.05.2007 12:12 |