Не совсем понимаю вопроса. div - это целое значения после деления одного числа на другое mod - это остаток от деления одного числа на другое т.е. например a:=7 div 2; a=3 b:=7 mod 2; b=1 Примеры использования div и mod могут быть разные. Например их можно использовать для деления числа на отдельные цифры. Так остаток от деления на 10 (a mod 10) даст нам последнюю цифру. А если для трёхзначного числа зададим (a div 100) то найдём его первую цифру. Так же для нахождения средней цифры в трёхзначном числе можно написать как ((a mod 100)div 10) так и ((a div 10)mod 10). Так же с можно находить количество цифр в числе, и программа будет выглядеть так: var i:byte; a,k:integer; a:=4873; k:=0; while a>0 do begin k:=k+1; a:=a mod 10; end; writeln(k); end. Знаем что такое двоичная система? Так вот с и mod можно написать программу перевода числа в двоичную систему, или просто подсчитать количество нулей и единиц в двоичной записи числа. Подсчёт единиц и нулей выглядит так: var a,b,c:integer; a:=34;b:=0;c:=0; while a>0 do begin if a mod 2=0 then b:=b+1 else c:=c+1; a:=a mod 10; end; writeln('количество нулей=',b); writeln('количество единиц=',c); end. Вообще много чего можно придумать. Узнать чётное ли число(mod), узнать количество чётных и нечётных цифр в числе(mod), узнать сколько раз число a делиться на число b(mod и div). Так div и mod можно использовать где угодно и как угодно, и всё зависит от фантазии человека который пишет программу. Единственное что надо помнить, что mod и real выполняются для чисел integer, и если мы попытаемся исполнить операции для real (например 3,4 или 6,7) то наткнёмся на ошибку. Ну а так же, чисто из математики, мы не можем делить на ноль, следственно (a div 0) тоже операция не выполнима так же как и (a mod 0) .
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsByRow; // последовательность не хранится в памяти Writeln('Искомая разность равна ',s.Max-s.Average:0:5) end.
div - это целое значения после деления одного числа на другое
mod - это остаток от деления одного числа на другое
т.е. например
a:=7 div 2;
a=3
b:=7 mod 2;
b=1
Примеры использования div и mod могут быть разные. Например их можно использовать для деления числа на отдельные цифры. Так остаток от деления на 10 (a mod 10) даст нам последнюю цифру. А если для трёхзначного числа зададим (a div 100) то найдём его первую цифру. Так же для нахождения средней цифры в трёхзначном числе можно написать как ((a mod 100)div 10) так и ((a div 10)mod 10).
Так же с можно находить количество цифр в числе, и программа будет выглядеть так:
var i:byte; a,k:integer;
a:=4873; k:=0;
while a>0 do begin
k:=k+1;
a:=a mod 10;
end;
writeln(k);
end.
Знаем что такое двоичная система? Так вот с и mod можно написать программу перевода числа в двоичную систему, или просто подсчитать количество нулей и единиц в двоичной записи числа. Подсчёт единиц и нулей выглядит так:
var a,b,c:integer;
a:=34;b:=0;c:=0;
while a>0 do begin
if a mod 2=0 then b:=b+1 else c:=c+1;
a:=a mod 10;
end;
writeln('количество нулей=',b);
writeln('количество единиц=',c);
end.
Вообще много чего можно придумать. Узнать чётное ли число(mod), узнать количество чётных и нечётных цифр в числе(mod), узнать сколько раз число a делиться на число b(mod и div).
Так div и mod можно использовать где угодно и как угодно, и всё зависит от фантазии человека который пишет программу. Единственное что надо помнить, что mod и real выполняются для чисел integer, и если мы попытаемся исполнить операции для real (например 3,4 или 6,7) то наткнёмся на ошибку. Ну а так же, чисто из математики, мы не можем делить на ноль, следственно (a div 0) тоже операция не выполнима так же как и (a mod 0) .
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow; // последовательность не хранится в памяти
Writeln('Искомая разность равна ',s.Max-s.Average:0:5)
end.
Пример
Количество строк/столбцов в матрице: 7
*** Исходная матрица ***
-44 -99 13 98 -98 74 -40
-23 65 -41 -39 -56 -5 -7
77 -98 37 74 -60 96 -12
31 66 -99 9 46 -57 78
-25 -79 -48 -18 69 4 60
62 -62 -45 -99 57 -17 -45
89 -96 -16 33 -1 76 -98
Искомая разность равна 102.34694