Решаем задачи Абрамян на Паскале. Param18

Param18. Описать процедуру Chessboard( $M$ , $N$ , $A$ ), формирующую по целым положительным числам $M$ и $N$ матрицу $A$ размера $M \times N$ , которая содержит числа $0$ и $1$ , расположенные в «шахматном» порядке, причем $A_{1,1}=0$ . Двумерный целочисленный массив $A$ является выходным параметром. С помощью этой процедуры по данным целым числам $M$ и $N$ сформировать матрицу $A$ размера $M \times N$ .

Решение:

program Param18;
type
 Matrix = array[1..10,1..10] of integer;
var
 M,N:integer;
 A:Matrix;

Procedure Chessboard(M:integer; N:integer; var A:Matrix);
var
 j,j2:integer;
begin
 for j:=1 to N do
  begin
   if j=1 then A[j,1]:=0
   else A[j,1]:=abs(A[j-1,1]-1);

   for j2:=2 to M do
    A[j,j2]:=abs(A[j,j2-1]-1);
  end;
end;

Procedure InputMatrix(B:Matrix; M,N:integer);
var j,j2:integer;
begin
 Writeln('---');
 for j:=1 to N do
  begin
   for j2:=1 to M do
    Write (B[J2,J],' ');
   Writeln;
  end;
 Writeln('---');
end;

begin
 Write('M: ');
 Readln(M);
 Write('N: ');
 Readln(N);
 Chessboard(M,N,A);
 Inputmatrix(A,M,N);
end.

program Param18;

type

Matrix = array[1..10,1..10] of integer;

var

M,N:integer;

A:Matrix;

Procedure Chessboard(M:integer; N:integer; var A:Matrix);

var

j,j2:integer;

begin

for j:=1 to N do

begin

if j=1 then A[j,1]:=0

else A[j,1]:=abs(A[j-1,1]-1);

for j2:=2 to M do

A[j,j2]:=abs(A[j,j2-1]-1);

end;

Procedure InputMatrix(B:Matrix; M,N:integer);

var j,j2:integer;

begin

Writeln('---');

for j:=1 to N do

begin

for j2:=1 to M do

Write (B[J2,J],' ');

Writeln;

end;

Writeln('---');

end;

begin

Write('M: ');

Readln(M);

Write('N: ');

Readln(N);

Chessboard(M,N,A);

Inputmatrix(A,M,N);

end.

Другие задачи из раздела Param можно посмотреть здесь.

Комментарии 2

program Param18;//pabc.net

procedure Chessboard(var a: array[,] of byte; m, n: integer);
begin
  SetLength(a, m, n);
  for var i := 0 to m - 1 do
    for var j := 0 to n - 1 do
      a[i, j] := Ord((i + j).IsOdd)
end;

begin
  var m := 8;
  var n := 8;
  var a: array[,] of byte;
  Chessboard(a, m, n);
  a.Println;
end.

program Param18;//pabc.net

procedure Chessboard(var a: array[,] of byte; m, n: integer);

SetLength(a, m, n);

for var i := 0 to m - 1 do

for var j := 0 to n - 1 do

a[i, j] := Ord((i + j).IsOdd)

var m := 8;

var n := 8;

var a: array[,] of byte;

Chessboard(a, m, n);

a.Println;

Ответить

Bronislav

25.10.2018 в 04:42

Mожно воспользоваться встроенной функцией и не писать свой «велосипед»

program Param18;//pabc.net begin var m := 5; var n := 6; var a := MatrGen(m, n, (i, j)-> Ord((i + j).isOdd)); a.Println; end.

1
2
3
4
5
6
7
8

program Param18;//pabc.net

begin
  var m := 5;
  var n := 6;
  var a := MatrGen(m, n, (i, j)-> Ord((i + j).isOdd));
  a.Println;
end.

Ответить

Решаем задачи Абрамян на Паскале. Param18

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ