Створити нову таблицю у середовищі СУБД MS Access можна Виберіть одну або декілька відповідей: за до Звіту у режимі Конструктор за до Автотаблиці шляхом уведення даних
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
procedure MyProc; begin var n:=ReadInteger('Введите порядок матрицы:'); Writeln('Введите построчно элементы матрицы'); var a:=ReadMatrInteger(n,n); Writeln(4*a.ColCount*'-'); Write('Строки, содержащие только нули: '); for var i:=0 to n-1 do if a.Row(i).All(t->t=0) then Print(i+1); Writeln end;
begin Loop 2 do MyProc end.
Пример Введите порядок матрицы: 3 Введите построчно элементы матрицы 1 0 0 0 0 1 0 0 0
Строки, содержащие только нули: 3 Введите порядок матрицы: 2 Введите построчно элементы матрицы 0 0 0 0
На бумаге сорри не получится, но постараюсь досконально объяснить:
1) 379 в 10 системе счисления сначала переводим в 2 систему счисления: мы число 379 делим на 2 до того момента, когда выражение будет равно 0.
379 : 2 = 189 остаток 1
189 : 2 = 94 остаток 1
94 : 2 = 47 остаток 0
47 : 2 = 23 остаток 1
23 : 2 = 11 остаток 1
11 : 2 = 5 остаток 1
5 : 2 = 2 остаток 1
2 : 2 = 1 остаток 0
1 : 2 = 0 остаток 1
Теперь, мы обращаем наше внимание на остаток, оно и является ответом, только есть нюанс, мы должны писать числа с конца.
Получаем, что 379 в 10 сист.сч. = 101111011 в 2 системе счисления
Аналогично и с 8 системой счисления :
379 : 8 = 47 остаток 3
47 : 8 = 5 остаток 7
5 : 8 = 0 остаток 5
379 в 10 системе счисления = 573 в 8 системе счисления
// Внимание! Если программа не работает, обновите версию!
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
Пример
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
Строки, содержащие только нули: 1 2