М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
VarvaraErrorFell
VarvaraErrorFell
21.11.2021 20:23 •  Информатика

Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла type

matrix = array of array of integer;

arr = array of integer;

procedure matr2(c: char; var x: matrix; var m, n: integer);

var

i, j: integer;

begin

writeln('Введите количество строк в матрице ' + c + ': ');

readln(m);

writeln('Введите количество столбцов в матрице ' + c + ': ');

readln(n);

SetLength(x, m);

writeln('Матрица ', c, ':');

for i := 0 to m-1 do

begin

SetLength(x[i], n);

for j := 0 to n-1 do

begin

x[i, j] := -99 + random(199);

write(x[i, j]:4)

end;

writeln

end

end;

procedure el(const x: matrix; const m, n: integer; var y: arr);

var

i, j: integer;

begin

for j := 1 to n do y[j] := 0;// Предупреждение здесь!

for i := 1 to m do

for j := 1 to n do

if x[i, j] < 0 then inc(y[j])

end;

procedure poell(var y: arr; const n: integer);

var

j: integer;

begin

writeln('Количество отрицательных элементов по столбцам:');

for j := 1 to n do write(y[j]:4);

writeln;

writeln

end;

var

a, b: matrix;

c, d: arr;

i, j, k, e,m, n :integer;

begin

randomize;

matr2('A', a, i, j);

el(a, i, j, c);

poell(c, j);

matr2('B', b, k, e);

el(b, k, e, d);

poell(d, e);

readln;

end.

Что нужно изменить в программе чтобы она работала правильно?

👇
Ответ:
Mамикс
Mамикс
21.11.2021

Объяснение:

type

   matrix = array of array of integer;

   arr = array of integer;

procedure matr2(c: char; var x: matrix; var m, n: integer);

var

  i, j: integer;

begin

    writeln('Введите количество строк в матрице ' + c + ': ');

    readln(m);

    writeln('Введите количество столбцов в матрице ' + c + ': ');

    readln(n);

    SetLength(x, m);

    writeln('Матрица ', c, ':');

    for i := 0 to m-1 do

    begin

         SetLength(x[i], n);

         for j := 0 to n-1 do

             begin

                  x[i, j] := -99 + random(199);

                  write(x[i, j]:4);

             end;

             writeln;

    end;

    writeln;

end;

procedure el(const x: matrix; const m, n: integer; var y: arr);

var

i, j: integer;

begin

    SetLength(y, n);

    for j := 0 to n-1 do y[j] := 0;

    for i := 0 to m -1  do

       for j := 0 to n - 1 do

           if x[i, j] < 0 then inc(y[j]);

end;

procedure poell(var y: arr; const n: integer);

var

   j: integer;

begin

    writeln('Количество отрицательных элементов по столбцам:');

    for j := 0 to n - 1 do write(y[j]:4);

    writeln;

end;

var

  a, b: matrix;

  c, d: arr;

  m, n: integer;

begin

    randomize;

    matr2('A', a, m, n);

    el(a, m, n, c);

    poell(c, n);

    matr2('B', b, m, n);

    el(b, m, n, d);

    poell(d, n);

    readln();

end.

4,4(83 оценок)
Открыть все ответы
Ответ:
natsia
natsia
21.11.2021

Чаще всего среди доступных групп функций пользователи Экселя обращаются к математическим. С них можно производить различные арифметические и алгебраические действия. Их часто используют при планировании и научных вычислениях. Узнаем, что представляет собой данная группа операторов в целом, и более подробно остановимся на самых популярных из них.

 

Применение математических функций

С математических функций можно проводить различные расчеты. Они будут полезны студентам и школьникам, инженерам, ученым, бухгалтерам, планировщикам. В эту группу входят около 80 операторов. Мы же подробно остановимся на десяти самых популярных из них.

Открыть список математических формул можно несколькими путями. Проще всего запустить Мастер функций, нажав на кнопку «Вставить функцию», которая размещена слева от строки формул. При этом нужно предварительно выделить ячейку, куда будет выводиться результат обработки данных. Этот метод хорош тем, что его можно реализовать, находясь в любой вкладке.

Объяснение:

4,7(54 оценок)
Ответ:
Decabrina6666
Decabrina6666
21.11.2021

Чаще всего среди доступных групп функций пользователи Экселя обращаются к математическим. С них можно производить различные арифметические и алгебраические действия. Их часто используют при планировании и научных вычислениях. Узнаем, что представляет собой данная группа операторов в целом, и более подробно остановимся на самых популярных из них.

 

Применение математических функций

С математических функций можно проводить различные расчеты. Они будут полезны студентам и школьникам, инженерам, ученым, бухгалтерам, планировщикам. В эту группу входят около 80 операторов. Мы же подробно остановимся на десяти самых популярных из них.

Открыть список математических формул можно несколькими путями. Проще всего запустить Мастер функций, нажав на кнопку «Вставить функцию», которая размещена слева от строки формул. При этом нужно предварительно выделить ячейку, куда будет выводиться результат обработки данных. Этот метод хорош тем, что его можно реализовать, находясь в любой вкладке.

Объяснение:

4,7(69 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ