BotonMenu
BotonIndice

Visita : http://www.conoce3000.com
Paypal : https://www.paypal.me/conoce3000/1

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL


1. INTRODUCCIÓN.
1.11. SALIDA POR PANTALLA.
1. INTRODUCCIÓN.
1.11. SALIDA POR PANTALLA.
1. INTRODUCCIÓN.
1.11. SALIDA POR PANTALLA.

SIGUIENTE

SIGUIENTE

SIGUIENTE


‒ Salida por pantalla.

Write y Writeln, son las rutinas que se usan para mostrar datos numéricos o textos por pantalla. La diferencia entre la primera y la segunda, es que Writeln, coloca un salto de línea después de mostrar los datos por pantalla. Cuando queremos mostrar textos por pantalla, estos deben estar encerrados entre comillas simples; pero cuando queremos mostrar datos numéricos, se escriben de manera directa, sin comillas simples.


Descargar
{$codepage UTF8}

PROGRAM Sumador;

BEGIN 
  Write(4568); 
  Write('Hola, hoy es domingo')  
END.
Código fuente 20: Programa usando Write con datos numéricos y caracteres.
Descargar

Podemos hacer que la rutina Write muestre textos con datos numéricos, simplemente separando los textos y datos numéricos con comas. El siguiente programa muestra el resultado de sumar dos números almacenados en las variables Op1 y Op2.


Descargar
{$codepage UTF8}

PROGRAM Sumador;

VAR Op1,Op2,resultado:integer;

BEGIN
  Op1:=5;
  Op2:=5; 
  resultado:=Op1+Op2; 
  Write('El resultado de la suma es : ', resultado)  
END.
Código fuente 21: Programa usando Write para mostrar textos con datos numéricos.
Descargar

El siguiente programa hace uso de las rutinas Writeln, para mostrar los valores de las variables Op1 y Op2.


Descargar
{$codepage UTF8}

PROGRAM Sumador;

  VAR Op1,Op2,resultado:integer;

BEGIN 
  Op1:=5; 
  Op2:=5; 
  resultado:=Op1+Op2; 
  Writeln('Op1 = ',Op1); 
  Writeln('Op2 = ',Op2); 
  Write('El resultado de la suma es: ', resultado)  
END.
Código fuente 22: Programa usando Writeln para mostrar los valores de las variables Op1 y Op2.
Descargar

El programa anterior nos dará como resultado lo siguiente:

Op1 = 5
Op2 = 5
El resultado de la suma es: 10

Si hubiésemos usado Write a diferencia de Writeln obtendríamos el siguiente resultado:

Op1 = 5Op2 = 5El resultado de la suma es: 10

Ambas rutinas se usan para mostrar datos por pantalla, y combinándolos podemos hacer que muestren los datos de una manera más adecuada. El siguiente programa es un ejemplo de ASCII ART. Que usando las rutinas writeln, símbolos y espacios en blanco, nos muestra un cisne.


Descargar
{$codepage UTF8}

PROGRAM ASCIIART;

BEGIN 
  Writeln('  (@_'); 
  Writeln('\\\_\');  
  Writeln('<____)') 
END.
Código fuente 23: Programa ejemplo de ASCIIART.
Descargar

El programa anterior también se puede escribir usando variables de tipo texto. A continuación el ejemplo:


Descargar
{$codepage UTF8}

PROGRAM ASCIIART;

VAR Linea01,Linea02,Linea03:String;

BEGIN 
  Linea01:='  (@_';
  Linea02:='\\\_\';
  Linea03:='<____)';
  Writeln(Linea01);
  Writeln(Linea02);  
  Writeln(Linea03) 
END.
Código fuente 24: Programa ejemplo de ASCIIART usando variables.
Descargar

Write y Writeln, tiene dos opciones adicionales para mostrar, los números enteros y reales. Separando con dos puntos después del identificador de la variable, nos permitirá indicar el ancho en el que se mostrará el contenido de la variable.


Descargar
{$codepage UTF8}

PROGRAM OpcionesAdicionales;

VAR Num01 : integer;

BEGIN
  Num01:=2;
  Writeln('12345678');
  Writeln(Num01:8); 
END.
Código fuente 25: Programa ejemplo del uso de espacios.
Descargar

En el ejemplo anterior, el número 2 se mostrará alineado a la derecha dentro de un ancho de 8 dígitos, los números 1234568, se muestran para poder observar el ancho de 8 dígitos, a continuación el resultado de este programa:

12345678
2

En el caso de números reales, se pueden indicar también, los decimales a mostrar, esto se hace añadiendo otra opción con dos puntos tal como se muestra a continuación:


Descargar
{$codepage UTF8}

PROGRAM OpcionesAdicionales;

VAR Num01 : integer;

BEGIN
  Num01:=2;
  Writeln('12345678');
  Writeln(Num01:8); 
END.
Código fuente 26: Programa ejemplo del uso de decimales.
Descargar

Como se explico anteriormente el 8, indicará el ancho en dígitos a mostrar y el 2 la cantidad de decimales a mostrar. A continuación el resultado del programa:

12345678
2
2.45

Las rutinas write y writeln sólo permiten mostrar textos en una codificación de caracteres de 8 dígitos binarios (ASCII, iso-8859-1, Win-1252, IBM 437, etc). Es decir, si los textos que queremos mostrar por pantalla están escritos en UTF8, y tienen una letra o símbolo que no es representable en la codificación de caracteres que use el sistema operativo, el administrador de caracteres cambiara estos caracteres por un signo de interrogación. En mi computadora el Sistema Operativo Windows, usa por defecto el juego de caracteres Win-1252 y cuando se compile el programa siguiente, mostrará 6 signos de interrogación, pero si el sistema operativo está usando Win-1251 entonces el resultado será diferente y mostrará la palabra: Привет, que significa hola en ruso. Ejemplo:


Descargar
{$codepage utf8}

BEGIN
  Writeln('Привет'); //hola en Ruso, se mostrará 6 signos de interrogación
END.
Código fuente 27: Writeln en un código fuente que usa UTF8.
Descargar

El uso del administrador de caracteres se explicará en el capítulo 2.6 "Administrador de Caracteres".




SIGUIENTE
SIGUIENTE
SIGUIENTE


 
‒ Comentarios y sugerencias.

Agradezco de antemano, todo comentario, sugerencia, y donativo (a través de Paypal me), 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.








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.