Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для lenaustkz84

Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


Вот я сделала. Правда не так виртуозно, как у 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.

Последний раз редактировалось lenaustkz84, 18-01-2012 в 07:06.


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