Создать Блок-схему

@pro_user · Регистрация: 05.12.2013

Author24 — интернет-сервис помощи студентам

Pascal

const
  n = 5;
 
type
  TMatrix = array[1..n,1..n] of Byte;
 
procedure MatrixRandom(var M: TMatrix);
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to n do
    for j := 1 to n do
      M[i,j] := Random(99) + 1;
end;
 
procedure MatrixPrint(const M: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do
      Write(M[i,j]:4);
    WriteLn;
  end;
end;
 
procedure MatrixReverse(var M: TMatrix);
var
  i, j, tmp: Integer;
begin
  for i := 1 to n - 1 do
    for j := 1 to n - i + 1 do begin
      tmp := M[i,j];
      M[i,j] := M[n-i+1,n-j+1];
      M[n-i+1,n-j+1] := tmp;
    end;
end;
 
var
  M: TMatrix;
 
begin
  MatrixRandom(M);
  MatrixPrint(M);
  WriteLn;
  MatrixReverse(M);
  MatrixPrint(M);
  ReadLn;
end.

@helsik · 27.12.2013, 23:10

ссылка на прогу которая стоит блоксхемы на паскаль Создать Блок-схему до человеческого вида доведете сами..

@helsik 12 / 12 / 3 Регистрация: 09.12.2013 Сообщений: 142
	27.12.2013, 23:10	2
	ссылка на прогу которая стоит блоксхемы на паскаль Создать Блок-схему до человеческого вида доведете сами.. 0

Опции темы