Задание: "Дан текст. Определить количество согласных букв в нём"
Текст программыы:
если работает, то в программе такого уровня ничего изменятьбольше не надо.
Все равно что оптимизировать сумматор a+b
Думаю вот так встаки можно немного сократить.
uses crt;
const
sogl = ['a'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];
var
s: string;
cnt,i:integer;
begin
ClrScr;
cnt:=0;
readln(s);
for i:=1 to Length(s) do
if s[i] in sogl then inc(cnt);
writeln(cnt);
readln;
end.
klem4,
constНе советовал бы тебе это делать.
sogl = ['a'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];
const
sogl = ['a'..'п', 'р'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];
constНе советовал бы тебе это делать.
sogl = ['a'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];
const
sogl = ['a'..'п', 'р'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];
Fang, дело в следующем:
то множество, которое привел klem4 является "разорванным", т.е. между символами "а" и "я" есть НЕ ТОЛЬКО все буквы русского алфавита, а еще и 48 посторонних символов (ты можешь в этом убедиться, если обратишь внимание на то, что Ord('а') = 160, а Ord('я') = 239, и сколько по твоему строчных букв в русском языке? 239 - 160 = 79, неужели у нас такой большой алфавит?)
А "разрывается" это множество именно между символами 'п' и 'р', поэтому я и предложил то, что написано в посте №4.