Pascal/Turbo Pascal - ayuda porfavor

 
Vista:

ayuda porfavor

Publicado por camigoh (1 intervención) el 16/05/2006 05:18:14
Buenas señores, yo no sé NADA de pascal pero necesito pasar un codigo pascal a C, no sé si ustedes sean capaces (no sé que tan complicado sea) les agradeceria mucho si lo hacen. Este codigo de turbo pascal es un programa para pasar de decimales a fracciones


procedure DecimalToFraction (Decimal : extended;
var FractionNumerator : extended;
var FractionDenominator : extended;
AccuracyFactor : extended );
var DecimalSign : extended;
Z : extended;
PreviousDenominator : extended;
ScratchValue : extended;
begin
if Decimal < 0.0 then DecimalSign := 1.0 else DecimalSign := 1.0;
Decimal := Abs (Decimal);
Ö handles exact integers including 0 ×
if Decimal=Int (Decimal) then
begin
FractionNumerator := Decimal*DecimalSign;
FractionDenominator := 1.0;
Exit
end;
if (Decimal < 1.0E 19) then Ö X oe 0 already taken care of ×
begin
FractionNumerator := DecimalSign;
FractionDenominator := 9999999999999999999.0;
Exit
end;
if (Decimal > 1.0E 19) then
begin
FractionNumerator := 9999999999999999999.0*DecimalSign;
FractionDenominator := 1.0;
Exit
end;
Z := Decimal;
PreviousDenominator := 0.0;
FractionDenominator := 1.0;
repeat
Z := 1.0 / ( Z Int ( Z ) );
ScratchValue := FractionDenominator;
FractionDenominator := FractionDenominator*Int(Z)+PreviousDenominator;
PreviousDenominator := ScratchValue;
FractionNumerator := Int(Decimal*FractionDenominator + 0.5)
{ Rounding Function ×
until
(Abs((Decimal (FractionNumerator/FractionDenominator)))
AccuracyFactor)
OR (Z = Int(Z));
FractionNumerator := DecimalSign*FractionNumerator
end; {procedure DecimalToFraction}
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda porfavor

Publicado por Diego Romero (996 intervenciones) el 16/05/2006 07:16:59
Bueno, tienes dos alternativas: aprender Pascal, que mal no te va a venir :P, o bien usar un traductor (busca en Google) y lo que el traductor no entienda o tú no sepas qué hace alguna cosa en Pascal, nos lo preguntas para que lo puedas acomodar a C.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar