1.11. Salida por pantalla.

anterior :: indice :: siguiente

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.

{$codepage UTF8}

PROGRAM Sumador;

BEGIN 
  Write(4568); 
  Write('Hola, hoy es domingo')  
END.

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.

{$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.

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

{$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.

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.

{$codepage UTF8}

PROGRAM ASCIIART; 

BEGIN 
  Writeln(' (@_'); 
  Writeln('\\\_\');  
  Writeln('<____)') 
END.

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

{$codepage UTF8}

PROGRAM ASCIIART;

VAR Linea01,Linea02,Linea03:String;

BEGIN 
  Linea01:=' (@_';
  Linea02:='\\\_\';
  Linea03:='<____)';
  Writeln(Linea01);
  Writeln(Linea02);  
  Writeln(Linea03) 
END.

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.

{$codepage UTF8}

PROGRAM OpcionesAdicionales;

VAR Num01 : integer;

BEGIN
  Num01:=2;
  Writeln('12345678');
  Writeln(Num01:8); 
END.

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:

{$codepage UTF8}

PROGRAM Decimales; 

VAR
  Num01 : integer;
  Num02 : real;

BEGIN 
  Num01:=2; 
  Num02:=2.45; 
  Writeln('12345678'); 
  Writeln(Num01:8); 
  Writeln(Num02:8:2) 
END.

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:

Las rutinas write y writeln sólo permiten mostrar textos que sean representables en una codificación de 8 dígitos binarios, y como los códigos fuente en este libro se escriben en UTF8, entonces los caracteres serán de longitud variable. Si los textos que queremos mostrar por pantalla, tienen una la letra o símbolo que no es representable, en la codificación de caracteres que use el sistema operativo, este será cambiado 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:

{$codepage utf8}

VAR cad:string;

BEGIN
  Writeln('Привет'); //hola en Ruso, se mostrará 6 signos de interrogación
  Writeln('Me costó $450')
END.

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

anterior :: indice :: siguiente