С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Евдокия
8 / 8 / 1
Регистрация: 24.10.2013
Сообщений: 203
1

Вычислить произведение всех значений функции у, для которых справедливо неравенство

16.02.2014, 19:05. Просмотров 510. Ответов 4
Метки нет (Все метки)

Используя функцию F, построить массив у с эл-тами у= F(k). Вычислить произведение всех значений ф-ции у, для которых справедливо неравенство 1<у<3,1. Вот что у меня получилось:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Program ex3;
uses CRT;
var n:integer; 
Y: array [1..100] of real; 
P: real; 
k: integer; 
function F(x: real): real;
begin
if x<=0 then F:=abs(sin((2*x)-1.5)+3*sin(sqr(x))+2.38;
if x>0 and x<10 then F:=abs((cos(sqr(x))-0.5*abs(sin((3*x)-4)))-4.44 else F:=exp(2*x)-exp(x)+x;
end;
begin
clrscr;
write('Введите кол-во членов последовательности n');
readln(n);
writeln(“ x Y(x));
P:=1;
for k:=1 to n do
begin
Y[k]:=F(k);
Writeln(k:5,Y[k]:5:2);
if Y[k]>1 and Y[k]<3.1 then
P:=P*Y[k];
end;
writeln(''Произведение Р='',P:5:2);
readln;
end.
Как нужно изменить программу, чтобы определить значение х, при котором функция достигает минимума?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.02.2014, 19:05
Ответы с готовыми решениями:

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

Вычислить количество элементов массива, для которых выполняется неравенство
Создать массив с элементами {a}_{kn}=n\cdot f(k) + sin(k)g(n), где k,n=1,2,3,4....

Найти произведение всех отрицательных значений функции f(x) на заданном интервале
Задание: Составить программу расчета таблицы значений функции f(x) на интервале...

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

Вычислить сумму и произведение полученых значений функции
Задание Вычислить сумму и произведение полученых значений функции. Составить...

4
Puporev
Модератор
55504 / 42593 / 29443
Регистрация: 18.05.2008
Сообщений: 100,753
16.02.2014, 19:28 2
Во первых этот код не компилируется и потом нужно точное и полное условие задачи
0
Евдокия
8 / 8 / 1
Регистрация: 24.10.2013
Сообщений: 203
16.02.2014, 21:46  [ТС] 3
Используя функцию F, построить массив у с элементами http://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{k}=F(k). Выполнить для этого массива следующий поиск данных: http://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases}abs(sin((2*x)-1.5)+3*sin(sqr(x)))+2.38 & \text{ if } x\leq 0  \\  abs((cos(sqr(x))-0.5*abs(sin((3*x)-4)))-4.44& \text{ if } 0<x\leq 10  \\  exp(2*x)-exp(x)+x& \text{ if } x>10  \end{cases}

Вычислить произведение всех значений ф-ции у, для которых справедливо неравенство 1<у<3,1. Определить, при каком значении х функция достигает минимума.
0
code-n'-help
Форумчанин Паскаля
76 / 89 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
16.02.2014, 22:09 4
Цитата Сообщение от Евдокия Посмотреть сообщение
Используя функцию F, построить массив у с элементами http://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{k}=F(k). Выполнить для этого массива следующий поиск данных: http://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases}abs(sin((2*x)-1.5)+3*sin(sqr(x)))+2.38 & \text{ if } x\leq 0  \\  abs((cos(sqr(x))-0.5*abs(sin((3*x)-4)))-4.44& \text{ if } 0<x\leq 10  \\  exp(2*x)-exp(x)+x& \text{ if } x>10  \end{cases}

Не по теме:

Вот это поворот



Добавлено через 1 минуту
Попробуйте проверить элемент массива больше он или меньше 10 а потом меньше он нуля или больше. А массив у вас одномерный?
1
Евдокия
8 / 8 / 1
Регистрация: 24.10.2013
Сообщений: 203
17.02.2014, 10:19  [ТС] 5
Эта задача из темы Заполнение и обработка массива значений функции.
0
17.02.2014, 10:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.02.2014, 10:19

Найти количество элементов матрицы, для которых выполняется неравенство 1<a[i,j]<6
Вычеслите количество элементов массива, для которых выполняется неравенство...

Решить неравенство вида ax2<b для всех случаев
помогите решить пожалуйста задачку,Решить неравенство вида ax2&lt;b для всех...

Вычислить значение сложной (составной) функции для заданных значений аргументов
ТЕМА: Ветвление. Написание программ, реализующих алгоритмическую структуру...


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

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

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