ERICLINUX: Ejercicios Pascal (VII) - Factorizar.

25/1/08

Ejercicios Pascal (VII) - Factorizar.

Anteriormente les expliqué como sacar el número máximo con While.
Hoy vamos a realizar un ejercicio para factorizar números.

El código es:
program nuevo;
uses crt;

var num,d:integer;

Begin

clrscr;

writeln ('Ingrese un numero '); readln (num);
d:=2;

while num <> 1 do
Begin
if num mod d = 0 then

Begin

writeln (d);
num:=num div d;

End;

End;

readkey;

end.

Explicación.

Nota: mod Módulo (el resto de la división entera). div División entera.

writeln ('Ingrese un numero '); readln (num); {Ingresamos un número y lo leemos}


d:=2;
{Le asignamos un valor a la variable d, 2}

while num <> 1 do{Mientras el numero ingresado sea distinto de 1 hacer}

Begin{Comienza el while}

if num mod d = 0 then{Si el numero dividio d es igual a 0 entonces}

Begin{Comienza el IF}

writeln (d);{Escribimos d}

num:=num div d;{El numero sera igual al numero dividido d (d equivale a 2)}

End;{Fin del IF}

End;{Fin del While}

Atentamente Eric.

Anteriormente les expliqué como sacar el número máximo con While.
Hoy vamos a realizar un ejercicio para factorizar números.

El código es:
program nuevo;
uses crt;

var num,d:integer;

Begin

clrscr;

writeln ('Ingrese un numero '); readln (num);
d:=2;

while num <> 1 do
Begin
if num mod d = 0 then

Begin

writeln (d);
num:=num div d;

End;

End;

readkey;

end.

Explicación.

Nota: mod Módulo (el resto de la división entera). div División entera.

writeln ('Ingrese un numero '); readln (num); {Ingresamos un número y lo leemos}


d:=2;
{Le asignamos un valor a la variable d, 2}

while num <> 1 do{Mientras el numero ingresado sea distinto de 1 hacer}

Begin{Comienza el while}

if num mod d = 0 then{Si el numero dividio d es igual a 0 entonces}

Begin{Comienza el IF}

writeln (d);{Escribimos d}

num:=num div d;{El numero sera igual al numero dividido d (d equivale a 2)}

End;{Fin del IF}

End;{Fin del While}

Atentamente Eric.

0 COMENTARIOS:

Publicar un comentario

Bienvenido a ERICLINUX.
Gracias por tu comentario.

Nota: solo los miembros de este blog pueden publicar comentarios.

Tu comentario será moderado la primera vez que lo hagas al igual que si incluyes enlaces. A partir de ahi no ser necesario si usas los mismos datos y mantienes la cordura. No se publicarán insultos, difamaciones o faltas de respeto hacia los lectores y comentaristas de este blog.