Question

Помогите PASCAL ОЧЕНЬ СРОЧНО S=sinx+sin2x+sin3x+...+sin7x

Answer 1

Задачка на циклы. 

var
x,i:integer;
s:real;
begin
   write('vvedite x: ');
   readln(x);
   for i:=1 to 7 do s:=s+sin(i*x);
   writeln('s=', s);
end.

что тут сложного?

Answer 2

Конечно! Чтобы вычислить значение выражения S = sin(x) + sin(2x) + sin(3x) + ... + sin(7x) в Pascal, можно использовать цикл для суммирования всех слагаемых. Вот пример кода:

pascalCopy code
program SinSum;

uses
  Math;

var
  x, S: Double;
  i: Integer;

begin
  // Введите значение x (в радианах), для которого нужно вычислить сумму
  Write('Введите значение x (в радианах): ');
  ReadLn(x);

  S := 0;
  for i := 1 to 7 do
    S := S + Sin(i * x);

  // Вывод результата
  WriteLn('S = ', S);
end.

Этот код позволяет пользователю ввести значение x (в радианах) и затем вычисляет сумму S для всех слагаемых sin(x), sin(2x), sin(3x) и т.д. до sin(7x).