С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Vitalya955
0 / 0 / 1
Регистрация: 15.12.2013
Сообщений: 37
1

Вычислить функцию

19.02.2015, 06:48. Просмотров 837. Ответов 1
Метки нет (Все метки)

X-вводится с клавиатуры

http://www.cyberforum.ru/cgi-bin/latex.cgi?y=\left(\frac{1}{2\pi x} \right)^{\frac{1}{2}}\,\sqrt[3]{\frac{\ln (\sin x)}{\sin 2x+\cos x}}
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2015, 06:48
Ответы с готовыми решениями:

Вычислить функцию
помогите перевести программы из QBasic'a в Pascal просто поскаль я очень плохо...

Вычислить функцию
Помогите пожалуйста с заданием !!! Вычислить функцию. Осуществить вывод...

Вычислить функцию
1. Дано висоту та сторону правильної трикутної призми, знайти її ...

Вычислить функцию
Z = b^5 + b^2 - 12, если b=1(0,1)2

Вычислить функцию
составить программу для описания функции y=f(x) изображенной на рисунке ...

1
Cyborg Drone
Модератор
5480 / 3296 / 2483
Регистрация: 17.08.2012
Сообщений: 10,595
19.02.2015, 07:55 2
Лучший ответ Сообщение было отмечено Vitalya955 как решение

Решение

http://www.cyberforum.ru/cgi-bin/latex.cgi?y=\left(\frac{1}{2\pi x} \right)^{\frac{1}{2}}\,\sqrt[3]{\frac{\ln (\sin x)}{\sin 2x+\cos x}}=\frac{1}{\sqrt{2\pi x}}\,\sqrt[3]{\frac{\ln (\sin x)}{\sin 2x+\cos x}}

Область допустимых значений аргумента (ОДЗ): (x > 0) and (sin(x) > 0) and (sin(2x) + cos(x) ≠ 0)

Пример реализации:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var x, y: real;
begin
  write('x = ');
  readln(x);
  if (x <= 0) or (sin(x) <= 0) or (sin(2 * x) - cos(x) = 0)
    then writeln('Function is undefined')
    else begin
      y := ln(sin(x)) / (sin(2 * x) + cos(x));
      if y > 0
        then y := exp(ln(y) / 3)
        else if y < 0
          then y := -exp(ln(abs(y)) / 3);
      y := y / sqrt(2 * pi * x);
      writeln('y = ', y)
    end;
  readln
end.

Не по теме:

И очень Вас прошу... Пожалуйста, научитесь, в конце концов, пользоваться встроенным в форум редактором формул, он нисколько не сложнее вордовского. Вот был бы я сейчас на работе, а там у меня MS Word 2000, который Ваш удалённый мною y.docx ну никак открыть не может, и как бы я тогда Вам ответил? Вообще, по правилам форума, запрещено размещать задания и решения в виде картинок и других файлов с их текстом. Видите ли в чём дело, по всем канонам формула - это текст. Здесь допускается выкладывать фотографии сложных и/или громоздких формул, однако, Ваша формула таковой не является. Да и всё бы ещё ладно, если бы и вправду фотографию выложили, а не файл, который далеко не все могут просмотреть. Вы ещё бы этот файл в rar-архиве выложили, тогда шансы на получение ответа были бы ещё меньше...



Добавлено через 6 минут
Можно ещё применить дополнительные переменные, чтобы избежать лишних вычислений:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var x, y, a, b: real;
begin
  write('x = ');
  readln(x);
  a := sin(x);
  b := sin(2 * x) - cos(x);
  if (x <= 0) or (a <= 0) or (b = 0)
    then writeln('Function is undefined')
    else begin
      y := ln(a) / b;
      if y > 0
        then y := exp(ln(y) / 3)
        else if y < 0
          then y := -exp(ln(abs(y)) / 3);
      y := y / sqrt(2 * pi * x);
      writeln('y = ', y)
    end;
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2015, 07:55

Вычислить функцию
2) Вычислите функцию у=Ln(x+a), для каждого х из изменяющегося с шагом 2

Вычислить функцию.
Вычислить функцию. Провести анализ: при каком значении аргумента функция не...

Вычислить функцию
Сделать программу на Турбо Паскале(Вложена картинка)/


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru