Question

Помогите пожалуйста!!!!1 Очень нужна помощь! Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры. Пример: Введите числитель и знаменатель дроби: 25 15 После сокращения: 5/3 Язык: Паскаль Решить нужно Процедурой (без Функции)!

Answer 1

Ответ:

var

 x,y,nod:integer;

procedure calcNod(a:integer; b:integer);

begin

 while (a > 0) and (b > 0)  do begin

   if a >= b then a:=a - b

   else b:=b - a

 end;

 nod := a + b;

end;

begin

 writeln('Введите числитель и знаменатель дроби: '); readln(x,y);

 calcNod(x, y);

 x:=x div nod;

 y:=y div nod;

 if y = 1 then write('После сокращения: ',x)

 else write('После сокращения: ',x,'/',y);

end.

Answer 2

Конечно, вот пример процедуры на языке Pascal, которая сокращает дробь:

pascalCopy code
program SimplifyFraction;

procedure Simplify(var numerator, denominator: integer);
var
  gcd, temp, num, den: integer;
begin
  num := numerator;
  den := denominator;
  
  // Находим наибольший общий делитель числителя и знаменателя
  while den <> 0 do
  begin
    temp := den;
    den := num mod den;
    num := temp;
  end;
  
  // Делим числитель и знаменатель на наибольший общий делитель
  gcd := num;
  numerator := numerator div gcd;
  denominator := denominator div gcd;
end;

var
  num, den: integer;
begin
  // Ввод числителя и знаменателя
  write('Введите числитель: ');
  readln(num);
  write('Введите знаменатель: ');
  readln(den);
  
  // Вызываем процедуру для сокращения дроби
  Simplify(num, den);
  
  // Вывод результата
  writeln('После сокращения: ', num, '/', den);
end.

Эта программа сначала находит наибольший общий делитель числителя и знаменателя с помощью алгоритма Евклида, а затем делим оба числа на этот наибольший общий делитель, чтобы сократить дробь. Результат выводится на экран.