Автор неизвестен - Знакомство с FreePascal

переменной y в два раза, мы должны написать y:=y*2.
Задание 4. Объявите переменную i типа «целое число», присвойте ей начальное значение 10, затем увеличьте
ее значение на 7, потом в 3 раза, после этого замените ее значение на остаток от него при делении на 15. Выведите
на экран значение этой переменной в самом начале и после каждого преобразования. Убедитесь, что все вычисления
выполнены правильно.
Задание 5. В программе заведите две целых переменных i и j. Присвойте им начальные значения 38 и 75. Затем
присвойте первой из этих переменных их сумму, после этого второй — их разность и наконец первой — опять их
разность. Выводите значения переменных на экран в самом начале и после каждого преобразования. Что делает эта
программа?
Присваивание значения переменной — не единственный способ положить в переменную какое-либо значение. Можно считать это значение с клавиатуры при помощи конструкции readln(имя).
Пример 4. Следующая программа просит пользователя ввести целое число и печатает его восьмую степень.
program EighthPower;
var x:integer;
begin
write(’x=’); readln(x);
writeln(’x^8=’, sqr(sqr(sqr(x)))); readln
end.
Задание 6. а) Введите с клавиатуры вещественные числа a, b и c, и напечатайте значение выражения √

cos(ea −2b)+3
5 sin(abc)+100−tg c

б) Введите длины сторон треугольника и выведите длины его высот.
в) Направления кодируются следующим образом: 0 — север, 1 — запад, 2 — юг и 3 — восток. Введите направление
и выведите результат его поворота на 90◦ по часовой стрелке и против часовой стрелки.
г) Введите оценку по 99-балльной шкале (от 0 до 99) и выведите разряд, соответствующий этой оценке (оценкам
от 90 до 99 соответствует разряд ’A’, от 80 до 89 — ’B’, от 70 до 79 — ’C’ и т. д.).
д) Грузовик может увезти 32 коробки. Введите число коробок, которые необходимо увезти и выведите минимальное
достаточное для этого число грузовиков.
е) Введите натуральное число и выведите число цифр в его десятичной записи (подсказка: целую часть вещественного числа x выдает функция int(x)).

4

Условный оператор. Составной оператор.

Программам, получающим от внешнего мира какие-то данные, например, поступающие с клавиатуры, часто приходится анализировать полученную информацию и выполнять различные действия в зависимости от истинности или
ложности некоторых условий. Конструкция, существующая в языке Pascal для реализации такого поведения, называется условным оператором.
Синтаксис, т. е. форма записи, условного оператора в языке Pascal следующий:
if условие then оператор1 else оператор2
Если условие истинно, выполняется оператор1 (он называется положительной альтернативой), если оно ложно —
оператор2 (отрицательная альтернатива). При этом часть else и отрицательная альтернатива могут отсутствовать.
В этом случае, если условие ложно, не выполняется ничего. В качестве операторов после then и else могут присутствовать любые операторы, например, присваивания или другой условный оператор. Если один условный оператор
вкладывается в другой, например таким образом:
if x>1
if y>2
then writeln(’случай 1’)
else writeln(’случай 2’)
возникает вопрос, к какому if относится else? Правило здесь такое: else всегда относится к последнему if, еще не
имеющему else (при этом число пробелов перед else не имеет никакого значения). Если мы хотим, чтобы else относилось
к внешнему if, внутренний должен быть заключен в составной оператор (см. позже).
Если мы хотим выполнить в случае, например, истинного условия несколько операторов, нужно опять использовать
так называемый составной оператор (см. позже).
В языке Pascal условием может быть только выражение, имеющее логический результат (т. е. истина (true) или
ложь (false); например, применение операции сравнения или логической операции).

.

Операций сравнения в языке Pascal шесть: = (равно), > (больше), < (меньше), >= (больше или равно), --">