Question

R=1+sin0,1+sin0,2+sin0,3+.....+sin10 Вычислить на паскале

Answer 1

Program calc;
var
    r, i: real;
begin
    r := 1;
    i := 0.1;
    while i <= 10 do
    begin
        r := r + Sin(i);
        i := i + 0.1;
    end;
    writeln('R=', r);
end.

Answer 2

To compute the value of the expression R = 1 + sin(0.1) + sin(0.2) + sin(0.3) + ... + sin(10) using Pascal, you can write a program to iterate over the range of values and calculate the sum. Here's an example Pascal code to accomplish this:

pascalCopy code
program CalculateR;
uses math;

var
  i: Integer;
  sum: Double;

begin
  sum := 0.0;

  for i := 1 to 100 do
  begin
    sum := sum + sin(i * 0.1);
  end;

  sum := sum + 1.0;

  writeln('The value of R is: ', sum);
end.

In this program, we initialize the variable sum to 0.0. Then, we use a for loop to iterate from 1 to 100 (corresponding to the values 0.1, 0.2, 0.3, ..., 10) and add the sine of each value to the sum. Finally, we add 1.0 to account for the initial term of 1.0 in the expression. The resulting value of sum is printed as the value of R.

Please note that this code assumes you have a Pascal compiler and runtime environment set up to execute the program.