Как записать произведение?

[motivator]

Как записать большое П.

[ura_111]

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

Я не знаю в чём ты программируешь, но обычно произведение записуют так:
1) Произведение будет храниться в переменной "P", в твоём примере вещественного типа. Первичное инициализация = "1".

P=1

2) Организуешь цикл от "3" до "17" с шагом "2". Если на с++ писать, тогда

for (int i = 3; i<17; i=i+2)
{
   ......
}

В этом цикле и будет накапливаться произведение.

3) В этом цикле пишешь:

p=p*КОРЕНЬ(...f( i)..);

Ты понимаешь? На каждом шаге цикла будет рассчитываться выражение при разных "i", а в "P" будет накапливаться произведение.

На 1 шаг цикла будет рассчитано f(3), а потом P=P*f(3) (при этом шаге Р=1 -> P=1*f(3))
На 2 шаг цикла будет рассчитано f(5), а потом P=P*f(5) (при этом шаге Р=1*f(3) -> P=1*f(3)*f(5))
На 3 шаг цикла будет рассчитано f(7), а потом P=P*f(7) (при этом шаге P=1*f(3)*f(5) -> P=1*f(3)*f(5)*f(7))
На 4 шаг цикла будет рассчитано f(9), а потом P=P*f(9) (при этом шаге P=1*f(3)*f(5) -> P=1*f(3)*f(5)*f(7)*f(9))
................

Обрати внимание на 4-м шаге будет в "P" храниться уже произведение до "9": " 1*f(3)*f(5)*f(7)*f(9) "

[motivator]

Программирую в паскальабцнет.

[p51x]

Ну так вперед, алгоритм разложен на пальцах. Осталось там всего ничего var p:real; begin...

[ura_111]

motivator, прочитай 3 раза то что я написал. И попробуй написать произведение на что-нибудь простое (например "факториал числа"):

11.jpg

Там шаг "i" равен 1.

И мы посмотрим что ты знаешь, а что нет; что ты умеешь, а что нет.

p.s.: а потом тебе будет легко переделать этот цикл под твою (более сложную) задачу.

[motivator]

p51, я не просил за себя решать, я уточнил, т.к "Если на с++ писать, тогда...". Я не написал в шапке про паскаль.

[motivator]

Можешь проверить, так получится?
program zad_2;
var
i, s, x: real;
begin
writeln('введите значение');
readln(x);
i:=3;
s:=1;
while i<=17 do
begin
s:=s*(sqrt(cos(2*i+pi*power(x,1/3)*(1/3))));
i:=i+3;
end;
writeln('s=',s:1:3);
end.

[ura_111]

А зачем, что бы за тебя проверяли?

- Загнал в компилятор, ввёл исходные данные и получил ответ. А дальше - сопоставь ответ с ручным счётам. Если совпало - значит всё ОК.

Если компилятор у тебя на компьютере не установлен - используй онлайн-компилятор. Ну вот, например (в реальности их "море в инете"):

http://primat.org/index/0-128


10.jpg

p.s.: перед расчётом на калькуляторе, выясни в радианах или градусах считает программа "cos()". Можешь прям в программе это определить (что выведет, если поменять формулу на "cos(3.14)" и "cos(180)"?).