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

16.11.2012, 03:11. Показов 2546. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Протабулировать функцию на промежутке [-i; i] с шагом h = 0.1i, где i=12. Результаты вывести на экран в виде таблицы пар чисел x, y. Выполнить задачу поиска данных. Если функция в какой-то точке из указанного интервала не существует вывести об этом сообщение и указать значение этого аргумента. Если искомых данных нет, вывести об этом сообщение

(3*(3.1*sqr(x)*sqr(x)*x-9)+cos(2*x))/(4.1*x-2)+arctan(3*x)
Вычислить сумму всех значений функции у, для которых выполняется неравенство> 50000. Определить минимальное значение функции.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program domawka;
uses Crt; 
var 
x,y,xk,h,s:real; 
n:integer; 
cоnst i=12; 
begin 
clrscr; 
x:=-i; 
xk:=i; 
h:=0.1*i; 
n:=0; 
s:=1; 
repeat 
y:=(3*(3.1*sqr(x)*sqr(x)*x-9)+cos(2*x))/(4.1*x-2)+arctan(3*x); 
writeln( x:9:3, y:9:3); 
if y>50000 then n:=n+1 
else s:=s+y; 
x:=x+h; 
until x>xk; 
writeln('N=',n); 
writeln('Syma=',s:9:3); 
END.

помогите плз я что то нето зделал...напишите в чем я ошибся и напишите пл как написать правильно

а также прошу помочь с этим
Создать и вывести массив в с элементами, где i =12, k = 1,12. В случае отсутствия искомых данных, вывести сообщение об этом.
Вычислить произведение второй отрицательного и пятого элементов

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует выделить этот код и на панели редактирования сообщения нажать кнопку: "PASCAL".

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

16.11.2012, 03:11

Ответы с готовыми решениями:

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

Вычислить произведение всех значений функции у, для которых справедливо неравенство
Вычислить произведение всех значений функции у, для которых справедливо неравенство 1<у<3,1. Тема-заполнение и обработка массива...

Найдите все значения параметра, при каждом из которых неравенство выполняется для всех значений
Очередная нерешенная задача с параметром. Найдите все значения параметра а, при каждом из которых неравенство: 3{x}^{5}\, +\,...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

16.11.2012, 03:11

Помогаю со студенческими работами здесь

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

Вычислить произведение элементов массива, для которых выполняется неравенство
Создать массив с элементами Akn=nf(k)+sin(k) g (n) где k,n=1,2,3,4; f(k)=13,4sin(-1,26)cos|k/7,5| g(n)=2sin|2n|cos2n-11,6sin((n/0,4)-1)...

Вычислить количество элемента массива, для которых выполняется неравенство
задача.двумерные массивы.простой поиск.создать массив с элементами Акn = nfi+11(k)+sin(k)fi+12(n), где вычислить количество элемента...

Вычислить количество элементов матрицы, для которых выполняется неравенство
Создать массив :array , заполнить его используя генератор случайных чисел, вывести его на экран в виде таблицы, вычислить количество...

Вычислить количество элементов массива , для которых выполняется неравенство
Вычислить количество элементов массива , для которых выполняется неравенство 1< akn< 6

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

Наверх