0 / 0 / 0
Регистрация: 11.12.2014
Сообщений: 3

Вычислить значение выражения

23.12.2014, 21:29. Показов 842. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста)

задание такое:
Даны n, x, массив t(n). вычислить
https://www.cyberforum.ru/cgi-bin/latex.cgi?\prod_{K=1}^{n} \left( (x^2^k)*cos(kx)/(3k-2)!-(t[k]*sin(kx))/(2k)!+1\right)
Вычисление произведения оформить как процедуру. Все необходимые данные для процедуры должны передаваться ей в качестве параметров. Глобальных переменных не использовать.

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
28
29
30
31
32
33
34
35
36
37
38
program pr123;
var t:array [1..n] of real;
F1,F2,L:real;
Procedure Fact2(B : Longint);
Procedure Fact1(A : Longint);
Procedure Pr(x:real);
var p,m:real; n:integer;
begin
p:=0;
for k:=1 to n do
p:=m*p;
Pr:=p;
end;
 
begin
If A>0 then Fact1:=A*Fact1(A-1) else Fact:=1;
end;
 
begin
If B>0 then Fact2:=B*Fact2(B-1) else Fact:=1;
end;
 
Begin
begin
writeln('vvedite x,n');
read(x,n);
writeln('vvedite',n,'chisel');
for k:=1 to n do
read (t[n]);
A:=3*k-2;
B:=2*k;
F1:=Fact1;
F2:=Fact2;
m:=(exp(ln(x)*2*k)*cos(k*x)/F1)-(((t[k])*sin(k*x))/F2)+1;
end;
L:=Pr(m,p);
wtiteln('proizvedenie=',L);
End.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.12.2014, 21:29
Ответы с готовыми решениями:

Вычислить значение выражения
помогите решить пожалуйста 1. Составить программу для вычисления w с использованием функций. 2. По этому условию составить программу...

Вычислить значение выражения
Помогите пожалуйста 7) Вычислить: s=1+\frac{1}{a^2}+\frac{1}{a^4}+\frac{1}{a^6}+...+\frac{1}{a^{2n-2}} n и a - заданы.

Вычислить значение выражения
кто сделает буду благодарен X=\begin{cases}a\cdot b-3 & \text{, if } a\,>\,b \\\,\\ 2 & \text{, if } a=b \\\,\\\frac{a^3+1}{b}...

1
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
24.12.2014, 08:38
Я бы так написал. Еще бы формулу глянуть в оригинале..
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program pr123;
const nmax=20;//максимальный размер массива
type mas=array[1..nmax] of real;//его тип
Procedure Pr(t:mas;x:real;n:integer);//процедура вычисления произведения
var p,sx,f1,f2:real;
    k,c:integer;
begin
//значения параметов при k=1
sx:=x*x;//x^2k
f1:=1;//(3k-2)!
f2:=2;//(2k)!
c:=-1;//первое число в цепочке чисел при вычислении первого факториала
p:=sx*cos(x)/f1-t[1]*sin(x)/f2+1;//начальное произведение
for k:=2 to n do
 begin
  sx:=sx*x*x;//домножаем x^2*x^2
  c:=c+3;//следующее первое число (2,5,8...)
  f1:=f1*c*(c+1)*(c+2);//первый факториал(1*(2*3*4)*(5*6*7)*(8*9*10)...)
  f2:=f2*(2*k-1)*2*k; //второй факториал(2*(3*4)*(5*6)*(7*8))
  p:=p*sx*cos(k*x)/f1-t[k]*sin(k*x)/f2+1;//следующее произведение
 end;
write('Произведение=',p);
end;
var t:mas;
    x:real;
    n,k:integer;
begin
randomize;
repeat
write('Введите n от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив t(n)');
for k:=1 to n do
 begin
  t[k]:=10+10*random;
  write(t[k]:8:2);
 end;
writeln;
write('x=');
readln(x);
Pr(t,x,n);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.12.2014, 08:38
Помогаю со студенческими работами здесь

Вычислить значение выражения
Вычислить сумму x =∑_(k=1)^(i+5)▒〖F(k)〗 и произведение y=∏_(k=1)^(i+5)▒〖F(k)〗 . Вычислить значение выражения z и вывести x,y,z: F(x)=...

Вычислить значение выражения
Составить программу для вычисления значения выражения: Входные данные – х (вводится с клавиатуры). Выходные данные – у y={\cos...

Вычислить значение выражения
Дано: Y=5.1*Z+sin(1.3+pi)/sqrt3Z^2+b , где -2£ x £2; h=0.2; b=3.56; Z =0.24cos(x) +3sqrtb+4, при...

Вычислить значение выражения
Рассчитать K=3l-2m , где l=\begin{cases}x^2+2\cos x & \text{ if } x\leq 2 \\\\ \frac{x^2+e^x}{2x} &...

Вычислить значение выражения
Рассчитать L=m^2+n^2, где m=\begin{cases}\frac{x+e^x}{2} & \text{ if } x\,>\,8 \\\\ x\sin x & \text{ if } x\leq 8...


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

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

Новые блоги и статьи
Введение в Q# - язык квантовых вычислений от Microsoft
EggHead 19.05.2025
Microsoft вошла в гонку технологических гигантов с собственным языком программирования Q#, специально созданным для разработки квантовых алгоритмов. Но прежде чем погружаться в синтаксические дебри. . .
Безопасность Kubernetes с Falco и обнаружение вторжений
Mr. Docker 18.05.2025
Переход организаций к микросервисной архитектуре и контейнерным технологиям сопровождается лавинообразным ростом векторов атак — от тривиальных попыток взлома до многоступенчатых кибератак, способных. . .
Аугментация изображений с Python
AI_Generated 18.05.2025
Собрать достаточно большой датасет для обучения нейронной сети — та ещё головная боль. Часами вручную размечать картинки, скармливать их ненасытным алгоритмам и молиться, чтобы модель не сдулась при. . .
Исключения в Java: советы, примеры кода и многое другое
Javaican 18.05.2025
Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .
Как сделать SSO (Single Sign-On) в C# приложении
stackOverflow 18.05.2025
SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .
Kubernetes с Apache Flink для обработки данных в реальном времени
Mr. Docker 17.05.2025
Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .
Использование декораторов в Python
py-thonny 17.05.2025
Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .
Реализация многопоточных сетевых серверов на Python
py-thonny 16.05.2025
Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .
C# и IoT: разработка Edge приложений с .NET и Azure IoT
UnmanagedCoder 16.05.2025
Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .
Гибридные квантово-классические вычисления: Примеры оптимизации
EggHead 16.05.2025
Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru