kykysha
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору нужна подсказка. тема лабараторки- подпрограммы- процедуры.так вот. еслиесть масив 4на 5 . и мне нужно вывести его на екран , заменив 1ую строку последним столбцом.вот код.как должна действовать сама процедура замены? program Project3; {$APPTYPE CONSOLE} uses SysUtils; const n=4 ;m=5; type vector=array[1..m] of integer; matrix=array[1..n] of vector ; const ac:matrix= ((1,2,3,4,5), (2,3,4,5,6), (3,4,5,6,7), (4,3,2,1,8)); var a:matrix; i,j,k,l:Byte; procedure zamina(k,l :Byte; var a:matrix ); var b:vector; begin for i:=1 to n do b[k]:=a[i,k] ; for i:=1 to m do a[k,j]:=b[k] ; end; Procedure vivod( var a :matrix) ; begin for i:=1 to n do begin for j:=1 to m do write(a[i,j]) ; writeln; end; end; begin for i:=1 to n do for j:=1 to m do a[i,j] :=ac[i,j] ; vivod(a); zamina(1,5,a) ; writeln; vivod(a); readln { TODO -oUser -cConsole Main : Insert code here } end. |