Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Christmas03
0 / 0 / 0
Регистрация: 13.10.2015
Сообщений: 14
#1

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

30.01.2016, 16:51. Просмотров 237. Ответов 3
Метки нет (Все метки)

Помогите решить, условие на картинке.

http://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
y=\begin{cases}at^3\operatorname{ctg}(t+1) & \text{, if } 1\leq t\leq 5\\ 1+t^2 & \text{, otherwise}\end{cases}\\a=-0.5<br />
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2016, 16:51
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить значение функции в зависимости от введенного аргумента (Turbo Pascal):

Вычислить значение функции в зависимости от введенного аргумента
Помогите люди добрые) y=\begin{cases}\pi x^3-7/x^2 &amp; \text{, if }...

Найдите ошибку вычислить значение функции F в зависимости от значения аргумента Х
Вычислить значение функции F в зависимости от значения аргумента Х, объявив...

Вывести значение y(x) в зависимости от введенного значения аргумента: {x2 если [x]<1 x-1 если [x]>=1
Вывести значение y(x) в зависимости от введенного значения аргумента: {x2 если...

По заданному значению аргумента вычислить значение функции
Дан график функции. Задание: &quot;По заданному значению аргумента вычислить...

Вычислить главное значение аргумента функции в градусах.
1)Тема:Линейные функции. Дано значение функции с cos(x). Обчислить...

Вычислить значение функции при заданном значении аргумента
Написать программы для решения предложенных ниже задач. Пользователь вводит...

3
YBF19
1 / 1 / 5
Регистрация: 30.01.2016
Сообщений: 11
30.01.2016, 17:59 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program pr1;
Const a = -0.5;
Var
  t, y : real;
Begin
  Write('Введите t: ');
  ReadLn(t);
  If (t >= 1) And (t <= 5) Then y := a * t * t * t / tan(t + 1)
  Else y := 1 + t * t;
  WriteLn('y(t) = ', y:0:4);
  ReadLn
End.
0
Puporev
Модератор
54126 / 41759 / 28871
Регистрация: 18.05.2008
Сообщений: 98,281
30.01.2016, 18:30 #3
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Цитата Сообщение от YBF19 Посмотреть сообщение
/ tan(t + 1)
В Турбо Паскале нет функции tan
0
YBF19
1 / 1 / 5
Регистрация: 30.01.2016
Сообщений: 11
30.01.2016, 18:34 #4
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Тогда так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program pr1;
Const a = -0.5;
Var
  t, y : real;
Begin
  Write('Введите t: ');
  ReadLn(t);
  If (t >= 1) And (t <= 5) Then y := a * t * t * t * cos(t + 1) / sin(t + 1)
  Else y := 1 + t * t;
  WriteLn('y(t) = ', y:0:4);
  ReadLn
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2016, 18:34
Привет! Вот еще темы с решениями:

Вычислить значение функции при условии значения аргумента
2.5min(x,y,R)+R^2 , если x+y+R &gt;=0 Z={ x^3+max(y,R) , если x+y+R &lt;0...

Вычислить значение функции y=f(x) для одного значения аргумента x
значения x=2,5 M=12 n=9

Вычислить значение функции s(x) (согласно варианту) для значений аргумента
Вычислить значение функции s(x) (согласно варианту) для значений аргумента ,...

По введенным значениям аргумента х вычислить значение функции, заданной графически
По введенным значениям аргумента х вычислить значение функции, заданной...


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

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

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