Иллюстрированный самоучитель по Turbo Pascal для начинающих

Выбор. If.

Приступая к решению задач этого раздела, следует вспомнить, что:

  • инструкция if используется для выбора одного из двух направлений дальнейшего хода программы (последовательности инструкций, которые должны быть выполнены);
  • выбор последовательности инструкций осуществляется во время выполнения программы в зависимости от выполнения условия',
  • условие – это выражение логического типа, которое может принимать одно из двух значений: true (истина – условие выполняется) или false (ложь – условие не выполняется);
  • при помощи логических операций And (логическое "И") и Or (логическое "ИЛИ") из простых условий можно строить сложные.

76. Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке. Ниже представлен рекомендуемый вид экрана во время работы программы.

Вычисление частного.
Введите в одной строке делимое и делитель, затем нажмите Enter
 › 12 0
Вы ошиблись. Делитель не должен быть равен нулю.

77. Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных. Ниже представлен рекомендуемый вид экрана во время работы программы.

Вычисление площади кольца.
Введите исходные данные:
Радиус кольца (см) › 3.5
Радиус отверстия (см) › 7
Ошибка! Радиус отверстия не может быть больше радиуса кольца.

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

Вычисление сопротивления электрической цепи.
Введите исходные данные:
Величина первого сопротивления (Ом) › 15
Величина второго сопротивления (Ом) › 27.3
Тип соединения (1 – последовательное, 2 – параллельное) › 2
Сопротивление цепи: 9.68 Ом.

79. Написать программу решения квадратного уравнения. Программа должна проверять правильность исходных данных и в случае, когда коэффициент при второй степени неизвестного равен нулю, выводить соответствующее сообщение. Ниже представлен рекомендуемый вид экрана во время работы программы.

* Решение квадратного уравнения *
Введите в одной строке значения коэффициентов и нажмите Enter
 › 12 27-10
Корни уравнения:
x1= -25.551
х2= -28.449

80. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 руб. Ниже представлен рекомендуемый вид экрана во время работы программы.

Вычисление стоимости покупки с учетом скидки.
Введите сумму покупки и нажмите Enter
 › 1200
Вам предоставляется скидка 10%
Сумма покупки с учетом скидки: 1080.00 руб.

81. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% – если сумма больше 1000 руб. Ниже представлен рекомендуемый вид экрана во время работы программы.

Вычисление стоимости покупки с учетом скидки.
Введите сумму покупки и нажмите Enter
 › 640
Вам предоставляется скидка 3%
Сумма покупки с учетом скидки: 620.80 руб.
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.