Question

Program z4; Type Arr=array[1..255] of integer; Var A,b:arr; M,v,n:byte;Procedure sa(x, y: arr; z:byte; var c:array[1..255] of real); Var i, j, K :byte; begin x[i]:=x[1]; y[j]:=y[1]; for k:=1 to z do begin c[k]:=(X[i]+y[j])/2; x[i]:=x[i+1]; y[j]:=y[j+1]; write (' ',c[k]); end; end;beginrandomize;write('введите N'); read(n); for M:=1 to n do begin A[m]:=random (90)-43; Write (' ',a[m]); End; writeln;for v:=1 to n do begin B[v]:=random (87)-36; Write (' ',b[v]); End; sa (a, b, n);End.что не так, срочно!!!!!!!!!!!!!​составить блок схему

Answer 1

Ответ:

i,n: integer; procedure IN1(var a,b:real;n: integer;var y:real); var p:real; i:integer; ... Пример записи: CONST 63 N=20; TYPE T= ARRAY [ 1.

Answer 2

В коде, который вы предоставили, есть несколько ошибок:

1. В процедуре sa вам необходимо объявить переменные i, j и k и инициализировать их значениями перед их использованием в цикле. Также, для цикла for k:=1 to z следует использовать z как верхнюю границу, а не 1.

2. В вызове процедуры sa в конце программы не передается переменная для хранения результата. Вы объявили массив c, но не передали его в процедуру.

3. В процедуре sa вы используете переменные i и j, но не инициализируете их значениями. Вам нужно итерироваться по массивам x и y, чтобы вычислить значения c[k], но в вашем коде это не выполняется.

4. В вашем вызове процедуры sa вы передаете только два массива a и b, но ожидаете, что будет передано третье значение n. Вы должны передавать все три параметра.

5. Вы должны объявить переменную k перед использованием ее в цикле.

6. После вызова sa(a, b, n); вам нужно указать переменную для хранения результата, либо изменить процедуру sa, чтобы она возвращала результат.

Вот исправленный код:

pascalCopy code
Program z4;
Type
  Arr = array[1..255] of integer;
Var
  A, b: arr;
  M, v, n: byte;

Procedure sa(x, y: arr; z: byte; var c: array[1..255] of real);
Var
  i, j, k: byte;
begin
  i := 1;
  j := 1;
  for k := 1 to z do
  begin
    c[k] := (x[i] + y[j]) / 2;
    x[i] := x[i + 1];
    y[j] := y[j + 1];
    write(' ', c[k]);
  end;
end;

begin
  randomize;
  write('Введите N: ');
  read(n);
  for M := 1 to n do
  begin
    A[M] := random(90) - 43;
    Write(' ', A[M]);
  end;
  writeln;
  for v := 1 to n do
  begin
    b[v] := random(87) - 36;
    Write(' ', b[v]);
  end;
  writeln;
  // Создайте массив для хранения результата
  var result: array[1..255] of real;
  sa(A, b, n, result);
end.

Это исправленный код, который должен работать корректно. Теперь в нем объявлены и инициализированы все необходимые переменные и массивы.