Решение выражения.

[Roman1295]

Вычислить: (1+sin x_)(3+sin 3x) (5+sin 5x) …(11+sin 11x)
Решил так:

var i,x :integer;   j,k: real;
begin
Readln(x); 
For i:=3 to 11 do
begin
k:= 1+sin(x);
j:=k*(i+sin(i*x));
i:=i+2;
end;
writeln(j);
end.

Просьба проверить. По условию еще: надо юзать только цикл со счетчиком.

[Sciv]

Вот так правильно. Сравните со своим кодом и найдите ошибки

j:= 1;
For i:=1 to 11 do
begin
  j:=j*(i+sin(i*x));
  i:=i+2;
end;

или так - тоже правильно

j:= 1+sin(x);
For i:=3 to 11 do
begin
  j:=j*(i+sin(i*x));
  i:=i+2;
end;

а еще вот так:

j:= 1+sin(x);
For i:=3 to 11 do
  if not odd(i) then
    j:=j*(i+sin(i*x));
end;

[Slym]

Сообщение от Sciv

Вот так правильно. Сравните со своим кодом и найдите ошибки

j:= 1;
For i:=1 to 11 do
begin
  j:=j*(i+sin(i*x));
  i:=i+2;
end;

или так - тоже правильно

j:= 1+sin(x);
For i:=3 to 11 do
begin
  j:=j*(i+sin(i*x));
  i:=i+2;
end;

нельзя так! о чем Delphi и предупреждает [Error] Project1.dpr: Assignment to FOR-Loop variable 'i'
не в дельфи возможен не очевидный инкремент на 3, а не как ожидается на 2...

program Project1;
var
  i:integer;
  f,x:real;
begin
  readln(x);
  i:=1;
  f:=1;
  while i<=11 do
  begin
    f:=f*(i+sin(i*x));
    i:=i+2;
  end;
  writeln(f);
end.

[Sciv]

нельзя так! о чем Delphi и предупреждает [Error] Project1.dpr: Assignment to FOR-Loop variable 'i'
не в дельфи возможен не очевидный инкремент на 3, а не как ожидается на 2...

Ах, да, вот про инкремент то я забыл

Но мое последнее решение вроде подходит под все требования компилятора, не?

[Rin]

Т.к. цикл со счетчиком использовать надо, то вот.

  readln(x);
 f:=1;
 for i:=1 to 6 do   f:=f*((i*2-1)+sin((i*2-1)*x));
  writeln(f:6:3);