Помогите пожалуйста надобно перевести пример в паскаль

Помогите пожалуйста надобно перевести пример в паскаль

Задать свой вопрос
2 ответа
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var (x,p,b):=ReadReal3('Введите x,p,b через пробел:');
  Writeln((x*x*Sin(DegToRad(15))+b**(1/3))/Abs(7*Exp(Sqrt(Exp(1)))-2*p))
end.
Тут необходимо за ранее конвертировать выражение математически:
1) Паскаль по умолчанию принимает доводы тригонометрических функций в радианной мере, а в условии указаны 15 градусов. 
Переведем в радианы. Знаменито, что 180 =  3,14 радиан. Тогда
13,14/180. Дальше, 15153,14/180. Сократим дробь и получим:
153,14/12. 
2) В Паскале нет готовой функции для кубического корня. Необходимо предварительно конвертировать по правилу арифметики:
b=b^(1/3) т.е. b в ступени, одинаковой 1/3. Далее используем формулу возведения хоть какого положительного числа в всякую степень:  
a=e^(b*ln(a)). Тогда кубический корень можно записать как: exp(1/3*ln(b))
3) Следует также помнить, что показательная функция e в Паскале задается как интегрированная функция exp(x), функция ln(x) записывается фактически также как и в арифметике, квадрат числа можно записать как x*x или с помощью стандартной функции sqr(x).
4) Модуль выражения, стоящего в знаменателе, также имеет встроенную функцию абс(), а квадратный корень записывается как стандартная функция sqrt(). 
5) В знаменателе имеется константа е , ее значение 2,71. Но в Паскале есть интегрированная функция e, потому можно константу е записать как e либо exp(1)
Теперь всё можно собрать в общую формулу:

(sqr(x)*sin(3.14/12)+exp(1/3*ln(b)))/абс(7*exp(sqrt(exp(1)))-2*p)


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт