🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #334

Re: maly problemik...

#334
From: Piotr|||
Date: Tue, 29 Dec 1998 15:14
23 lines
1258 bytes
Można jeszcze inaczej :-) :
Var
  B:Byte;
  C:Char ABSOLUTE B;
Begin
  B:=65;
  inc(B);
  Writeln(C,'     ',Byte(C));
End.

Albo jeszcze inaczej :
Var
  C:Char;
Begin
  C:='A';
  inc(C);
  Writeln(C,'     ',Byte(C));
End.

Można na tysiąc sposobów ... Pozostaje tylko pytanie - a co chodzi ? :-)

Pozdrawiam.
Piotr.
Technical Details
Message-ID: <76argl$95g$1@polonez.man.lodz.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!polsl.gliwice.pl!news.man.poznan.pl!news.man.lodz.pl!not-for-mail
References: <tb7h2.42389$O1.3067360@news.tpnet.pl> <368a09cb.23949471@news.torun.pdi.net> <sbeh2.42854$O1.3168756@news.tpnet.pl> <368612b4.5469610@news.vogel.pl> <368a4473.16668716@news.torun.pdi.net> <36873be3.1947711@news.vogel.pl> <368dc4d9.1184001@news.torun.pdi.net> <368996c4.6865017@news.vogel.pl> <76amcd$g0o$1@korweta.task.gda.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!polsl.gliwice.pl!news.man.poznan.pl!news.man.lodz.pl!not-for-mail
From: "Piotr|||" <piostrus@friko5.onet.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: maly problemik...
Date: Tue, 29 Dec 1998 16:14:56 +0100
Lines: 25
Message-ID: <76argl$95g$1@polonez.man.lodz.pl>
References: <tb7h2.42389$O1.3067360@news.tpnet.pl> <368a09cb.23949471@news.torun.pdi.net> <sbeh2.42854$O1.3168756@news.tpnet.pl> <368612b4.5469610@news.vogel.pl> <368a4473.16668716@news.torun.pdi.net> <36873be3.1947711@news.vogel.pl> <368dc4d9.1184001@news.torun.pdi.net> <368996c4.6865017@news.vogel.pl> <76amcd$g0o$1@korweta.task.gda.pl>
NNTP-Posting-Host: tbd27.uw.lodz.pl
X-Newsreader: Microsoft Outlook Express 4.72.3110.5
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit