Pascal/Turbo Pascal - Alguien podria corregir esto?????????

   
Vista:

Alguien podria corregir esto?????????

Publicado por Ariadna (4 intervenciones) el 20/12/2009 16:55:01
Hola me gustaria que alguien mirase esto y me dijera si es correcto o no, os lo agradeceria:


FUNCTION equitativo (n:Tnumero):boolean;
VAR
i, j, contador1, contador2:integer;
salida:boolean;

BEGIN
contador1 := 0;
contador2 := 0;
salida := FALSE;
FOR i := 1 TO (FIN-1) DO BEGIN

IF ((n[i] >= 0) AND (n[i+1] >= 0)) OR ((n[i]<0) AND (n[i+1]<0)) THEN {las parejas de pos-pos y neg-neg}
contador1 := contador1 + 1;

IF ((n[i] >= 0) AND (n[i+1] <0)) OR ((n[i]<0) AND (n[i+1]>=0)) THEN {para las parerjas de pos-neg y neg-pos}
contador2 := contador2 + 1;

END;
IF (contador1 = contador2) THEN BEGIN
salida := TRUE;
writeln ('El Array es equitativo.');
END
ELSE
writeln ('El Array no es equitativo.');
END;
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:Alguien podria corregir esto?????????

Publicado por Alexis (44 intervenciones) el 22/12/2009 05:20:11
¿Pero te da algún error? ¿Por qué no lo montas en un compilador y lo pruebas tu misma pues?
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