1)Заполнить одномерный массив 10-ю вещественными числами, вывести на экран массив в строку и в столбец.
2)Задать матрицу три на три с вещественными значениями, вывести её на экран. Каждый элемент массива увеличить в 2 раза, результат вывести на экран.
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal(10);
Write('В строку: '); a.Println;
Writeln('В столбец:'); a.PrintLines
end.
Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В строку: 7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В столбец:
7.6
-4.4
-7.2
-4.4
2.2
-3.1
9.6
8.9
-7.1
-6.3
----------------------
begin
var a:=ReadMatrReal(3,3); a.Println(7,2); Writeln;
a.Transform(t->2*t); a.Println(7,2)
end.
Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1
7.60 -4.40 -7.20
-4.40 2.20 -3.10
9.60 8.90 -7.10
15.20 -8.80 -14.40
-8.80 4.40 -6.20
19.20 17.80 -14.20
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal(10);
Write('В строку: '); a.Println;
Writeln('В столбец:'); a.PrintLines
end.
Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В строку: 7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В столбец:
7.6
-4.4
-7.2
-4.4
2.2
-3.1
9.6
8.9
-7.1
-6.3
----------------------
begin
var a:=ReadMatrReal(3,3); a.Println(7,2); Writeln;
a.Transform(t->2*t); a.Println(7,2)
end.
Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1
7.60 -4.40 -7.20
-4.40 2.20 -3.10
9.60 8.90 -7.10
15.20 -8.80 -14.40
-8.80 4.40 -6.20
19.20 17.80 -14.20
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад