Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
XapBu
7 / 7 / 0
Регистрация: 18.08.2012
Сообщений: 58
#1

Найти произведение функции

17.03.2015, 19:04. Просмотров 997. Ответов 13
Метки нет (Все метки)

Найти произведение вычисленных значений функции f(x)

http://www.cyberforum.ru/cgi-bin/latex.cgi?f(x)=(1-{e}^{-x})*sin(4\pi x)

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.03.2015, 19:04
Ответы с готовыми решениями:

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

Найти произведение значений/максимальное значение функции
Как перемножить все значения f(x) и найти максимальное значение? Помогите! ...

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

Если два числа не равны, то найти их сумму и произведение, если произведение больше суммы, то определить, на сколько
Даны два числа. Если они не равны, то найти их сумму и произведение. Если...

Найти произведение чисел для функции
Найти произведение чисел для функции: y=y^3-2x, которые больше 2, но меньше 20.

13
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,518
17.03.2015, 19:24 #2
Цитата Сообщение от XapBu Посмотреть сообщение
произведение вычисленных значений
Каких значений?
0
JuriiMW
1920 / 1028 / 1551
Регистрация: 10.12.2014
Сообщений: 3,801
18.03.2015, 07:19 #3
Pascal
1
2
3
4
function f(x : Real) : Real;
begin
  f := (1 - exp(-x)) * sin(x * pi * 4);
end;
0
XapBu
7 / 7 / 0
Регистрация: 18.08.2012
Сообщений: 58
21.03.2015, 18:41  [ТС] #4
И что это всё? Всё задание сводится к этой записи?
0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,518
21.03.2015, 18:51 #5
Цитата Сообщение от XapBu Посмотреть сообщение
Найти произведение вычисленных значений функции f(x)
Цитата Сообщение от XapBu Посмотреть сообщение
Всё задание сводится к этой записи?
Конечно нет, ибо все задание Вы не написали. Это только вычисление функции.
0
XapBu
7 / 7 / 0
Регистрация: 18.08.2012
Сообщений: 58
21.03.2015, 19:38  [ТС] #6
Ввёл это
Pascal
1
2
3
4
function f(x : Real) : Real;
begin
  f := (1 - exp(-x)) * sin(x * pi * 4);
end;
нажал Alt+F9
программа выдаёт: Error 05: ";" expected.
В чём ошибка?

Добавлено через 7 минут
Я не понимаю.
Цитата Сообщение от XapBu Посмотреть сообщение
Найти произведение вычисленных значений функции f(x)
Это вся задача.
А что там ещё может быть?
0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,518
21.03.2015, 20:15 #7
Лучший ответ Сообщение было отмечено XapBu как решение

Решение

Если просто вычислить значение функции, то так
Pascal
1
2
3
4
5
6
7
8
9
10
function f(x : Real) : Real;
begin
  f := (1 - exp(-x)) * sin(x * pi * 4);
end;
var x:real;
begin
write('x=');
readln(x);
write('f=',f(x))
end.
Правда значения получаются очень мелкие.
А какое Вам нужно считать произведение это нам не известно.
1
XapBu
7 / 7 / 0
Регистрация: 18.08.2012
Сообщений: 58
23.03.2015, 15:12  [ТС] #8
Ввёл то что вы написали выдаёт ту же ошибку.

Добавлено через 16 минут
Всё разобрался.
По условию оформления нужно сначала написать program Prim1.
Я написал, а ";" не поставил.
спасибо за помощь.

Добавлено через 7 минут
Проблема.
нажимаю Alt+F5, а там ни каких результатов.
0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,518
23.03.2015, 15:19 #9
Вводите х, жмете Ctrl+F9, жмете Alt+F5, читаете результат.
Или допишите перед end. readln; ничего нажимать не нужно будет.
0
XapBu
7 / 7 / 0
Регистрация: 18.08.2012
Сообщений: 58
23.03.2015, 16:32  [ТС] #10
Извиняюсь вот полное условие задачи

Добавлено через 1 минуту
Составить программу расчета
значений функции f(x) на интер-
вале изменения х, равном [a,b] в
n равноотстоящих точках.
Вычисленные значения функции
сохранить в массиве c. А также:
Найти произведение вычисленных
значений функции
0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,518
23.03.2015, 17:12 #11
У Вас функция подосланная, ее значения в разных точках очень маленькие, а их произведение будет практически 0.
Вот пример для х от 1 до 5
0
Миниатюры
Найти произведение функции  
XapBu
7 / 7 / 0
Регистрация: 18.08.2012
Сообщений: 58
25.03.2015, 10:41  [ТС] #12
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 Prim1;
var
  x,a,b,s,h,p: double; 
  i,n:integer;
  c:array [1..100] of double;
 
begin
  writeln ('Введите a,b');readln (a,b);
  writeln ('Введите n');readln (n);
  h:=(b-a)/(n-1);
 
  if a=-1 then begin
    writeln('!При x=-1 функция не определена!');
    exit;
  end;
 
  x:=a; i:=1;
  while i<=n do begin
    c[i]:=(1 - exp(-x)) * sin(x * pi * 4);
    writeln (x,c[i]);
    i:=i+1; x:=x+h;
  end;
 
   
  writeln ('Сумма =',s);
  writeln ('Произведение=',p);
end.
Добавлено через 58 секунд
Всё ли здесь правильно?
0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,518
25.03.2015, 10:45 #13
Почему a<>-1?
Где считается произведение?
0
XapBu
7 / 7 / 0
Регистрация: 18.08.2012
Сообщений: 58
25.03.2015, 11:39  [ТС] #14
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
{$n+} { Подключаем использование сопроцессора }
program n1;
var
  x,a,b,s,h,p: double; 
  i,n:integer;
  c:array [1..100] of double; 
 
begin
  writeln ('Введите a,b');readln (a,b);
  writeln ('Введите n');readln (n);
  h:=(b-a)/(n-1);
 
  if a=-1 then begin
    writeln('!При x=-1 функция не определена!');
    prv:=prv*c[i];
    exit;
  end;
 
  x:=a; i:=1;
  while i<=n do begin
    c[i]:=(1 - exp(-x)) * sin(x * pi * 4);
    writeln (x,c[i]);
    i:=i+1; x:=x+h;
  end;
 
      writeln ('Произведение=',p);
end.
Добавлено через 6 минут
Дописать
x := x+h;
continue;

Добавлено через 30 минут
А если вот так прописать
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
program Prim1;
uses crt;
var
kol, i,n,y: integer;
a,b,h,x:real;
c:array [1..100] of real;
begin
clrscr;
writeln ('Ввести n');
read (n);
writeln ('Ввести a,b');
read (a,b);
dx:=(b-a)/(n-1);
x:=a; i:=1;
while i<=n do
begin
c[i]:=(1-exp(-x))*sin(4*pi*x);
writeln (x:6:3, ' ',c[i]:6:3);
i:=i+1;x:=x+h;
end;
kol:=0;
for i:=1 to n do
if (c[i]>0) then kol:=kol+1;
writeln ('kol=',kol);
readkey
end.
0
25.03.2015, 11:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2015, 11:39

Функция y = f(x, a). Найти произведение отрицательных значений функции, кратных 3
Дана функция y = f(x, a). Найти произведение отрицательных значений функции,...

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

если числа X и Y равны ,то найти их сумму, иначе найти их произведение
если числа X и Y равны ,то найти их сумму, иначе найти их произведение.


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

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

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