<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>1.</u>
begin
var a:=MatrGen(4,5,(i,j)->i+1);
a.Println(2)
end.
<u>Результат</u>
1 1 1 1 1
2 2 2 2 2
3 3 3 3 3
4 4 4 4 4
<u>2.</u>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.SwapRows(0,a.RowCount-1);
Writeln('*** Результирующий массив ***'); a.Println(4)
end.
<u>Пример</u>
Количество строк в массиве: 6
Количество столбцов в массиве: 5
*** Исходный массив ***
-68 64 -31 2 -73
-24 -17 17 97 57
-71 45 19 70 -78
-5 -81 -49 -94 -5
78 64 -8 -84 33
-30 2 26 -50 -47
--------------------
*** Результирующий массив ***
-30 2 26 -50 -47
-24 -17 17 97 57
-71 45 19 70 -78
-5 -81 -49 -94 -5
78 64 -8 -84 33
-68 64 -31 2 -73
Вариант 2.
подставляем: 2>2(нет,значит ложно - пишем 0)
2>5(нет,ложно - 0)
0V0=0
2<3(истинно - 1)
0----->1 = 1(Истинно)
обратите внимание на таблицы конъюнкции,дизъюнкции и следстия
Чертежник.
В результате одного выполнения содержимого в цикле (без третьей команды) Чертежник сместится на (5-4;-3-2)=(1;-5) Соответственно, в результате трех выполнений он сместится на (3; -15). От начальной точки он окажется в (3+3; 5+(-15))=(6; -10).
Чертежнику нужно оказаться в (12; 8). То есть ему нужно сместиться на (12-6; 8-(-10))=(6; 18).
Так как цикл повторяется три раза, то внутри цикла должна содержаться следующая запись:
(6/3;18/3)=(2;6)
Ответ: (2; 6)
Кузнечик.
2 * (4 - 5 + 3 * (-4 + 2) ) + 4 * (-3 + 8) =
2 * (-1 + 3 * (-2) ) + 4 * 5 =
2 * (-7) + 20 =
-14 + 20 =
6
Ответ: 6.