Question

С клавиатуры вводится целое число m и натуральное число n (процедура). Найти m DIV n и m MOD n без использования стандартных операций DIV и MOD (две процедуры). Важно!!!!! Тип real использовать нельзя!!!!! Решать задачу только через тип longint!!!!! Даю 100 баллов за правильное решение!!!!!

Answer 1

Ответ:

var a,b:longint;

procedure v;

begin

read(a,b)

end;

procedure d;

var d:integer;

begin

d:=0;

while a>b do

begin

a:=a-b;

d:=d+1

end;

writeln(d)

end;

procedure m;

begin

while a>b do a:=a-b;

writeln(a)

end;

begin

v;

d;

m

end.

Answer 2

Для нахождения частного (DIV) и остатка (MOD) от деления числа m на число n без использования стандартных операций DIV и MOD и при ограничении на использование только типа longint, вы можете использовать следующие процедуры:

pascalCopy code
program DivisionWithoutDIVandMOD;

var
  m, n: longint;

procedure DivideAndMod(m, n: longint; var quotient, remainder: longint);
var
  tempM, tempN: longint;
begin
  quotient := 0;
  remainder := m;
  tempN := n;
  
  while tempN <= remainder do
  begin
    tempM := 1;
    while (tempN shl tempM) <= remainder do
      tempM := tempM shl 1;
    
    tempM := tempM shr 1;
    
    quotient := quotient or tempM;
    remainder := remainder - (tempN * tempM);
  end;
end;

begin
  writeln('Введите целое число m:');
  readln(m);
  
  writeln('Введите натуральное число n:');
  readln(n);
  
  if n <= 0 then
    writeln('Ошибка: n должно быть натуральным числом.')
  else
  begin
    DivideAndMod(m, n, quotient, remainder);
    writeln('DIV (', m, ' / ', n, ') = ', quotient);
    writeln('MOD (', m, ' / ', n, ') = ', remainder);
  end;
end.

Этот код реализует процедуру DivideAndMod, которая вычисляет частное и остаток от деления числа m на n. Она использует битовые операции сдвига для нахождения частного и остатка.