Программирование на Pascal

[gym]

Программирование на Pascal

Добрый день! Нужна помощь того кто в этом разбирается Вы не могли бы помочь с написанием программы. Необходимо разработать программу, в которой пользователь формирует два двумерных массивов размерностью 4*4 и по команде пользователя меняет между массивами строчки и столбцы в заданном пользователем порядке ( например :заменить в массиве А строку 2 на столбец 3 из массива Б и т.п.). Когда учился в техникуме 15 лет назад не помню чтобы такое проходил:tehnari_ru_117:. Поэтому есть загвоздка в данной теме, а в институте не важно что было 15 лет назад надо и точка.:tehnari_ru_020: Спасибо.

 

[Vladimir_S]

Добрый день! Нужна помощь того кто в этом разбирается Вы не могли бы помочь с написанием программы. Необходимо разработать программу, в которой пользователь формирует два двумерных массивов размерностью 4*4 и по команде пользователя меняет между массивами строчки и столбцы в заданном пользователем порядке ( например :заменить в массиве А строку 2 на столбец 3 из массива Б и т.п.). Когда учился в техникуме 15 лет назад не помню чтобы такое проходил:tehnari_ru_117:. Поэтому есть загвоздка в данной теме, а в институте не важно что было 15 лет назад надо и точка.:tehnari_ru_020: Спасибо.

Пожалуйста:

VAR
 A,B:Array[1..4,1..4] of Byte;
 i,j,tA,tB,NA,NB:Byte;
BEGIN
 Randomize;
 For i:=1 to 4 do
  For j:=1 to 4 do
   begin
    A[i,j]:=Random(20);
    B[i,j]:=Random(20);
   end;

 Writeln('Initial array A:                  Initial array B:');
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do write(A[i,j]:4);
   write('                  ');
   For j:=1 to 4 do write(B[i,j]:4);
   writeln;
  end;
 Writeln;

 Write('Element of A to be replaced: Line - 1, Column - 2 ');
 Readln(tA);
 If tA=1 then
  Write('Number of line to be replaced: ')
 else
  Write('Number of column to be replaced: ');
 Readln(NA);

 Write('Element of B for replacement: Line - 1, Column - 2 ');
 Readln(tB);
 If tB=1 then
  Write('Number of line to be inserted into A: ')
 else
  Write('Number of column to be inserted into A: ');
 Readln(NB);

 If (tA=1) and (tB=1) then
  for j:=1 to 4 do A[NA,j]:=B[NB,j] else
 If (tA=1) and (tB=2) then
  for j:=1 to 4 do A[NA,j]:=B[j,NB] else
 If (tA=2) and (tB=1) then
  for j:=1 to 4 do A[j,NA]:=B[NB,j] else
 If (tA=2) and (tB=2) then
  for j:=1 to 4 do A[j,NA]:=B[j,NB];
 Writeln;

 Writeln('Changed array A:                  Initial array B:');
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do write(A[i,j]:4);
   write('                  ');
   For j:=1 to 4 do write(B[i,j]:4);
   writeln;
  end;

 Readln
END.

 

[gym]

Огромнейшее Вам Vladimir_S СПАСИБО!!! Очень помогли! Я только начинаю разбираться что куда. Ещё раз большое спасибо Vladimir_S.

 

[Vladimir_S]

Ещё раз большое спасибо Vladimir_S.

Да ладно, не за что.