Как найти мод в паскале

Так как в воскресенье на сайте открывается новая рубрика — решение задач,  мы с вами должны по-быстрому изучить основную часть математических операций, функций и процедур.

Давайте разберемся, что такое функция и процедура. Это подпрограмма — часть программы, выполняющая определенный алгоритм и допускающая обращение к ней из различных частей общей программы. В чем же разница между процедурой и функцией?

Процедуры — мини-программы.

Процедуры используются в случаях, когда в подпрограмме необходимо получить несколько результатов. Из картинки, расположенной ниже вы видите, как работает процедура. Входных данных может не быть вовсе, а может быть сто.

Например, программист хочет в своем суперкоде между блоками выходящих значений прописывать 20 амперсандов. Чтобы облегчить себе задачу, он напишет простую подпрограмму.

program superpuper;
var очень много буковок; 
procedure ampersand; 
begin 
write('&&&&&&&&&&&&&&&&&&&&'); 
end;
begin 
суперсложный код;
ampersand; 
суперсложный код;
ampersand; 
суперсложный код; 
ampersand; 
суперсложный код; 
ampersand; 
end.

Функции в Паскале — мега переменные.

Функции отличается от процедуры тем, что после выполнения функции на ее месте в коде ставится одно число, буква, строка и т.д. Набор встроенных функций в языке Паскаль достаточно широк. Например, для того, чтобы подсчитать квадрат числа можно воспользоваться стандартной функцией sqr(x). Как вы, наверное, уже поняли sqr(x) требует лишь один фактический параметр — число.

Пример: a:=sqr(4).

Обратите внимание! Функции необходимо присваивать! Просто написав их в тексте программы, как процедуры, вы ничего не добьетесь!

Структура функции представлена на картинке ниже.

Если в программу необходимо включить новую уникальную функцию, ее надо описать также, как процедуру. Более подробно о том, как делать собственные процедуры и функции, мы поговорим через 10 уроков. Ниже вы видите таблицу основных стандартных функций и процедур в Паскаль.

Иногда нам требуется найти частное либо же остаток от деления. В такие моменты на помощь нам приходят такие операции, как div и mod. Заметим, что эти операции выполняются только над целыми числами.

Div

Для того, чтобы найти частное от деления, мы используем операцию div.

   Примеры:

• 25 div 20 = 1;
• 20 div 25 = 0;
• 39 div 5 = 7;
• 158 div 3 = 52.

Mod

Для того, чтобы найти остаток от деления, мы используем операцию mod.

    Примеры:

• 25 mod 20 = 5;
• 20 mod 25 = 0;
• 39 mod 5 = 4;
• 158 mod 3 = 2.

Чтобы окончательно понять, с чем мы имеем дело, решим следующую задачу:

Задача 1. Найти сумму цифр двухзначного числа.

Так как эта задача очень простая, мы с вами обойдемся блок-схемой и программой.

program Sumoftwo;
var Number, Num1, Num2, Sum: integer;
begin
write('Введите двухзначное число: ');
read(Number);  { Возьмем число 25 }
Num1 := Number div 10; { 25 div 10 = 2 }
Num2 := Number mod 10; { 25 mod 10 = 5 }
Sum := Num1 + Num2; { 2 + 5 = 7 }
write('Сумма двух чисел -- ', Sum);
end.

Задача 2. Найти сумму цифр трехзначного числа.

Чуть усложненная версия предыдущей задачи. Самая большая сложность — вторая цифра.

program Sumoftree;
var Number, Sum: integer;
begin
write('Введите трехзначное число: ');
read(Number);  { Возьмем число 255 }
Sum := Number div 100 + Number mod 10 + Number div 10 mod 10; { 255 div 100 + 255 mod 10 + 255 div 10 mod 10 = 12 }
write('Сумма трёх чисел -- ', Sum);
end.

Вот и всё. На следующем уроке мы с вами начнём изучать особенности PascalABC.Net.

Помимо операций умножения и сложения, над целочисленными переменными производятся операции Div (операция целочисленного деления), Mod (вычисление остатка от целочисленного деления), операция вычитания «-».

program number7;
uses crt;
var A,B,C: integer;
begin
clrscr;
A:=17;
B:=3;
C:=A div B;
writeln ('17 div 3 = ',C);
C:=A mod B;
writeln ('17 mod 3 = ',C);
C:=A-B;
writeln ('17-3 =',C);
readln
end.

В строке №8 используется операция Div. Это операция деления нацело, т. е. в результате получится целое число без остатка. Если 17 разделить на 3, то получится 5,66666… Здесь – целое число 5, оно и будет результатом операции div.
Строка №10. Операция Mod вычисляет остаток от целочисленного деления. Если мы разделим 17 на 3, то получится 5 – целое число и 2 – остаток. Таким образом, результатом операции Mod будет число 2
Теперь запишем нашу программу в Паскале и и запустим ее.

Дополнение к материалу.

Правила приоритета при выполнении операций в Паскале.

• Сначала выполняются действия над переменными, которые стоят в скобках.
• Затем вычисляются функции.
• Затем умножение и деление.
• Затем сложение и вычитание.

Операции, которые имеют одинаковый приоритет (сложение и вычитание, деление и умножение) выполняются слева направо, т.е. в порядке очереди.

│




Deutsch (de) │
English (en) │




français (fr) │

Back to Reserved words.

Mod (modulus) divides two numbers and returns only the remainder.
For instance, the expression “a:= 13 mod 4;” would evaluate to 1 (a=1), while “b := 12 mod 4;” would evaluate to 0 (b=0).

From the language reference:

“The sign of the result of a Mod operator is the same as the sign of the left side operand of the Mod operator. In fact, the Mod operator is equivalent to the following operation :”

 I mod J = I - (I div J) * J

For example “c:= -13 mod 4;” results in c = -1 and “c:= 10 mod -3;” results in c = 1.

This is also what most other languages like C++ and Java do (see note)

From version 3.1.1 FreePascal also supports the mod operator for floating point values when you include the math unit.

The precision used is the highest precision available for the platform.
for instance, the expression “a:= 12.9 mod 2.2;” would evaluate to 1.9. This is equivalent to I mod J = I – int(I / J) * J.

The result is the same as the fmod function for the highest precision available for the platform.

In older versions of FPC that support operator overloading you can add this feature yourself. Here’s an example for double precision modulo.

operator mod(const a, b: double) c: double; inline;
begin
  c:= a - b * Int(a / b);
end;

Note regarding Delphi compatibility

Delphi conforms to ISO 7185 Pascal instead of the de facto standard. This ISO standard states:

Evaluation of a term of the form x mod y is an error if y is less than or equal to zero; otherwise there is an integer k such that x mod y satisfies the following relation:

 0 <= x mod y = x - k * y < y.

That means that in Delphi “c:= 10 mod -3;” results in an error and an exception will be thrown at run-time.

const
n = 5;//Размер массива чисел.
a = 1; b = 5;//Диапазон рандомных чисел, например от одного до пяти.
var
Ar:array [1..n] of integer; //Ar – массив чисел.
ctrAr:array [a..b] of integer;// ctrAr – массив-счётчик чисел из массива Ar.
i,j: integer;
maxCtr,index:integer;//Счётчик максимально встречающегося числа и один из его индексов в массиве Ar.
begin

//В этом цикле генерируем случайные числа и выводим их на экран.
for i := 1 to n do begin
Ar[i] := random (b – a) + a;
write(ar[i],’ ‘);
end;
writeln();

//Обнуляем массив-счётчик.
for i := 1 to n do ctrAr[i] := 0;

//Обнуляем переменную для количества повторов самой частой цифры.
maxCtr := 0;

//В этом цикле пройдёмся по массиву чисел – Ar.
for j := 1 to n do
for i := a to b do begin //А в этом пройдёмся по массиву-счётчику ctrAr.
if(Ar[j] = i) then inc(ctrAr[i]);//Если значение ячейки массива равно числу i (напрмер 3), то увеличим на единицу значение ячейки массива-счётчика с этим индексом (ctrAr[3]).
if(ctrAr[i] > maxCtr) then begin
maxCtr := ctrAr[i];//Наёдём максимум в массиве-счётчике ctrAr.
index := j;//И индекс максимум в массиве чисел Ar.
end;
end;

writeln(‘Мода – ‘,Ar[index],’. Повторяется ‘,maxCtr,’ раз. ‘);

end.