- Codice: Seleziona tutto
Program semplifica;
Uses crt;
Var n,d:integer;
FUNCTION MCD(a,b:integer):INTEGER;
VAR temp:INTEGER;
BEGIN
IF a<b THEN
BEGIN
temp:=a;
a:=b;
b:=temp;
END;
IF b=0 THEN MCD:=a
ELSE MCD:=MCD(b,a mod b);
END;
procedure semplifica(var x,y:integer);
begin
Var a,b,c:real;
a:=mcd(x,y);
b:=x/a;
c:=y/a;
x:=b; (*è qui il problema*)
y:=c; (*è qui il problema*)
End;
Begin {programma principale}
readln(n,d);
semplifica(n,d);
writeln(n:5:0,'/',d:5:0);
readln;
End.
Come si può fare?