• Var m,n:byte;
    A:array[1..100,1..100] of integer;
    Procedure Form;
    Var I,j:byte;
    Begin
    Randomize;
    For I:=1 to n do
    For j:=1 to m do
    A[i,j]:=random(280)-120;
    End;

    Procedure Viv;
    Var I,j:byte;
    Begin
    For I:=1 to n do
    Begin
    Writeln;
    For j:=1 to m do
    Write(a[i,j]:5); End;
    End;



    Procedure saj;
    Var i,j,k,b:integer;
    begin
    writeln;
    writeln;

    for b:=1 to n do
    for i:=1 to n do
    for j:=1 to m-1 do
    if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
    for b:=1 to n do
    for i:=2 to n do
    for j:=1 to m-1 do
    if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
    for b:=1 to n do
    for i:=3 to n do
    for j:=1 to m-1 do
    if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
    for b:=1 to n do
    for i:=4 to n do
    for j:=1 to m-1 do
    if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
    for b:=1 to n do
    for i:=5 to n do
    for j:=1 to m-1 do
    if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
    for i:=1 to n do begin
    for j:=1 to m do
    Write(a[i,j]:5);
    writeln;
    end;
    end;

    Begin
    Readln(n,m);
    Form; Viv;
    saj;
    Readln
    End.

    Записать в файл исходную и преобразованную матрицы! Как это сделать не могу понять?

Ответы 1

  • //Я просто опишу метод записи матрицыconst n=100;var ar:array of array of integer; ars:array of array of string; i:integer; procedure complection(var ar:array of array of integer;var ars:array of array of string);var i,j:integer;begin;for i:=1 to n do begin;   for j:=1 to n do    begin;     ar[i,j]:=random(9);     str(ar[i,j],ars[i,j]);    end; end;end;procedure burning(ars:array of array of string);var i,j:integer; t:text; begin;  assign(t,'text.txt');  rewrite(t);  for i:=1 to n do   begin;    writeln(t,' ');     for j:=1 to n do      write(t,ars[i,j],' ');   end; end;  begin;randomize;setlength(ar,n+1);setlength(ars,n+1);for i:=1 to n do begin;  setlength(ar[i],n+1);  setlength(ars[i],n+1); end;complection(ar,ars);burning(ars);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years