Delphi заполнение матрицы - 27 Ноября 2012 - Сайт заготовки для Дельфи&Pascal

Главная » 2012 » Ноябрь » 27 » Delphi заполнение матрицы

12:17 Delphi заполнение матрицы
2. Пусть задана матрица размером N строк на M столбцов (N<=100,M<=100). Необходимо заполнить матрицу таким образом, чтобы все элементы пронумерованы слева направо и сверху вниз по порядку, начиная с единицы. program Project2; {$APPTYPE CONSOLE} uses SysUtils; type TArrayInt = array[1..100,1..100] of integer; var a:TArrayInt; n,m:integer; procedure CreateMas(var a:TArrayInt; const n,m:integer); var l,x,y:integer; begin l:=1; for y:=1 to m do for X:=1 to n do begin a[x,y]:=l; l:=l+1; end; end; Procedure Display(a:TArrayInt;n,m:integer); var x,y:integer; begin for y:=1 to m do begin writeln; writeln; for X:=1 to n do begin write(a[x,y]:3); end; end;end; var l:integer; begin l:=3; CreateMas(a,l,l); Display(a,l,l); readln; { TODO -oUser -cConsole Main : Insert code here } end.
1 2 3 4 5 Просмотров: 2551 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки