Песни о Паскале
Шрифт:
case E of { выставляем оценку }
0: S:=’Отлично!’;
1,2: S:=’Хорошо’;
3..5: S:=’Удовлетворительно’;
else S:=’Ну оччччень плохо!’;
end;
Writeln(S, ’ Нажмите Enter’); Readln;
end.
Рассмотрим изюминки этой программы. В операторе
Write(Q,’) Сколько будет ’, A,’ x ’,B, ’ ? ’);
вместе с вопросом печатается его порядковый номер Q.
Но самое интересное – это метки в операторе CASE.
Итоги
• Цикл со счетчиком FOR-TO-DO удобен при известном количестве повторений, которое вычисляется при входе в цикл.
• Счетчик цикла внутри оператора наращивается автоматически, цикл завершается, когда счетчик превысит указанное максимальное значение.
• Оператор выбора CASE-OF-ELSE-END допускает метки из нескольких чисел, и даже диапазоны целых чисел.
А слабо?
А) Позвольте ученику отказаться от сдачи экзамена. Признаком отказа будет ввод нуля в качестве ответа. В этом случае надо досрочно выйти из цикла и обойти выставляющий оценку оператор (вспомните о процедуре Break).
Б) Напишите программу, которая по введенному числу дает заключение о том, какому дню недели оно соответствует – рабочему (1-5) или выходному (6,7), например:
День = 2
Рабочий
День = 7
Выходной
День = 20
Ошибка!
Здесь выделенные числа напечатаны пользователем.
В) Напишите программу, которая, запросив число N, печатала бы числа от 1 до N в обратном порядке, например:
N = 3
3
2
1
Г) Существует вариант цикла FOR, где счетчик цикла не наращивается, а уменьшается, этот оператор выглядит так:
FOR N:= начальное_значение DOWNTO конечное_значение DO оператор
Ключевое слово DOWNTO задает счет в обратном порядке (DOWN – «вниз»); при этом начальное значение счетчика должно быть больше или равно конечному, иначе цикл не выполнится ни разу. Воспользуйтесь этим оператором для решения предыдущей задачи (задание В).
Д) Пусть программа запросит два числа N и M, а затем вычислит их произведение без использования операции умножения (*). Подсказка: организуйте цикл суммирования N раз числа M.
Е) Напишите программу, вычисляющую сумму чисел от 1 до N, где N – число, вводимое пользователем.
Ж) Напишите программу, вычисляющую сумму только тех чисел от 1 до N, которые делятся либо на три, либо на пять.
Задачи на темы предыдущих глав
И) Платный участок трассы протянулся с километра P1 до километра P2 (P1<P2). А пост ГАИ размещен на километре M. Попадает ли этот пост на платный участок трассы?
К) Дорожная служба запланировала ремонт трассы на участке с R1 по R2 (R1<R2). В сочетании с условием предыдущей задачи ваша программа должна определить:
• Будут ли ремонтировать весь платный участок P1–P2 ?
• Будут ли ремонтировать хотя бы часть платного участка P1–P2 ? Если да, то определить длину ремонтируемой платной части.
• Будут ли ремонтировать хотя бы часть бесплатного участка? Если да, то определить длину ремонтируемой бесплатной части.
Глава 18
Аз, Буки
Вот вам новая задача: побуквенная распечатка строки. Программа должна запросить строку и напечатать ее по буквам, например:
Введите строку: PASCAL
P
A
S
C
A
L
Да будь я хоть семи пядей во лбу, спасовал бы перед этой задачей, если бы… если бы не знал внутреннего устройства строки.
Символьный тип данных
Строковые данные, которыми мы так запросто орудуем, не так уж просты, и нам следует разобраться в этом. Вспомните первый класс, с чего все началось? С освоения букв. Строки тоже складываются из букв, точнее из символов. Символы – это не только буквы, но и цифры, знаки препинания, и даже пробел. Существуют и невидимые, так называемые управляющие символы, но о них мы поговорим в другой раз. Рассмотрим следующую строковую константу:
’Привет, Мартышка!’
Сколько символов в этой строке? Здесь 14 букв, к ним надо прибавить запятую, восклицательный знак и пробел, и тогда получится 17.
Для представления отдельных символов в Паскале имеется тип данных CHAR – от английского CHARACTER, что значит «символ». Так же, как и строковые, символьные данные могут быть константами и переменными. Переменные символьного типа объявляют так:
var c1, c2, c3 : char;
Тут объявлены три переменные, которым можно присваивать значения символьных констант или других символьных переменных, например:
c1:= ’A’; c2:= ’B’; c3:= c1;
Символьные константы, как и строковые, заключают в апострофы. Но, в отличие от строк, они могут содержать ровно один символ, – не больше и не меньше! Для острастки я покажу ошибочные операторы, компилятор их обязательно забракует.
c1:=’ABBA’; { нельзя присвоить более одного символа }
c2:=’’; { и менее одного тоже! }
Но строковым переменным разрешено присваивать значения символьных данных, например: