Ir al contenido

Aprendiendo a programar con Free Pascal I/Introducción/Lectura de datos

De Wikilibros, la colección de libros de texto de contenido libre.

Lectura de datos

[editar]

La lectura de datos se realiza con Readln. La lectura de datos acaba cuando se presiona la tecla Enter. Cuando se hace una lectura de datos, los datos leídos se almacenan en las variables declaradas. Haremos un programa que nos pida por teclado dos números, luego los sume y nos muestre como resultado la operación realizada.

PROGRAM Suma;
VAR Op1,Op2,resultado : integer;
BEGIN
  Write('Ingrese por teclado operando 1 : ');
  Readln(Op1); //lectura de datos
  Write('Ingrese por teclado operando 2 : ');
  Readln(Op2); //lectura de datos
  resultado:=Op1+Op2;
  Writeln('La suma es : ',resultado);
END.

Figura 25 : Programa ejemplo de Lectura de datos.

La primero que hace el programa es mostrarnos el mensaje : Ingrese por teclado operando 1 : , esto se hace con la rutina write, la rutina readln hará una pausa en el programa, hasta que el usuario, ingrese el dato que solicita y presione la tecla enter. Es muy común en pascal hacer un pausa hasta que se presione enter usando readln sin ninguna variable entre los paréntesis. El siguiente programa muestra el mismo ejemplo, pero esta solicita al usuario que presione enter para finalizar el programa.

PROGRAM Suma;
VAR Op1,Op2,resultado : integer;
BEGIN
  Write('Ingrese por teclado operando 1 : ');
  Readln(Op1); //lectura de datos
  Write('Ingrese por teclado operando 2 : ');
  Readln(Op2); //lectura de datos
  resultado:=Op1+Op2;
  Writeln('La suma es : ',resultado);
  Write('presione enter para terminar ...');
  Readln
END.

Figura 26 : Programa ejemplo de Lectura de datos, con pausa para terminar el programa.

También se pueden hacer lectura de datos de tipo textos. A continuación un ejemplo que pide al usuario que ingrese su nombre y después el programa, le mostrará un mensaje saludándolo.

PROGRAM MensajeBienvenida;
VAR Nombre : String;
BEGIN
  Write('Ingrese su nombre : ');
  Readln(Nombre); //lectura de datos
  Writeln('Hola ',Nombre,', Bienvenido a mi mundo');
  Write('presione enter para terminar ...');
  Readln
END.

Figura 27 : Programa ejemplo de Lectura de datos de tipo texto.

Algo importante, Cuando el programa hace una lectura de datos numéricos y se ingresa un dato de tipo texto, entonces se generará un error interrumpiéndose el programa, lo mismo sucede en caso contrario. Es importante entender que si el programa pide datos de tipo numérico se deben ingresar números y cuando pide datos de tipo texto se deben ingresar datos de tipo texto.