🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: es.comp.lenguajes
Article #24

Re: Imprimir en PASCAL

#24
From: GasparV
Date: Mon, 26 Jun 2000 00:00
35 lines
2030 bytes
On Mon, 26 Jun 2000 22:00:05 +0200, "Bediaga" <bediaga@euskalnet.net>
wrote:

>Tengo un peque�o pero gran problema, necesito imprimir un resultado que me
>ofrece mi programa. 


F�jate en la cl�usula 'assign'

=============================================

Procedure Listado;
  var lista:text;
      nom  :string[80];
      i:integer;
begin
  assign(lista,'LPT1');
  rewrite(lista);
  writeln(lista,' LISTADO DE NOMBRES Y TELEFONOS DE LA AGENDA');
  writeln(lista,' ===========================================');
  writeln(lista);
  writeln(lista);
  i:=0;
..
..


end;


Saludos
========================================================
Apuntes sobre el sintetizador musical anal�gico:
http://www.geocities.com/SunsetStrip/Stadium/1675/sintetizador.html
====================================================================
Technical Details
Message-ID: <3957dfec.25366368@news.mad.ttd.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <8j8cre$p2h14@eui1nw.euskaltel.es>

Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII
X-Google-Thread: 1116f3,ec66a7be6d8e2460
X-Google-Attributes: gid1116f3,public
X-Google-Thread: 109585,ec66a7be6d8e2460
X-Google-Attributes: gid109585,public
X-Google-Thread: f53ec,ec66a7be6d8e2460
X-Google-Attributes: gidf53ec,public
X-Google-Thread: 10d9ff,ec66a7be6d8e2460
X-Google-Attributes: gid10d9ff,public
X-Google-Thread: 105378,ec66a7be6d8e2460
X-Google-Attributes: gid105378,public
X-Google-Thread: f59de,ec66a7be6d8e2460
X-Google-Attributes: gidf59de,public
X-Google-Thread: f877f,ec66a7be6d8e2460
X-Google-Attributes: gidf877f,public
X-Google-Thread: 10f58f,ec66a7be6d8e2460
X-Google-Attributes: gid10f58f,public
From: gvidalr@ctv.es (GasparV)
Subject: Re: Imprimir en PASCAL
Date: 2000/06/26
Message-ID: <3957dfec.25366368@news.mad.ttd.net>
X-Deja-AN: 639326400
References: <8j8cre$p2h14@eui1nw.euskaltel.es>
Organization: Telefonica Transmision de Datos
Newsgroups: es.comp.lenguajes,es.comp.lenguajes.c,es.comp.lenguajes.c++,es.comp.lenguajes.clipper,es.comp.lenguajes.delphi,es.comp.lenguajes.java,es.comp.lenguajes.misc,es.comp.lenguajes.tex,es.comp.lenguajes.visual-basic,es.comp.misc