Написать программу и вычислить: Значение z задать с клавиатуры - Pascal ABC
Формулировка задачи:
Написать программу и вычислить:
Значение z задать с клавиатуры
Решение задачи: «Написать программу и вычислить: Значение z задать с клавиатуры»
textual
Листинг программы
var a, y, d, z, x: real; begin a := 12.56; readln(z); d := cos(a + 3) / 39; if z > 16 then y := power(z, 0.3) + 0.5 * d else y := d / 2 + power((z + a), 3); writeln(y); end.
Объяснение кода листинга программы
- Объявлены переменные: a, y, d, z, x (тип real).
- Значение переменной a установлено равным 12.56.
- С клавиатуры введено значение переменной z.
- Вычислено значение переменной d по формуле: d := cos(a + 3) / 39.
- Проведено сравнение z > 16, и если это условие истинно, то выполнено вычисление значения переменной y по формуле: y := power(z, 0.3) + 0.5 * d.
- Иначе, значение переменной y вычисляется по формуле: y := d / 2 + power((z + a), 3).
- На экран выведено значение переменной y.