Матрицы. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) Нет описания правки |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 1: | Строка 1: | ||
===Заполнение матрицы случайными числами и вывод=== | ===Заполнение матрицы случайными числами и вывод=== | ||
<source lang="Pascal">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. | |||
</source> | |||
===Перемена местами двух строк=== | ===Перемена местами двух строк=== | ||
===Поиск минимумов в строках=== | ===Поиск минимумов в строках=== |
Версия от 00:27, 8 января 2010
Заполнение матрицы случайными числами и вывод
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.