BotonMenu
BotonIndice

Visita : conoce3000.com
Paypal : https://www.paypal.com/donate/?hosted_button_id=XY8TZ3MGN64GE

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL


1. INTRODUCCIÓN.
1.12. LECTURA DE DATOS.
1. INTRODUCCIÓN.
1.12. LECTURA DE DATOS.
1. INTRODUCCIÓN.
1.12. LECTURA DE DATOS.

SIGUIENTE

SIGUIENTE

SIGUIENTE


‒ Lectura de datos.

La lectura de datos se realiza con Readln y esta 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.


Descargar
{$codepage UTF8}

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.
Código fuente 28: Programa ejemplo de Lectura de datos.
Descargar

La primero que hace el programa es mostrarnos el mensaje:

Ingrese por teclado operando 1:

El mensaje se muestra a través del uso de 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. Después de presionar la tecla enter el valor ingresado se almacenará en la variable Op1, lo mismo ocurre con la variable Op2, el programa termina mostrando la suma de los valores ingresados por el teclado.

Es muy común en pascal hacer una pausa, hasta que se presione la tecla enter usando readln sin ninguna variable entre los paréntesis. Hacer una pausa en el programa es muy útil cuando el programa se ejecuta sin el intérprete de comandos, ya que este mostrará los resultados y se cerrará muy rápidamente. El siguiente programa muestra el mismo ejemplo, pero esta solicita al usuario que presione la tecla enter para finalizar el programa.


Descargar
{$codepage UTF8}

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.
Código fuente 29: Programa ejemplo de Lectura de datos, con pausa para terminar el programa.
Descargar

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 mostrará un mensaje saludándolo.


Descargar
{$codepage UTF8}

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.
Código fuente 30: Programa ejemplo de Lectura de datos de tipo texto.
Descargar

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 numericos se deben ingresar sólo números.

Si se hace una lectura de datos con numeros reales, entonces se pueden ingresar numeros enteros, pero lo contrario no es posible; es decir si se hace una lectura de datos con numeros enteros, entonces sólo se deben ingresar numeros enteros. Ejemplo:


Descargar
{$codepage UTF8}

PROGRAM Numeros; 

VAR Num01 : integer;
    Num02 : real;

BEGIN
  Write('Ingrese un entero : ');
  Readln(Num01); //Si ingresa un número real se produce un error.
  Write('Ingrese un real : ');
  Readln(Num02); 
END.
Código fuente 31: Programa ejemplo de Lectura de datos de tipo entero y real.
Descargar

En el programa anterior, si ingresa un número real cuando se le pide que ingrese un número entero, entonces el programa dejará de funcionar y se mostrará un mensaje de error.




SIGUIENTE
SIGUIENTE
SIGUIENTE


 
‒ Comentarios y sugerencias.

Agradezco de antemano, todo comentario, sugerencia, y donativo a través de , que ayude a mejorar los contenidos educativos de Conoce 3000. Además, cualquier pregunta o duda que tengas lo puedes hacer por este medio. Pero, todo contenido que pueda resultar ofensivo, malicioso, racista, sexista, discriminatorio, obsceno, vulgar será eliminado. Para clases particulares contactame por whatsapp al 📲 (+51) 999 264 073








PORTADA |  INTERESANTE |  APUNTES |  LIBROS |  GALERIA


Creative Commons License


Todos los textos, imágenes y videos de Conoce3000 estan colocados bajo una licencia : Creative Commons Reconocimiento-NoComercial 3.0 Unported License.