Question

(34 балла) Даны целые числа а и b (а > b). Определить: Результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления; Остаток от деления а на b не используя стандартную операцию вычисления остатка. решите на Pascal ABC

Answer 1

var

 a, b: integer;

 c:real;

begin

read(a,b);

c:=int(a/b);

write('целочисленное деление : ',c,' остаток от деления : ',a-c*b);

end

Answer 2

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

pascalCopy code
program IntegerDivisionAndRemainder;

var
  a, b, resultDiv, remainder: integer;

begin
  // Вводим значения a и b (предполагаем, что а > b)
  writeln('Введите значение a: ');
  readln(a);
  writeln('Введите значение b: ');
  readln(b);
  
  // Инициализируем переменные для хранения результата целочисленного деления и остатка
  resultDiv := 0;
  remainder := a;
  
  // Выполняем цикл, пока остаток больше или равен b
  while remainder >= b do
  begin
    remainder := remainder - b;
    resultDiv := resultDiv + 1;
  end;
  
  // Выводим результаты
  writeln('Результат целочисленного деления a на b: ', resultDiv);
  writeln('Остаток от деления a на b: ', remainder);
end.

В этой программе мы выполняем цикл, уменьшая остаток (переменную remainder) на значение b, пока остаток не станет меньше b. Каждый раз, когда уменьшаем остаток, увеличиваем переменную resultDiv, которая хранит результат целочисленного деления. Когда остаток становится меньше b, это означает, что мы достигли конца деления, и resultDiv содержит результат, а remainder содержит остаток.

Примечание: Важно помнить, что эта реализация предназначена для положительных значений a и b. Обратите внимание, что в реальных приложениях лучше использовать стандартные операции для целочисленного деления и вычисления остатка, так как они более оптимизированы и обрабатывают различные случаи (отрицательные значения, переполнение и т.д.). Этот код предоставлен исключительно в учебных целях для демонстрации алгоритма.