Programa para reducir una fracción dada X/Y
En un libro sobre algoritmos, un problema básico es el siguiente: “escribe un programa para reducir una fracción dada x/y (con números x, y enteros) a sus términos más simples”. Piden que el programa sea hecho en Pascal y en C++. Programa en Pascal: Program ReduceFraction; Function GCD(a, b: integer): integer; begin if b = 0 then Result := a else Result := GCD(b, a mod b); end; Procedure ReduceFraction(var numerator, denominator: integer); var gcd1: integer; begin gcd1 := GCD(numerator, denominator); numerator := numerator div gcd1; denominator := denominator div gcd1; end; var x, y: integer; Begin writeln('Ingrese el numerador (x): '); readln(x); writeln('Ingrese el denominador (y): '); readln(y); ReduceFraction(x, y); writeln('La fraccion reducida es: ', x, '/', y); readln; End. Programa en C++: #include ...