русских символов). Количество гласных символов в строке будем подсчитывать в переменной glasCnt, а согласных – в soglasCnt.

Var InputStr: String;

i, glasCnt, soglasCnt : Integer;

Begin

WriteLn('Введите фразу на английском языке'); ReadLn(InputStr);

glasCnt:=0;

soglasCnt:=0;

For i:=1 To Length(InputStr) Do Case UpCase(InputStr[i]) Of

'A','E','I','O','U','Y': glasCnt:=glasCnt+1;

Else

Case UpCase(InputStr[i]) Of

'A'..’Z’: soglasCnt:=soglasCnt+1;

End;

End;

WriteLn('Гласных символов=', glasCnt, ' Согласных=', soglasCnt);

End.

Практикум: Проверка корректности ввода чисел. Преобразование строки в число

Во многих наших программах пользователю необходимо вводить какие-либо числовые данные. Но ведь никто не запретит ему вместо корректного числа ввести любую последовательность чисел. Что произойдет в этом случае с нашей программой? Давайте рассмотрим следующий простой код:

Var a: Integer;

Begin

WriteLn('Введите любое число');

ReadLn(a);

WriteLn('OK');

End.

Запустим его, а после приглашения ввести число, введем любую строчку. Заметим, что программа «вылетела» с сообщение об ошибке времени выполнения «Error 106: Invalid numeric format» - «Неправильный числовой формат».

Соответственно, все дальнейшие действия программа выполнять не будет, а досрочно «аварийно» завершит свою работу.

Как можно написать программу, устойчивую к ошибкам ввода чисел пользователями? Можно предложить следующий способ: все данные пользователь должен будет вводить в

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

Процедура Val используется следующим образом:

63

Т.е. первый аргумент – это исходная строка, содержащая число в виде текста, второй аргумент – это числовая переменная-назначение, куда будет помещено преобразованное в число значение, а третий аргумент (у нас он называется Code) – это признак корректности преобразования. Если строка не содержит никаких «лишних» символов, то значение этой переменной будет равно нулю, в противном случае – будет содержать номер некорректного символа.

Таким образом, для того, чтобы обезопасить программу от ввода некорректных чисел, можно использовать следующий код:

Uses crt;

Var

S: String;

a, code: Integer;

Begin

ClrScr;

Writeln('Введите любое число'); ReadLn(S);

Val(S,a, Code);

If Code<>0 Then

WriteLn('Ошибка! Номер некорректного символа:',Code)

Else

WriteLn('Число введено корректно');

End.

Практикум: Подсчет слов в предложении

Цель этого практикума написать программу, считающей количество слов в введенной пользователем строке. Словом будем считать любой символ, окруженный пробелами с двух сторон.

Первое что приходит на ум, что для реализации этой программы достаточно посчитать количество пробелов и прибавить единицу. Это будет верно только в том случае, если

64