06.05.2014, 14:20 | #25 (permalink) |
Member
Регистрация: 16.04.2014
Сообщений: 51
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Кстати, не подскажете куда ставить счетчик, чтобы подсчитать кол-во букв подходящих по условию. Это нужно для того чтобы в случае когда, я ввел слова, но в них не оказалось нужных букв выдавать сообщение что таких букв нет. Поставил после if S[k]=C then p=p+1, в разделе констант указал p=0
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.05.2014, 14:21 | #26 (permalink) |
Member
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
|
это потому что писалось без clrscr, а потом подумалось, что с ним будет красивее и не проверялось в реале =)
так будет норм Код:
begin clrscr; repeat Writeln('Enter the string:'); readln(s); if length(s) = 0 then begin clrscr; writeln('Empty string!'); writeln; end; until length(s) <> 0; end. |
06.05.2014, 14:27 | #29 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Всё, что указано в разделе констант, является константой и в процессе работы программы изменено быть не может. Нужно в разделе VAR ввести переменную р типа byte и в начале программы присвоить ей нулевое значение.
А вообще-то ничего и вводить не надо: счетчик там и так есть. Это переменная N. |
06.05.2014, 19:50 | #30 (permalink) |
Member
Регистрация: 16.04.2014
Сообщений: 51
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Можете, меня уточнить ?
i,j,k,N это переменные циклов, так сказать параметры цикла, во время цикла увеличиваются на 1 до достижения какого либо условия Found:Set of char это группа каких то символов типа char(как я понимаю, те символы по которым идет перебор, тоесть если ввести ПРОЛД, при первом прохождении это будет П, при втором Р и далее Codes:Array[1..10] of Byte; а вот этот массив не совсем понятно для чего? это 1...10 потому что Sonants:Set of Char=['б','в','г','д','ж','з','л','м','н','р']; тут 10? и именно этот массив помогает нам упорядочить их по алфавиту? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|