Матрицы. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) Нет описания правки |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 1: | Строка 1: | ||
===Общая часть=== | |||
Во всех задачах будем считать, что матрица описана следующим образом: | Во всех задачах будем считать, что матрица описана следующим образом: | ||
<source lang="Delphi">const | <source lang="Delphi">const | ||
Строка 6: | Строка 7: | ||
type Matrix = array [1..SzM,1..SzN] of integer; | type Matrix = array [1..SzM,1..SzN] of integer; | ||
</source> | </source> | ||
Кроме того, во всех задачах будем использовать следующие процедуры для заполнения и вывода: | |||
<source lang="Delphi">procedure FillMatrixByRandom(var a: Matrix; m,n: integer); // Заполнение случайными | |||
begin | |||
for var i:=1 to M do | |||
for var j:=1 to N do | |||
a[i,j] := Random(100); | |||
end; | |||
procedure PrintMatrix(const a: Matrix; m,n: integer); // Вывод матрицы | |||
begin | |||
for var i:=1 to M do | |||
begin | |||
for var j:=1 to N do | |||
write(a[i,j]:4); | |||
writeln; | |||
end; | |||
end;</source> | |||
===Заполнение матрицы случайными числами и вывод=== | ===Заполнение матрицы случайными числами и вывод=== |
Версия от 07:05, 18 января 2010
Общая часть
Во всех задачах будем считать, что матрица описана следующим образом:
const
SzM = 10;
SzN = 10;
type Matrix = array [1..SzM,1..SzN] of integer;
Кроме того, во всех задачах будем использовать следующие процедуры для заполнения и вывода:
procedure FillMatrixByRandom(var a: Matrix; m,n: integer); // Заполнение случайными
begin
for var i:=1 to M do
for var j:=1 to N do
a[i,j] := Random(100);
end;
procedure PrintMatrix(const a: Matrix; m,n: integer); // Вывод матрицы
begin
for var i:=1 to M do
begin
for var j:=1 to N do
write(a[i,j]:4);
writeln;
end;
end;
Заполнение матрицы случайными числами и вывод
const
SzM = 10;
SzN = 10;
var a: array [1..SzM,1..SzN] of integer;
begin
var M := 4;
var N := 5;
for var i:=1 to M do // Заполнение
for var j:=1 to N do
a[i,j] := Random(100);
writeln('Элементы матрицы: ');
for var i:=1 to M do // Вывод
begin
for var j:=1 to N do
write(a[i,j]:4);
writeln;
end;
end.