Capítulo 6. Bucles.

Los bucles son un conjunto de instrucciones que se repiten una serie determinada de veces hasta que la condición deje de cumplirse. Son extremadamente útiles e imprescindibles en la programación.

En delphi tenemos 3 tipos de bucles:

• Bucles For. Repiten una acción un número determinado de veces, pueden ser bucles ascendentes o descendentes.
• Bucles While (mientras). Repiten una serie de instrucciones hasta que la condición se cumpla.
• Bucles Repeat..Until. Es parecido al bucle while pero la condición se realiza al final de cada instancia del bucle.

Bucles For.
En este tipo de bucles necesitaremos una variable que actuará como contador, generalmente será de tipo integer aunque también podría ser de tipo char.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
Contador: integer;
begin
  for Contador := 0 to 10 do
    Writeln('El contador vale: ', Contador);
 
  Readln;
end.
 

El bucle for vendría a significar algo como "desde 0 hasta 10 hacemos esto...". En cada instancia del bucle, el valor de Contador se incrementa en 1. Como ocurre con los condicionales, si dentro del bucle no ponemos begin y end;, el bucle sólo ejecuta una línea de código.

Para hacer un bucle for descendente, hay que utilizar downto y cambiar el valor de inicio y el valor final del bucle.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
Contador: integer;
begin
  for Contador := 10 downto 1 do
    begin
      Writeln('El contador vale: ', Contador);
      Writeln('Restamos 1..');
    end;
 
  Readln;
end.
 

Conseguiríamos algo como esto:



Bucles While

Los bucles while se basan en una condición al principio del bucle que se llama a cada nueva instancia del bucle. Veamos un ejemplo:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
var
i: integer = 1; //Las variables se pueden inicializar de esta forma...
begin
 
while i <= 10 do
  begin
    Writeln('Esta es la instancia numero: ', i);
    Inc(i);
  end;
 
Readln;
end.
 

El significado del bucle while sería "mientras i sea menor o igual que 10 hacemos esto...". En este bucle, si utilizamos un contador de tipo entero, tenemos que incrementar su valor en cada instancia del bucle, si no tendríamos un bucle infinito. El procedimiento Inc incrementa en 1 el valor de la variable que se le pase como parámetro, el procedimiento contrario es Dec.

Bucles Repeat...Until.

Se traduce como repetir..hasta. Funciona de la misma manera que el bucle while, pero la condición se realiza al final del bucle.
Veamos como funciona con un ejemplo:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
var
i: integer = 1; //Las variables se pueden inicializar de esta forma...
begin
 
repeat
    Writeln('Esta es la instancia numero: ', i);
    Inc(i);
until I > 10;
 
Readln;
end.
 

La traducción sería: "repetir hasta que i sea mayor que 10". En el bucle repeat..until no se emplea begin y end; para escribir varias líneas, de hecho, no hace falta.

La utilidad de los bucles while y repeat..until es que se puede utilizar como condición cualquier variable o condición. Por ejemplo:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
var
Salida: string;
begin
 
repeat
    Write('Introduce "salir": ');
    Readln(Salida);
until Salida = 'salir';
 
Readln;
end.
 

En este ejemplo, utilizamos como condición de salida una variable de tipo string. La ejecución del bucle no termina hasta que ingresemos por el teclado la palabra "salir".

Interrumpir un bucle

Para trabajar con bucles tenemos 2 métodos bastante útiles: el método Break y el método Continue. El método break interrumpe un bucle y sale de él.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
var
i: integer;
begin
 
for i := 0 to 10 do
    begin
      Writeln('I vale: ', i);
      if I = 7 then
        break;
    end;
 
Readln;
end.
 

En este ejemplo, se tendría que escribir en la consola 11 veces el mensaje "I vale: x". Pero dentro del bucle puse una condición de que si I vale 7, salga del bucle.

Continue sirve para saltarnos una instancia del bucle, pero no sale de él. Ejemplo:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
var
i: integer;
begin
 
for i := 0 to 10 do
    begin
      if I = 5 then
        Continue; //No ejecuta el Writeln
      Writeln('I vale: ', i);
    end;
 
Readln;
end.
 

Si ejecutamos el programa, podemos observar que no escribe en la consola "I vale: 5" porque esa instancia se la salta.

Capítulo 5. Condicionales y saltos.

Mediante las condiciones podemos prever errores y controlar diferentes formas de hacer una cosa. Ejemplo: Si pi es igual a 3.14... entonces hacemos esto, si es falso, hacemos esto otro.
Básicamente esa es la estructura de las condiciones, sólo que hay que emplear terminología inglesa y adaptarlo a la estructura semántica y sintáctica de Delphi. Para crear una condición hay que emplear If Then, con una condición en medio:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Verdad: boolean;
begin
  Verdad:= True;
  if Verdad = True then
    Writeln('Es verdad');
  Readln;
end.
 

Esta es una condición de una sola línea, si la condición se cumple, se ejecutaría el Writeln y luego seguiría con la ejecución del programa que en este caso sería hacer un Readln. Ahora vamos a ver la estructura para hacer algo en caso contrario:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Verdad: boolean;
begin
  Verdad:= False;
  if Verdad = True then
    Writeln('Es verdad') //En las condiciones de una sola linea con else no se pone ;
    else Writeln('No es verdad');
  Readln;
end.
 

Mediante el else podemos hacer algo en caso de que la condición no se cumpla, pero tan sólo ejecuta una línea de código. Para ejecutar varias líneas de código en un condicional tenemos que crear un begin y un end; dentro de la condición.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Numero: integer;
begin
  Numero:= 14;
  if Numero < 10 then
    begin
      Writeln('El numero es menor de 10');
      Writeln('...');
    end else
      begin
        Writeln('El numero es mayor o igual que 10');
        Writeln('...............');
      end;
  Readln;
end.
 

Aquí se utiliza end; para cerrar el condicional, end. solo se usa para terminar el programa.

Otro método de salto, son las estructuras case. Con ellas podemos hacer muchas comparaciones en pocas líneas.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Numero: integer;
begin
  Write('Introduce un numero: ');
  Readln(Numero);
 
  case Numero of
    1: Writeln('Es el numero 1');
    2: Writeln('.... el 2');
    3: Writeln('.... el 3');
    else Writeln('Otro numero...');
  end;
  Readln;
end.
 

El programa hace lo siguiente: Pide un que se introduzca un número, luego mediante el case of ejecuta una acción u otra. Después de cada opción se ponen 2 puntos y a continuación la línea que vas a ejecutar, si quieres escribir varias líneas por opción introduces un begin y un end; en cada una de ellas. El else es la opción por defecto, en el caso de que no coincida con ninguna de las que tenemos programadas; también puede contener varias líneas.




Otro tipo de salto es usando etiquetas y el goto. Es poco recomendable utilizarlas ya que no entran dentro de la programación estructurada y pueden provocar bucles infinitos, así que no los vamos a ver.


Calculadora versión 1.0

Vamos a hacer una pequeña calculadora en modo consola, con un menú y una serie de opciones para sumar, restar, multiplicar y dividir.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Opcion: integer;
begin
  Writeln('Calculadora version 1.0');
  Writeln('1 - Sumar dos numeros');
  Writeln('2 - Restar dos numeros');
  Writeln('3 - Multiplicar dos numeros');
  Writeln('4 - Dividir dos numeros');
  Writeln(''); //Lo dejamos en blanco para dejar una separación
  Write('Introduce una opcion: ');
 
  Readln;
end.
 

Empezamos haciendo un menú bastante sencillo, el programa según la opción que escojamos va a hacer una operación u otra.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Opcion: integer;
begin
  Writeln('Calculadora version 1.0');
  Writeln('1 - Sumar dos numeros');
  Writeln('2 - Restar dos numeros');
  Writeln('3 - Multiplicar dos numeros');
  Writeln('4 - Dividir dos numeros');
  Writeln(''); //Lo dejamos en blanco para dejar una separación
 
  Write('Introduce una opcion: ');
  Readln(Opcion);
 
  case Opcion of
    1: begin
 
       end;
    2: begin
 
       end;
    3: begin
 
       end;
    4: begin
 
       end;
    else Writeln('Introduce una opción entre 1 y 4');
  end;
 
  Readln;
end.
 

Creamos un case of para el menú y preparamos las posibles opciones para permitir varias líneas. Además ya puse la opción por defecto en caso de que no se introduzca una opción válida. Ahora tenemos que pedir 2 números, hacer las operaciones y mostrar el resultado por pantalla. Tenemos un problema con la última operación, que hay que comprobar: la división entre cero, que solucionaremos con un condicional:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Opcion: integer;
  Numero1, Numero2: integer;
begin
  //Creamos el menu de nuestro programa...
  Writeln('Calculadora version 1.0');
  Writeln('1 - Sumar dos numeros');
  Writeln('2 - Restar dos numeros');
  Writeln('3 - Multiplicar dos numeros');
  Writeln('4 - Dividir dos numeros');
  Writeln(''); //Lo dejamos en blanco para dejar una separación
 
  //Pedimos un numero por teclado
  Write('Introduce una opcion: ');
  Readln(Opcion);
 
  //Dependiendo de la opcion...
  case Opcion of
    1: begin
        //Suma
        Write('Introduce un numero: ');
        Readln(Numero1);
        Write('Introduce otro numero: ');
        Readln(Numero2);
        Writeln('El resultado de ' + IntToStr(Numero1)
          + ' + ' + IntToStr(Numero2) + ' = ' + IntToStr(Numero1 + Numero2));
       end;
    2: begin
        //Resta
        Write('Introduce un numero: ');
        Readln(Numero1);
        Write('Introduce otro numero: ');
        Readln(Numero2);
        Writeln('El resultado de ' + IntToStr(Numero1)
          + ' - ' + IntToStr(Numero2) + ' = ' + IntToStr(Numero1 - Numero2));
       end;
    3: begin
        //Multiplicacion
        Write('Introduce un numero: ');
        Readln(Numero1);
        Write('Introduce otro numero: ');
        Readln(Numero2);
        Writeln('El resultado de ' + IntToStr(Numero1)
          + ' * ' + IntToStr(Numero2) + ' = ' + IntToStr(Numero1 * Numero2));
       end;
    4: begin
        //Division
        Write('Introduce un numero: ');
        Readln(Numero1);
        Write('Introduce otro numero: ');
        Readln(Numero2);
        if Numero2 <> 0 then
          Writeln('El resultado de ' + IntToStr(Numero1)
            + ' / ' + IntToStr(Numero2) + ' = ' + IntToStr(Numero1 div Numero2)) //División entera
        else Writeln('El divisor no puede ser 0 :(');
       end;
    else Writeln('Introduce una opción entre 1 y 4'); //Error
  end;
 
  Readln;
end.
 

Tendríamos algo como esto:




Para mostrar el resultado de una operación utilizamos Writeln y concatenamos la cadena de salida con el operador +. Como puedes observar, en la opción de suma aparece también el operador + para sumar dos números enteros. En la opción 4 comprobamos que el segundo número no es 0, si no es así mostramos un mensaje de error (cuidado con el punto y coma al final de la línea del condicional, este es el único caso en el que no se necesita).

Esta "calculadora" se puede mejorar mucho, planteé el programa de esta forma para repasar los condicionales y saltos.

C/C++ se van a quedar para siempre, la razón: los Sistemas Operativos. Linux, Windows y Mac están programados en C y ASM; es imposible que alguien los porte a un lenguaje nuevo, por lo tanto C va a seguir existiendo mientras estos Sistemas Operativos sigan presentes.

Yo te recomiendo que empieces por C, los lenguajes interpretados no me acaban de convencer.

Saludos.

La verdad me extraña que sea un problema de Lazarus, a lo mejor puede ser debido a tu Sistema Operativo, y que no tenga instaladas todas las fuentes del sistema.

No tengo Lazarus instalado para probarlo, pero traduje el código a C y funciona perfectamente.

#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>
#include <string.h>
#include <windows.h>
 
void WriteLnOem(char* Line)
{
char* szBuff;
 
    szBuff = (char*) malloc(strlen(Line) + 1);
    if (szBuff != NULL){
        CharToOemBuffA(Line, szBuff, strlen(Line));
        szBuff[strlen(Line)] = 0;
        puts(szBuff);
        free(szBuff);
    }    
}
 
 
int main()
{
    WriteLnOem("Ejemplo de cadena: ñ, á, í, ó, é");
    WriteLnOem("...");
    system("pause>null");
return 1;
}
 

Saludos.

Muy bueno, gracias.

Saludos.

La mejor enseñanza es la autodidacta y es gratis! Yo te recomiendo Delphi, es un lenguaje de alto nivel y que está pensado para aprender a programar, pero no por ello deja de tener la potencia de C/C++.

Aquí tienes un curso de Delphi, que estoy escribiendo:
http://foro.elhacker.net/programacion_general/curso_de_delphi-t306981.0.html

Además, en Delphi es mucho más sencillo crear aplicaciones visuales y más divertido, sin pérdida de velocidad de ejecución y sin dependencias externas como FrameWorks, librerías u OCX.

Todo lo bueno tiene algo malo, y es que Delphi no es gratis aunque existe la versión libre: Lazarus, pero que todavía no acaba de conseguir igualar a Delphi, pero de todas formas para aprender también te sirve.

Saludos.

¿Por qué nadie se lee las normas? Además, con esa forma de redactar mensajes espantas a cualquiera, yo ni me leí tu post...

Capítulo 4. Operadores.

Los operadores nos proporcionan la base matemática y lógica en la programación. En el capítulo anterior ya vimos un operador, el operador de asignación :=.

Operadores aritméticos.

+ Suma.
- Resta.
* Multiplicación.
/ División real.
div División entera (sólo entre números enteros).
mod Resto división.

Un ejemplo:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  numero1, numero2, suma: integer;
begin
  numero1:= 3;
  numero2:= 4;
 
  suma:= numero1 + numero2;
end. 
 

Si quieres declarar varias variables del mismo tipo, puedes hacerlo en la misma línea mediante una , como se muestra en el ejemplo.

Operadores relacionales.

Se emplean en las condiciones (las veremos en el próximo capítulo) y son los siguientes:

< Menor que.
> Mayor que.
= Igual que.
<> Distinto.
<= Menor o igual que.
>= Mayor o igual que.

Operadores lógicos.

And Conjunción lógica.
Or Disyunción inclusiva lógica.
Xor Disyunción exclusiva.
Not Negación lógica.
Shr Desplazamiento de bits a la derecha.
Shl Desplazamiento de bits a la izquierda.

Una vez visto esto, vamos a aprender como leer la entrada del teclado en Delphi. El procedimiento ya lo conoces: Readln();

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Cadena: string;
begin
  Write('Introduce algo: ');
  Readln(cadena);
  Writeln('Esta es la cadena que introduciste: ' + cadena);
  Readln;
end.
 

El procedimiento Write es idéntico al WriteLn, sólo que este último hace un salto de línea en la consola. Para leer la entrada de datos mediante el teclado, tenemos que pasarle como parámetro al procedimiento Readln la variable en la que se guardará la información de entrada. A continuación mostramos el contenido de la variable Cadena. El operador + funciona como el operador aritmético de la suma y para concatenar cadenas.

Introducimos la cadena "hola" y pulsamos Enter. Tendríamos algo como esto:



Si queremos leer del teclado un número entero,  a Readln le tenemos que pasar como parámetro una variable de tipo integer. Con unas líneas de código podemos hacer que nos pida 2 números, los sume y nos muestre su resultado.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Numero1, Numero2: integer;
begin
  Write('Introduce un numero: ');
  Readln(Numero1);
  Write('Introduce otro numero: ');
  Readln(Numero2);
  Writeln('La suma de los dos numeros es: ', Numero1 + Numero2);
  Readln;
end.
 

En el último Writeln, NO podemos hacer esto:

  Writeln('La suma de los dos numeros es: ' + (Numero1 + Numero2));
 

Esto provocaría una excepción, porque no se puede concatenar una cadena de texto con un número entero de esta forma. Poniendo la coma y a continuación el número entero, el procedimiento Writeln se encarga él solo de convertir ese número a cadena de caracteres para que se pueda mostrar por pantalla.

Para convertir un número entero a string, disponemos de la función IntToStr (Integer To String) que está declarada en la unidad SysUtils. A esta función sólo se le puede pasar como parámetro un número entero y devuelve el número en forma de cadena de caracteres.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Numero1, Numero2: integer;
begin
  Write('Introduce un numero: ');
  Readln(Numero1);
  Write('Introduce otro numero: ');
  Readln(Numero2);
  Writeln('La suma de los dos numeros es: ' +  IntToStr(Numero1 + Numero2));
  Readln;
end.
 

Este ejemplo realiza lo mismo que el anterior, pero emplea la función IntToStr para convertir la suma de esos dos números enteros en una cadena de caracteres, que se concatena con "La suma de los dos numeros es: ". Hay más funciones de conversión de datos que ya iremos viendo, por ejemplo: StrToInt hace lo contrario; otras funciones podrían ser: FloatToStr, StrToFloat, TryStrToInt, TryStrToFloat, etc...

Consejo: Si alguna vez desconoces donde está declarada una variable, constante, función, etc... pinchas sobre ella y le das al botón derecho y a Find Declaration. Inmediatamente te llevará a la unidad donde está declarda, y en ocasiones hay comentarios explicando lo que hace y porqué.

Buen aporte VillanoSam, tal vez te interese la función de la API de Windows SHGetFolderPath, con ella puedes obtener muchas más carpetas especiales del sistema.

Saludos.

Hay que echarle morro, con dos cojones...