Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Vitalya955
0 / 0 / 0
Регистрация: 15.12.2013
Сообщений: 37
#1

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

19.02.2015, 06:48. Просмотров 326. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить функцию (Turbo Pascal):

Вычислить функцию. - Turbo Pascal
Вычислить функцию. Провести анализ: при каком значении аргумента функция не определена? | cos(sin(x)), x<2 y= |...

Вычислить функцию - Turbo Pascal
Как записать следующую функцию на паскаль? заранее спасибо. arcosx^2-x

Вычислить функцию - Turbo Pascal
Ребята помогите с задачей очень срочно надо

Вычислить функцию - Turbo Pascal
1) Вычислить функцию Y=1+(i!/2-{i}^{2}) где: i - параметр, принимающий значения натуральных чисел от 1 до 9; i! -произведение...

Вычислить функцию - Turbo Pascal
Составить программу для вычисления функции: y= cos^2(x) при 1<x<2 y= 1+sin^2(x) при x<=0, x>=2

Вычислить функцию - Turbo Pascal
Дано действительное число X. Вычислить F(x),если F(x)=1 при 1≤x≤2; x при x<1; x-1 при x>2.

1
Cyborg Drone
Модератор
5489 / 3098 / 1285
Регистрация: 17.08.2012
Сообщений: 10,013
19.02.2015, 07:55 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
Привет! Вот еще темы с ответами:

Вычислить функцию - Turbo Pascal
вычислить функцию. осуществить вывод значения функции провести анализ при каком значении аргумента функция не определена. ...

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

Вычислить функцию - Turbo Pascal
Решить задачи с использованием: 1)Процедура без параметров. 2)Процедура с параметрами. 3)Процедура с переменными параметрами. ...

Вычислить функцию - Turbo Pascal
Помогите, пожалуйста, решить задачу, уже завтра сдавать, а я без понятия как делать(( Для заданной функции d=4,1* cos(z+корень из...


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

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

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