x, b, a, s1, s2: real; {s1 - результат вычисления 1-ой функции, s2 - 2-ой функции} begin writeln('Введите x, b, a'); readln(x, b, a); writeln('Исходные значения: x = ', x, ', b = ', b, ', a = ', a); s1:= (sqr(x) * x) * sqr(sin(sqr(x + b)) / cos(sqr(x + b))) + a / sqrt(x + b);{sin / cos - это tg} s2:= (b * sqr(x) - a) / (power(e, a * x) - 1);{функция power возводит число е в степень a * x}
writeln('Результат вычисления 1 формулы: ', s1 : 0 : 5, ', 2 формулы: ', s2 : 0 : 5);{ : 0 : 5 - это формат вывода с точностью до 5 знаков после запятой а 0 это автоформатирование числа знаков до запятой}
end.
Функция power есть в компиляторах pascal ABC, pascal ABC.NET.
Answers & Comments
const e = 2.7182818285; //константа - число е
var
x, b, a, s1, s2: real; {s1 - результат вычисления 1-ой функции, s2 - 2-ой функции}
begin
writeln('Введите x, b, a');
readln(x, b, a);
writeln('Исходные значения: x = ', x, ', b = ', b, ', a = ', a);
s1:= (sqr(x) * x) * sqr(sin(sqr(x + b)) / cos(sqr(x + b))) + a / sqrt(x + b);{sin / cos - это tg}
s2:= (b * sqr(x) - a) / (power(e, a * x) - 1);{функция power возводит число е в степень a * x}
writeln('Результат вычисления 1 формулы: ', s1 : 0 : 5, ', 2 формулы: ', s2 : 0 : 5);{ : 0 : 5 - это формат вывода с точностью до 5 знаков после запятой а 0 это автоформатирование числа знаков до запятой}
end.
Функция power есть в компиляторах pascal ABC, pascal ABC.NET.