Построить блок-схему и написать программу (Паскаль) вычисления значения выражения - Pascal
Формулировка задачи:
Прикрепил ниже.
Решение задачи: «Построить блок-схему и написать программу (Паскаль) вычисления значения выражения»
textual
Листинг программы
program pr;
const
x = 0.335;
y = 0.025;
z = 32;
var
t: real;
begin
t := exp((x + 1) * ln(y)) + sqrt(abs(x) + exp(y * ln(e))) + (exp(3 * x * ln(z)) - sin(y) * sin(y)) / (y + z * z / exp(x * ln(e)));
writeln('t= ', t);
end.
Объяснение кода листинга программы
- Объявление программы:
program pr; - Задание констант:
const x = 0.335; y = 0.025; z = 32; - Объявление переменных:
var t: real; - Вычисление значения выражения и присваивание его переменной t:
t := exp((x + 1) * ln(y)) + sqrt(abs(x) + exp(y * ln(e))) + (exp(3 * x * ln(z)) - sin(y) * sin(y)) / (y + z * z / exp(x * ln(e))); - Вывод значения переменной t:
writeln('t= ', t); - Завершение программы:
end.