Разное - [решено] Массивы. Ввод параметра для строк и столбцов с клавиатуры,а заполнение матрицы random

Tonny_Bennet · Конфигурация компьютера

Цитата lenaustkz84:

Нужно сделать так, чтобы параметры для строк и столбцов вводились с клавиатуры, »

Судя по коду это называется размерностью массива.

Судя по синтаксису вы пишете на Pascal или Delphi. И по моему ни там ни там то, что вы пытаетесь сделать, сделать не получится.

P.S. В C# это реализуется точно:

Код:

int [,] mass;
Readln(a);
Readln(b)
 mass = new int[a,b];

lenaustkz84 · Отправлено: **18:12, 17-01-2012** | #3

Цитата Tonny_Bennet:

Судя по синтаксису вы пишете на Pascal или Delphi. »

Да, Tonny_Bennet, это Pascal.

Еще мне не совсем понятно, что Вы хотели показать этим кодом.
Объясните, пожалуйста.

ferget · Отправлено: **18:19, 17-01-2012** | #4

здесь ошибка

Код:

matr[i,j]=random(15);

надо

Код:

matr[i,j]:=random(15);

и пишите

Код:

var a : integer;
b : integer;

lenaustkz84 · Отправлено: **19:40, 17-01-2012** | #5

ferget, эту ошибку

Цитата ferget:

matr[i,j]:=random(15); »

я сделала здесь на форуме. В программе проверила - без ошибки.

ferget · Отправлено: **20:15, 17-01-2012** | #6

Код:

type Matrix = array of array of integer;

function CreateMatrix(m,n: integer): Matrix;
begin
  SetLength(Result,m);
  for var i:=0 to m-1 do
    SetLength(Result[i],n);
end;

procedure FillMatrByRandom(matr: Matrix);
begin
  for var i:=0 to matr.Length-1 do
  for var j:=0 to matr[0].Length-1 do
    matr[i][j] := Random(100);  
end;

var matr: Matrix;

begin
  var a :integer;
  var b :integer;
  
  writeln('Введите параметр для строк: ');
            readln(a);
 
            writeln('Введите параметр для столбцов: ');
            readln(b);
  matr := CreateMatrix(a,b);
  
  FillMatrByRandom(matr);
  end.

lenaustkz84 · Отправлено: **22:03, 17-01-2012** | #7

ferget, здорово!
Еще бы теперь в коде разобраться

Drongo · Конфигурация компьютера

lenaustkz84, Вы же учитесь, значит должны разбираться, иначе глупо учить программирование.

lenaustkz84 · Отправлено: **06:21, 18-01-2012** | #9

Цитата Drongo:

Вы же учитесь, значит должны разбираться, иначе глупо учить программирование. »

Drongo, да я учусь, но учусь недавно. Есть в коде ferget то, что я вижу в первый раз. Все когда-то начинали. И никто не обязан быть семи пядей во лбу.

lenaustkz84 · Отправлено: **06:38, 18-01-2012** | #10

Вот я сделала. Правда не так виртуозно, как у ferget

Но работает

Как бы теперь сделать, чтобы матрица заполнялась не только положительными,
но и отрицательными числами?

Что нужно изменить?

Код:

program zadanie_30;

uses crt;


const a = 10; {dlya zadaniya strok matricij}
      b = 10; {dlya zadaniya stolbcov matricij}

type  mass = array [1..a, 1..b] of integer;

var   matr : mass; {dlya obsheij matricij}
      a1,b1  : integer; {dlya opredeleniya parametrov matricij}

{*********************************************************************}

procedure vvod_matricij; {procedyra dlya vivoda matricij na ekran}

var i,j:integer;

begin
   writeln('Vvedite a: ');
   readln(a1);

   writeln('Vvedite b: ');
   readln(b1);

   randomize;
   for i:=1 to a do
   begin
      for j:=1 to b do
         begin
            matr[i,j]:=random(10);
         end;
   end;

end;

{*********************************************************************}

procedure matrica_na_ekrane;

   var i,j : integer;

      begin
         for i:=1 to a1 do
            begin
               for j:=1 to b1 do
               begin
                  write(matr[i,j]:5);
               end;
               writeln;writeln;
            end;
      end;
{*********************************************************************}

BEGIN
   clrscr;

   vvod_matricij;
   matrica_na_ekrane;

   readln;
END.