🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: Pytanie o ASCII i char ....

#80386
From: egze000
Date: Wed, 22 Oct 2003 17:14
22 lines
1357 bytes
Rafał <rafal@wp.pl> napisał(a): 

> Co nalezy zrobic aby program pokazywal ascii kazdego znaku w wyrazie

chodiz o to że char to zmienna 1-znakowa, oto moja wersja:

Var
  znak : string;
  i:byte;
Begin
  Write('Wpisz dowolny znak : ');
  ReadLn(znak);
  WriteLn('Wpisales znak [', znak, '] o kodzie ASCII ');
  for i:=1 to length(znak) do write(Ord(znak),' ');
  ReadLn;
End.

----------
 egze000

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
Technical Details
Message-ID: <bn6duf$lh$1@inews.gazeta.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.gazeta.pl!news.gazeta.pl!www.gazeta.pl!not-for-mail
References: <bn4041$o0f$2@nemesis.news.tpi.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.gazeta.pl!news.gazeta.pl!www.gazeta.pl!not-for-mail
From: "egze000" <egze000@gazeta.SKASUJ.TO.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Pytanie o ASCII i char ....
Date: Wed, 22 Oct 2003 17:14:55 +0000 (UTC)
Organization: Portal Gazeta.pl -> http://www.gazeta.pl
Lines: 22
Message-ID: <bn6duf$lh$1@inews.gazeta.pl>
References: <bn4041$o0f$2@nemesis.news.tpi.pl>
NNTP-Posting-Host: pa139.olsztyn.cvx.ppp.tpnet.pl
X-Trace: inews.gazeta.pl 1066842895 689 172.20.26.238 (22 Oct 2003 17:14:55 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Wed, 22 Oct 2003 17:14:55 +0000 (UTC)
X-User: egze000
X-Remote-IP: pa139.olsztyn.cvx.ppp.tpnet.pl
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit