Даны x, y, z. Вычислить a b, если: - Turbo Pascal
Формулировка задачи:
Даны x, y, z. Вычислить a b, если:
Програму и блок-схему, пожалуйста.
P.S Зачем уравнения переписывать? И я не знаю как его перепечатать. Извините за неудобства.
Решение задачи: «Даны x, y, z. Вычислить a b, если:»
textual
Листинг программы
var a, b, x, y, z: real; begin Write('X = '); Readln(x); Write('Y = '); Readln(y); Write('Z = '); Readln(z); a := (3 + Exp(y - 1)) / (1 + Sqr(x) * Abs(y - Sin(z) / Cos(z))); b := 1 + Abs(y - x) + (Sqr(y - x) / 2) + (Exp(3 * Ln(Abs(y - x))) / 3); Writeln('A = ', a:0:2); Writeln('B = ', b:0:2); Readln end.
Объяснение кода листинга программы
- Создается переменная
a
типаreal
и присваивается ей значение(3 + Exp(y - 1)) / (1 + Sqr(x) * Abs(y - Sin(z) / Cos(z)))
- Создается переменная
b
типаreal
и присваивается ей значение1 + Abs(y - x) + (Sqr(y - x) / 2) + (Exp(3 * Ln(Abs(y - x))) / 3)
- Выводится значение переменной
a
с точностью до двух знаков после запятой с помощью функцииWriteln
и форматированияa:0:2
. - Выводится значение переменной
b
с точностью до двух знаков после запятой с помощью функцииWriteln
и форматированияb:0:2
. - Выполняется чтение следующего ввода с помощью функции
Readln
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д