Question

Скажите пожалуйста, где тут ошибка? Program s; const l=20; var i,j,x,n,m,k:integer; s:real; b:array [1..20] of real; a:array [1..10,1..100] of integer; begin write('Введите n<=10 = '); readln(n); write('Введите m<=100 = '); readln(m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=-50+random(100); end; end; for x:=1 to l do begin s := 0; for i:=1 to n do for j:=1 to m do s := s +(sqr(sin(a[i,j]))); b[k]:=(ln(s)+s)/x[k]+1; writeln('b[k] = ',b[k]:0:3); end; end.

Answer 1

Здесь две синтаксических ошибки.

1) Имя программы s совпадает с именем переменной s, объявленной тремя строками ниже.

2) х объявлена как простая переменная, но в четвертой строке снизу к ней обращаются, как к массиву: x[k]

Прочие ошибки (логические) в программе можно найти лишь зная задачу, которая решается.

Answer 2

В представленном коде обнаруживается несколько ошибок:

1. Переменная k не объявлена и не инициализирована перед использованием в массиве b[k]. Вероятно, вместо k должна использоваться переменная x. Поэтому замените b[k] на b[x].

2. Ошибка с использованием символа "<". Вероятно, в коде вы хотели использовать символ "<", но его нужно экранировать в HTML-коде. Замените < на < в следующих строках:

   • write('Введите n<=10 = ');
   • write('Введите m<=100 = ');

   После изменений строки должны выглядеть так:

   • write('Введите n<=10 = ');
   • write('Введите m<=100 = ');

3. Ошибка в вычислении значения для массива b. Вероятно, вместо x[k] должно быть x. Поэтому замените x[k] на x.

   Замените строку:

   plaintextCopy code
   b[k]:=(ln(s)+s)/x[k]+1;
   

   на:

   plaintextCopy code
   b[x]:=(ln(s)+s)/x+1;
   

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

plaintextCopy code
Program s;

const
  l = 20;

var
  i, j, x, n, m: integer;
  s: real;
  b: array [1..20] of real;
  a: array [1..10, 1..100] of integer;

begin
  write('Введите n<=10 = ');
  readln(n);
  write('Введите m<=100 = ');
  readln(m);

  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -50 + random(100);
    end;
  end;

  for x := 1 to l do
  begin
    s := 0;

    for i := 1 to n do
      for j := 1 to m do
        s := s + (sqr(sin(a[i, j])));

    b[x] := (ln(s) + s) / x + 1;

    writeln('b[x] = ', b[x]:0:3);
  end;
end.

Обратите внимание, что код был исправлен на основе предоставленного вами фрагмента. Несмотря на внесенные исправления, я не могу гарантировать, что исправленный код будет выполнять требуемую функциональность без дополнительного контекста.