Question

Что здесь не так? 22 строчка: Форматное выражение Сама программа Program Srednee_W1; Uses Crt; Var n: integer; x,y,h,s,s1,xk:real; Begin ClrScr; x:=0; xk:=3.1; h:=0.1; s:=0.0; n:=0; While x<=xk+h/2 do begin y:=sin(x); writeln(x:3:1,' |', y:5:2); if (y>0.1) and (y<0.6)then begin s:=s+y; n:=n+1 end; x:=x+h end; if n>0 then begin s1:=s/n: Writeln('Среднее арифметическое=', s1) end else Writeln('Таких значений нет n=0'); Readln End.

Answer 1

Ответ:

Рассмотрим строку с ошибкой:

s1:=s/n:

Видно, что в конце стоит двоеточие, а не ;

Это и стало причиной ошибки.

Замените строку на s1:=s/n;

Answer 2

В данной программе нарушена синтаксическая правильность и структура кода. Ниже приведена исправленная версия:

pascalCopy code
Program Srednee_W1;
Uses Crt;
Var
  n: integer;
  x, y, h, s, s1, xk: real;

Begin
  ClrScr;
  x := 0;
  xk := 3.1;
  h := 0.1;
  s := 0.0;
  n := 0;
  
  While x <= xk + h / 2 do
  begin
    y := sin(x);
    writeln(x:3:1,' |', y:5:2);
    
    if (y > 0.1) and (y < 0.6) then
    begin
      s := s + y;
      n := n + 1;
    end;
    
    x := x + h;
  end;
  
  if n > 0 then
  begin
    s1 := s / n;
    Writeln('Среднее арифметическое=', s1);
  end
  else
    Writeln('Таких значений нет n=0');
  
  Readln;
End.

Исправления:

• Добавлена недостающая точка с запятой после объявления переменной xk.
• Заменен символ < на символ < в условии цикла while.
• Добавлено присваивание s1 := s / n для вычисления среднего арифметического.
• Добавлен символ : после s1 в строке вывода среднего арифметического.
• Добавлены необходимые отступы для лучшей читаемости кода.