Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Составить процедуру, которая в данной матрице переставляет первую строку с последней вторую с предпоследней и т.д.

Просмотров: 883
Объяснение: -

РЕШЕНИЕ:

Program PascalGuru; var a:array[1..100,1..100]of integer; i,j,n,p:integer; procedure exchange(var a,b:integer); var c:integer; begin c:=a; a:=b; b:=c; end; Procedure Exchange_Line (M1,M2:integer); var j:integer; begin for j:=1 to n do exchange (a[M1,j],a[M2,j]); end; begin write ('Vvedite RAZMER matricy A:'); readln(n); writeln ('Vvedite matricy A:'); for i:=1 to n do for j:=1 to n do begin write ('A[',i,',',j,']='); readln (a[i,j]); end; writeln ('Vot vvedenaia matrica A:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; writeln; writeln; {*********************************************} p:=n div 2; for i:=1 to p do Exchange_Line(i,(n+1)-i); {*********************************************} writeln ('Vot matrica A posle obmena:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; readln; end.

нажми на эту область и скопируй решение


	© 2008 - 2017 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.