Задачка на множества, Паскаль - Страница 3

poiu · 06.05.2014, 09:55

не ну можно и без нее. просто хотел, чтобы было красиво, а не куча буковок...
uses crt; это естественно.

pashasnuff · 06.05.2014, 14:07

Я конечно понял что он должен выводить Empty string но у меня не выводит? Я делал в турбо, а когда просто вводишь пробел то вылетает.

pashasnuff · 06.05.2014, 14:08

Ошибка диапазона говорит.

pashasnuff · 06.05.2014, 14:15

а без CRT работает нормально) вообщем я уберу CRT
Огромное спасибо.

pashasnuff · 06.05.2014, 14:20

Кстати, не подскажете куда ставить счетчик, чтобы подсчитать кол-во букв подходящих по условию. Это нужно для того чтобы в случае когда, я ввел слова, но в них не оказалось нужных букв выдавать сообщение что таких букв нет. Поставил после if S[k]=C then p=p+1, в разделе констант указал p=0

poiu · 06.05.2014, 14:21

это потому что писалось без 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.

Vladimir_S · 06.05.2014, 14:23

Цитата:

Сообщение от pashasnuff

когда просто вводишь пробел

Сударь, ну хватит уже извращаться! Ведь сказано в условии: "непустая строка... отдельные слова... разделены запятыми". Вот такую и вводите. А отрабатывать все возможные ситуации неверного ввода конечно можно, но, на мой взгляд, не нужно.

pashasnuff · 06.05.2014, 14:26

Спасибо, а что с счетчиком делать?

Vladimir_S · 06.05.2014, 14:27

Цитата:

Сообщение от pashasnuff

в разделе констант указал p=0

Всё, что указано в разделе констант, является константой и в процессе работы программы изменено быть не может. Нужно в разделе VAR ввести переменную р типа byte и в начале программы присвоить ей нулевое значение.
А вообще-то ничего и вводить не надо: счетчик там и так есть. Это переменная N.

pashasnuff · 06.05.2014, 19:50

Можете, меня уточнить ?
i,j,k,N это переменные циклов, так сказать параметры цикла, во время цикла увеличиваются на 1 до достижения какого либо условия
Found:Set of char это группа каких то символов типа char(как я понимаю, те символы по которым идет перебор, тоесть если ввести ПРОЛД, при первом прохождении это будет П, при втором Р и далее
Codes:Array[1..10] of Byte; а вот этот массив не совсем понятно для чего? это 1...10 потому что Sonants:Set of Char=['б','в','г','д','ж','з','л','м','н','р']; тут 10? и именно этот массив помогает нам упорядочить их по алфавиту?

06.05.2014, 14:21	#26 (permalink)
poiu 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, 09:55	#21 (permalink)
poiu Member Регистрация: 05.03.2014 Сообщений: 200 Сказал(а) спасибо: 2 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 834	не ну можно и без нее. просто хотел, чтобы было красиво, а не куча буковок... uses crt; это естественно.

06.05.2014, 14:07	#22 (permalink)
pashasnuff Member Регистрация: 16.04.2014 Сообщений: 51 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я конечно понял что он должен выводить Empty string но у меня не выводит? Я делал в турбо, а когда просто вводишь пробел то вылетает.

06.05.2014, 14:08	#23 (permalink)
pashasnuff Member Регистрация: 16.04.2014 Сообщений: 51 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ошибка диапазона говорит.

06.05.2014, 14:15	#24 (permalink)
pashasnuff Member Регистрация: 16.04.2014 Сообщений: 51 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	а без CRT работает нормально) вообщем я уберу CRT Огромное спасибо.

06.05.2014, 14:20	#25 (permalink)
pashasnuff 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:26	#28 (permalink)
pashasnuff Member Регистрация: 16.04.2014 Сообщений: 51 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо, а что с счетчиком делать?

06.05.2014, 19:50	#30 (permalink)
pashasnuff 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? и именно этот массив помогает нам упорядочить их по алфавиту?