Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 53 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

52
tmp, {сумма цифр слова}
sum:integer; {сумма цифр всех слов}
Далее следует тело программы. Информационный блок подробно рассмат-
риваться не будет. Перед началом ввода массива слов необходимо присвоить
значение переменной множественного типа
alf. По условию в массиве слов
допускаются только латинские буквы и цифры, поэтому с помощью конструк-
тора множеств задаем соответствующее значение. Латинские буквы ограничим
лишь диапазоном заглавных букв, поскольку в дальнейшем при проверке сим-
волов, входящих в массив слов будет применять функцию преобразования сим-
вола в верхний регистр
UpCase.
alf:=['A'..'Z','0'..'9'];
Если программист не использует эту функцию, тогда необходимо указы-
вать диапазон как заглавных, так и строчных латинских букв:
alf:=['A'..'Z','a'..'z','0'..'9'];
Далее необходимо задать количество слов в массиве. Напомним, что при
описании типа
T_str было определено максимально возможное количество
слов в массиве, но не указано количество слов, которое будет обрабатываться.
Для хранения количества слов в массиве определена переменная n, значение
которой можно задать непосредственно в тексте программы, а можно запросить
у пользователя. Во втором случае для предотвращения ошибок ввода необхо-
димо предусмотреть проверку корректности вводимых
значений:
repeat
write ('Введите количество слов (не более 10) ');
readln(n); {ввод числа слов}
if not (n in [1..10]) then
begin
writeln;
writeln (’Ошибка ввода!’);
writeln;
end;
until (n in [1..10]);
Цикл
Repeat позволяет выполнить операторы тела цикла, по крайней мере,
один раз. После ввода клавиатуры количества слов проверяется условие «зна-
чение переменной
n не входит в множество целых чисел от 1 до 10». Если это
условие выполняется, то выдается сообщение об ошибке и тело цикла повторя-
ется еще раз, т.к. условие выхода из цикла («значение переменной
n входит в
множество целых чисел от 1 до 10») ложно. Если же пользователь вводит до-
пустимое количество слов, то цикл завершается.
Теперь можно организовывать цикл по вводу и обработке массива слов.
Используем для этого цикл
for. В теле цикла, прежде всего, осуществляется
ввод слова с клавиатуры и обнуление переменной, в которой накапливается
сумма цифр i-го слова.

Страницы