Форум АНТИЧАТ - Студентам с лабораторными сюда

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

30.11.2009, 22:44

Syntaxys

Познающий

Регистрация: 02.09.2007

Сообщений: 67

Провел на форуме:
521298

Репутация: 20

>>serhio<<

Если я правильно понял задание, то так:

Код:

Program Neprogram;
type A=array [0..666,0..666] of real;
        B=array [0..666,0..666] of real;

//   Процедура ввода значений в массивы //

Procedure vvod(Var x:A;Var x1:B);
          Var n,m,k,l,kolvo:integer;
              begin

//  Определяем кол-во эл-ов массива 1. (строк и столбцов)  //

                kolvo:=0;
                   repeat
                         write('Vvedite kolvo elementov massiva [1..x,1..x]:');
                         readln(kolvo);
                   until kolvo>0;

//  Заполняем массив  1 //

                   for n:=1 to kolvo do
                      for m:=1 to kolvo do
                          begin
                               x[n,m]:=trunc((-51-50)*random+50);
                          end;


//  Выводим на экран массив 1 //

                   writeln('Poluchivshaiasa matrica: ');
                   writeln;
                   for n:=1 to kolvo do
                       begin
                          writeln(' ');
                             for m:=1 to kolvo do
                                  begin
                                       write(x[n,m]);
                                        write(' ');
                                  end;
                       end;
                    writeln;
                    writeln;

//  Определяем кол-во эл-ов массива 2. (строк и столбцов) //

                    kolvo:=0;
                     repeat
                         write('Vvedite kolvo elementov massiva [1..x,1..x]:');
                         readln(kolvo);
                   until kolvo>0;

//  Заполняем массив  2  //

                   for k:=1 to kolvo do
                      for l:=1 to kolvo do
                          begin
                               x[k,l]:=trunc((-51-50)*random+50);
                          end;

//  Выводим на экран массив 2 //

                   writeln('Poluchivshaiasa matrica: ');
                   writeln;
                   for k:=1 to kolvo do
                       begin
                          writeln(' ');
                             for l:=1 to kolvo do
                                  begin
                                       write(x[k,l]);
                                        write(' ');
                                  end;
                       end;
                end;


Var x:A;
    x1:B;
    n,m:integer;
Begin
   vvod(x,x1);
   readln;
end.

Результат работы:

Код:

Vvedite kolvo elementov massiva [1..x,1..x]:4
Poluchivshaiasa matrica: 

 
10 -28 23 -50  
-9 -47 -26 -19  
39 -16 -45 17  
-7 -29 35 13 

Vvedite kolvo elementov massiva [1..x,1..x]:4
Poluchivshaiasa matrica: 

 
3 23 -45 -39  
-28 -8 -11 -17  
49 9 -44 28  
34 -46 -19 -50

Последний раз редактировалось Syntaxys; 30.11.2009 в 23:04..