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.

Ejercicios Pascal (VI) - Número máximo con while.

En la entrega anterior les mostré como sacar un número máximo con Repeat-Until.
Hoy lo haremos con el comando while.

El código es el siguiente:

program maximo;
uses crt;
var num, max:integer;
Begin
clrscr;
max:=0;
writeln ('Ingrese un numero '); readln (num);
while num > 0 do
Begin
writeln ('Ingrese otro numero '); readln (num);
if num > max then
max:=num;
End;
writeln ('El numero maximo es ',max);
readkey;
End.

Explicación.

NOTA: Como podrán observar es muy parecido al ejercicio anterior. Solo debemos remplazar el repeat-until por el while y colocar el Begin - End dentro del mismo.

while num > 0 do {Mientras num se mayor a 0 hacer}
Begin {Comienza el While}
writeln ('Ingrese otro numero '); readln (num);{Ingresa un número, lo lee}
if num > max then{Si num es mayor al máximo entonces}
max:=num;{máximo va a ser igual a num}
End;{Fin del while}

Atentamente Eric.

En la entrega anterior les mostré como sacar un número máximo con Repeat-Until.
Hoy lo haremos con el comando while.

El código es el siguiente:

program maximo;
uses crt;
var num, max:integer;
Begin
clrscr;
max:=0;
writeln ('Ingrese un numero '); readln (num);
while num > 0 do
Begin
writeln ('Ingrese otro numero '); readln (num);
if num > max then
max:=num;
End;
writeln ('El numero maximo es ',max);
readkey;
End.

Explicación.

NOTA: Como podrán observar es muy parecido al ejercicio anterior. Solo debemos remplazar el repeat-until por el while y colocar el Begin - End dentro del mismo.

while num > 0 do {Mientras num se mayor a 0 hacer}
Begin {Comienza el While}
writeln ('Ingrese otro numero '); readln (num);{Ingresa un número, lo lee}
if num > max then{Si num es mayor al máximo entonces}
max:=num;{máximo va a ser igual a num}
End;{Fin del while}

Atentamente Eric.

Ejercicios Pascal (V) - Número máximo de "X" cantidad ingresados.

En la lección anterior sacamos el número mayor de 5 ingresados. Hoy vamos a sacar el número mayor de la cantidad "X" que el usuario quiera.

El código es el siguiente:

uses crt;
var
num, max:integer;
Begin
clrscr;
max:= 0;
writeln ('Ingrese un numero '); readln (num);
repeat
if num > max then
max:= num;
writeln ('Ingrese un numero '); readln (num);
until num = 0;
writeln ('El numero mayor es ',max);
readkey;
end.

Explicación.

Repeat: Nos encontramos con éste nuevo bucle condicional. Esta compuesto por dos códigos "Repeat Until" ésto significa Repetir hasta que pase X acción.
En éste caso decimos qué:

Repeat (Repita).
if num > max then (Si el número es mayor al máximo haga).
max:=num; (Si el número es mayor al máximo entonces el máximo pasa a ser el número).
writeln (Ingresa un número, y lo lee).
until num = 0; (Cuando el número ingresado sea 0 finalizara el repeat). writeln (Para mostrar el número máximo).

Atentamente Eric.

En la lección anterior sacamos el número mayor de 5 ingresados. Hoy vamos a sacar el número mayor de la cantidad "X" que el usuario quiera.

El código es el siguiente:

uses crt;
var
num, max:integer;
Begin
clrscr;
max:= 0;
writeln ('Ingrese un numero '); readln (num);
repeat
if num > max then
max:= num;
writeln ('Ingrese un numero '); readln (num);
until num = 0;
writeln ('El numero mayor es ',max);
readkey;
end.

Explicación.

Repeat: Nos encontramos con éste nuevo bucle condicional. Esta compuesto por dos códigos "Repeat Until" ésto significa Repetir hasta que pase X acción.
En éste caso decimos qué:

Repeat (Repita).
if num > max then (Si el número es mayor al máximo haga).
max:=num; (Si el número es mayor al máximo entonces el máximo pasa a ser el número).
writeln (Ingresa un número, y lo lee).
until num = 0; (Cuando el número ingresado sea 0 finalizara el repeat). writeln (Para mostrar el número máximo).

Atentamente Eric.

Ejercicios Pascal (IV) - Número máximo de 5.

En la lección anterior hicimos un ejercicio que consistía en sacar el número máximo.
Hoy a diferencia del anterior vamos a hacerlo no con 2 números, sino con 5. Y no lo haremos con varios write sino con un for.

program mayorde5;
uses crt;
var i,num, max:integer;
Begin
clrscr;
max:= 0;
for i:=1 to 5 do
Begin
writeln ('Ingrese un numero '); readln (num);
if num > max then
max:= num;
End;
Writeln ('El numero maximo es: ',max);
readkey;
End.

Explicación.

NOTA: Se pueden realizar comentarios en Pascal con las llaves {Comentario aquí.}.

max:= 0: Declaramos a la variable con un valor 0 en el comienzo.

for i:=1 to 5 do: For es un bucle repetitivo. Lo que estamos diciendo en ésta linea es que para i valiendo de 1 hasta 5 hacer.
Recordemos que luego del for debemos encerrar las acciones con un Begin y End;

if num > max then: Si el nuevo número ingresado es mayor a el máximo (variable max) entonces.

max:= num: Aquí pasamos el valor del nuevo número al número máximo.

Atentamente Eric.

En la lección anterior hicimos un ejercicio que consistía en sacar el número máximo.
Hoy a diferencia del anterior vamos a hacerlo no con 2 números, sino con 5. Y no lo haremos con varios write sino con un for.

program mayorde5;
uses crt;
var i,num, max:integer;
Begin
clrscr;
max:= 0;
for i:=1 to 5 do
Begin
writeln ('Ingrese un numero '); readln (num);
if num > max then
max:= num;
End;
Writeln ('El numero maximo es: ',max);
readkey;
End.

Explicación.

NOTA: Se pueden realizar comentarios en Pascal con las llaves {Comentario aquí.}.

max:= 0: Declaramos a la variable con un valor 0 en el comienzo.

for i:=1 to 5 do: For es un bucle repetitivo. Lo que estamos diciendo en ésta linea es que para i valiendo de 1 hasta 5 hacer.
Recordemos que luego del for debemos encerrar las acciones con un Begin y End;

if num > max then: Si el nuevo número ingresado es mayor a el máximo (variable max) entonces.

max:= num: Aquí pasamos el valor del nuevo número al número máximo.

Atentamente Eric.

Ejercicios Pascal (III) - Número máximo.

Estamos en la tercer entrega de la guía Pascal.
Anteriormente mostramos como sumar dos números.
En ésta ocasión vamos a ingresar 2 números y mostraremos en pantalla el mayor de estos 2.

El código es el siguiente:

program nuevo;
uses crt;
var a,b,c:integer;
begin
Clrscr;
writeln ('Ingrese un numero '); readln (a);
writeln ('Ingrese un numero '); readln (b);
if a > b then
c:=a
else c:=b;
writeln ('El numero mayor es ',c);
readkey;
end.

Explicación.

if a > b then: Nos encontramos con "if", es un comando condicional. Y con then (Traducción: Entonces). Lo que significa "if a > b then" es; Si la variable a es mayor a la variable b entonces.
Debajo van las instrucciones y luego nos encontramos con "Else" (Traducción: Si no).
La sintaxis de if es:

if a > b then
tareas
else
tareas;

Como pueden observar el 1ª tareas no tiene ";" y el último si. Es una regla más del if.

Traducido el comando:

Si la variable a es mayor a la variable b entonces
Tarea 1.
Si no cumple la primera condición que haga lo siguiente.
Tarea 2.

Ésto es lo único nuevo en el programa (if).

Puede intentar realizar un trabajo similar, pero en lugar de buscar el mayor buscar el menor.

Atentamente Eric.

Estamos en la tercer entrega de la guía Pascal.
Anteriormente mostramos como sumar dos números.
En ésta ocasión vamos a ingresar 2 números y mostraremos en pantalla el mayor de estos 2.

El código es el siguiente:

program nuevo;
uses crt;
var a,b,c:integer;
begin
Clrscr;
writeln ('Ingrese un numero '); readln (a);
writeln ('Ingrese un numero '); readln (b);
if a > b then
c:=a
else c:=b;
writeln ('El numero mayor es ',c);
readkey;
end.

Explicación.

if a > b then: Nos encontramos con "if", es un comando condicional. Y con then (Traducción: Entonces). Lo que significa "if a > b then" es; Si la variable a es mayor a la variable b entonces.
Debajo van las instrucciones y luego nos encontramos con "Else" (Traducción: Si no).
La sintaxis de if es:

if a > b then
tareas
else
tareas;

Como pueden observar el 1ª tareas no tiene ";" y el último si. Es una regla más del if.

Traducido el comando:

Si la variable a es mayor a la variable b entonces
Tarea 1.
Si no cumple la primera condición que haga lo siguiente.
Tarea 2.

Ésto es lo único nuevo en el programa (if).

Puede intentar realizar un trabajo similar, pero en lugar de buscar el mayor buscar el menor.

Atentamente Eric.

Ejercicios Pascal (II) - Suma de números.

En el articulo anterior expliqué como imprimir en pantalla.
Realizamos el conocido "Hola Mundo".
Hoy vamos a explicar como ingresar 2 números, mostrarlos en pantalla, sumarlos y mostrar el resultado.

El código es el siguiente.

program nuevo;
uses crt;
var
a,b,c:integer;
Begin
clrscr;
c:=0;
writeln ('Ingrese un numero '); readln (a);
writeln ('Ingrese otro numero '); readln (b);
c:= a + b;
writeln ('El resultado es ',c);
readkey;
end.

Explicación.

Var: Se utiliza para definir las variables, en éste caso son a,b y c. El otro comando integer nos permite definir a las variables como enteras.

c:=0: Debemos indicar que C tiene un valor de 0.

readln (a): Lo utilizamos para poder ingresar los números. Si no lo colocamos no podremos ingresar datos.

c:= a + b: Realizamos la suma.

writeln ('El resultado es ',c): Como verán nos muestra una ',c) ésto se utiliza para abreviar un poco el código.
Es lo mismo que poner por ejemplo:

writeln ('El resultado es ');
writeln (c);

Cómo ejercitación pueden realizarlo con más números y restando.

Atentamente Eric.

En el articulo anterior expliqué como imprimir en pantalla.
Realizamos el conocido "Hola Mundo".
Hoy vamos a explicar como ingresar 2 números, mostrarlos en pantalla, sumarlos y mostrar el resultado.

El código es el siguiente.

program nuevo;
uses crt;
var
a,b,c:integer;
Begin
clrscr;
c:=0;
writeln ('Ingrese un numero '); readln (a);
writeln ('Ingrese otro numero '); readln (b);
c:= a + b;
writeln ('El resultado es ',c);
readkey;
end.

Explicación.

Var: Se utiliza para definir las variables, en éste caso son a,b y c. El otro comando integer nos permite definir a las variables como enteras.

c:=0: Debemos indicar que C tiene un valor de 0.

readln (a): Lo utilizamos para poder ingresar los números. Si no lo colocamos no podremos ingresar datos.

c:= a + b: Realizamos la suma.

writeln ('El resultado es ',c): Como verán nos muestra una ',c) ésto se utiliza para abreviar un poco el código.
Es lo mismo que poner por ejemplo:

writeln ('El resultado es ');
writeln (c);

Cómo ejercitación pueden realizarlo con más números y restando.

Atentamente Eric.

Ejercicios Pascal (I) - Hola Mundo.

Ésta es la primera edición de nuestros ejercicios de Pascal.
Anteriormente les explique como instalar Free-Pascal en Ubuntu.
Hoy les enseñaré el famoso "Hola Mundo".

Abrimos el Free-Pascal.

$ fp

Copiamos y pegamos el siguiente código:

program holamundo;
uses crt;
Begin
clrscr;
writeln ('Hola Mundo');
readkey;
end.

Explicación.

NOTA: Para cerrar cada comando utilizaremos ; como lo ven la codificación.

program holamundo: El comando program se utiliza para definir un nombre al proyecto de Pascal, en nuestro caso se llama "holamundo".

uses crt: Él comando Uses nos permite abrir una librería, en éste caso "crt" que contiene por ejemplo limpiar la pantalla.
Debemos colocarla ya que contiene muchas más utilidades.

begin: Todo tiene un comienzo, a partir de éste comando llega la codificación principal del programa, es decir, lo que queramos que haga dicho proyecto.

clrscr: Nos permite limpiar la pantalla. clrscr significa Clear Screensaver.

writeln ('Hola Mundo'): write nos está diciendo que escribamos una linea y ln nos indica una nueva linea, es decir que valla abajo. Si utilizan solo write escribirá uno al lado del otro los campos de texto. Los ( ) se utilizan para colocar el texto, al igual que las ' '. Sintaxis obligatoria para write.

readkey: Cuando ejecutemos el programa (Control + F9) nos permite ver los resultados y si queremos salir presionamos una tecla. Sin readkey solo veríamos un pantallazo rápido.

end: Termina el programa.

Con esos pasos tendremos nuestro primer programa; Hola Mundo.

Atentamente Eric.

Ésta es la primera edición de nuestros ejercicios de Pascal.
Anteriormente les explique como instalar Free-Pascal en Ubuntu.
Hoy les enseñaré el famoso "Hola Mundo".

Abrimos el Free-Pascal.

$ fp

Copiamos y pegamos el siguiente código:

program holamundo;
uses crt;
Begin
clrscr;
writeln ('Hola Mundo');
readkey;
end.

Explicación.

NOTA: Para cerrar cada comando utilizaremos ; como lo ven la codificación.

program holamundo: El comando program se utiliza para definir un nombre al proyecto de Pascal, en nuestro caso se llama "holamundo".

uses crt: Él comando Uses nos permite abrir una librería, en éste caso "crt" que contiene por ejemplo limpiar la pantalla.
Debemos colocarla ya que contiene muchas más utilidades.

begin: Todo tiene un comienzo, a partir de éste comando llega la codificación principal del programa, es decir, lo que queramos que haga dicho proyecto.

clrscr: Nos permite limpiar la pantalla. clrscr significa Clear Screensaver.

writeln ('Hola Mundo'): write nos está diciendo que escribamos una linea y ln nos indica una nueva linea, es decir que valla abajo. Si utilizan solo write escribirá uno al lado del otro los campos de texto. Los ( ) se utilizan para colocar el texto, al igual que las ' '. Sintaxis obligatoria para write.

readkey: Cuando ejecutemos el programa (Control + F9) nos permite ver los resultados y si queremos salir presionamos una tecla. Sin readkey solo veríamos un pantallazo rápido.

end: Termina el programa.

Con esos pasos tendremos nuestro primer programa; Hola Mundo.

Atentamente Eric.

Instalar Free-Pascal en Ubuntu.

En éste post les explique que pascal es un lenguaje de programación.
Hoy les mostraré como instalar Free Pascal en Ubuntu.

Abrimos un terminal y tipeamos:

# apt-get install fp-compiler fp-docs fp-ide fp-units-base fp-units-db fp-units-fcl fp-units-gfx fp-units-gnome1 fp-units-gtk fp-units-gtk2 fp-units-misc fp-units-net fp-units-rtl fp-utils

Lo ejecutamos con:

$ fp

Y tendremos nuestro Free Pascal corriendo.


















Atentamente Eric.

En éste post les explique que pascal es un lenguaje de programación.
Hoy les mostraré como instalar Free Pascal en Ubuntu.

Abrimos un terminal y tipeamos:

# apt-get install fp-compiler fp-docs fp-ide fp-units-base fp-units-db fp-units-fcl fp-units-gfx fp-units-gnome1 fp-units-gtk fp-units-gtk2 fp-units-misc fp-units-net fp-units-rtl fp-utils

Lo ejecutamos con:

$ fp

Y tendremos nuestro Free Pascal corriendo.


















Atentamente Eric.