Помогите сделать задание

[Dextel]

Помогите сделать задание


Помогите сделать.Пожалуйста!

 

[ooaoo]

for(int i=1;i<20;i++)
{
s+=sin((i*i)-i);
}

 

[ooaoo]

не нашел как редактировать пост
в форе и=1

 

[Dextel]

А вы не могли бы по подробней объяснить представленное выше.В принципе если опустить все организационные моменты связанные с основными индексами(begin,var,end), то это уравнение не может решать в две строки.

 

[AlexZir]

Алгоритм решения абсолютно верный, просто опущены строки с определением переменных и выводом результатов. К тому же, раз вы не указали язык программирования, был приведен листинг на языке С )

Вместо переменной k в листинге используется переменная i, в цикле последовательно принимающая целые значения из диапазона от 1 до 20.
Значение суммы хранится в переменной s.
+= операция, вычисляющая правую часть и прибавляющая результат к старому значению переменной.

А больше и вычислять-то нечего )

Тот же листинг без описания переменных и вывода результатов на языке Pascal выглядит так:

s:=0;
for i:=1 to 20 do
s:=s+sin(sqr(i)-i);

 

[ooaoo]

сорри, не обратил внимание что раздел по паскалю =)

 

[Dextel]

Спасибо за ответ!

 

[AlexZir]

Извиняюсь, был несколько невнимателен и написал синус суммы вместо синуса разности. Листинг подправил. Полный вариант:

var i:integer;
    s:real;
begin
  s:=0;
  for i:=1 to 20 do
      s:=s+sin(sqr(i)-i);
  writeln('Сумма равна ',s);
  readln
end.