1.Cоставить программку,которая наполняет квадратную матрицу 9 х 9.1 1 1 1
1.Cоставить программку,которая наполняет квадратную матрицу 9 х 9.
1 1 1 1 ...1
2 2 2 2...2
3 3 3 3...3
...
9 9 9 9...9
2.Составить программку решения поставленной задачки.
В прямоугольной матрице отрицательные числа поменять им обратными.
1 ответ
Besperceva Alina
// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrGen(9,9,(i,j)-gt;i+1); a.Println(2);
end.
Итог
1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3
4 4 4 4 4 4 4 4 4
5 5 5 5 5 5 5 5 5
6 6 6 6 6 6 6 6 6
7 7 7 7 7 7 7 7 7
8 8 8 8 8 8 8 8 8
9 9 9 9 9 9 9 9 9
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Начальная матрица [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Результат [',n,',',m,'] ***');
a.Fill((i,j)-gt;Абс(a[i,j])); a.Println(4)
end.
Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
10 42 3 83 -65 43 65
-52 -40 55 75 -27 53 -47
17 88 93 32 35 41 -76
70 13 6 2 9 -22 -55
----------------------------
*** Результат [4,7] ***
10 42 3 83 65 43 65
52 40 55 75 27 53 47
17 88 93 32 35 41 76
70 13 6 2 9 22 55
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrGen(9,9,(i,j)-gt;i+1); a.Println(2);
end.
Итог
1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3
4 4 4 4 4 4 4 4 4
5 5 5 5 5 5 5 5 5
6 6 6 6 6 6 6 6 6
7 7 7 7 7 7 7 7 7
8 8 8 8 8 8 8 8 8
9 9 9 9 9 9 9 9 9
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Начальная матрица [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Результат [',n,',',m,'] ***');
a.Fill((i,j)-gt;Абс(a[i,j])); a.Println(4)
end.
Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
10 42 3 83 -65 43 65
-52 -40 55 75 -27 53 -47
17 88 93 32 35 41 -76
70 13 6 2 9 -22 -55
----------------------------
*** Результат [4,7] ***
10 42 3 83 65 43 65
52 40 55 75 27 53 47
17 88 93 32 35 41 76
70 13 6 2 9 22 55
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Облако тегов