Re: Pytanie o ASCII i char ....

Article View: pl.comp.lang.pascal

Article #80381

Back to pl.comp.lang.pascal Previous Next

#80381

From: Kicer
Date: Tue, 21 Oct 2003 20:06

41 lines
1492 bytes

Rafał wrote:

> Witam.
> Mam problem z programem tego typu :
> 
> Var
>   znak : Char;
> Begin
>   Write('Wpisz dowolny znak : ');
>   ReadLn(znak);
>   WriteLn('Wpisales znak [', znak, '] o kodzie ASCII ', Ord(znak));
>   ReadLn;
> End.
> 

uses dos
Var text : string;

 Begin
   Write('Wpisz dowolny text : ');
   ReadLn(text);
   for a:=1 to length(text) do
         Write(Ord(text[a])+' ');
   ReadLn;
 End.

pisalem z glowy , powinno działać :)

> Co musze zrobić ?
> Jakas tablica ?
> Petla ?

pętla :)

> Z góry serdecznie dziękuję za pomoc.
> Pozdrawiam

ja również
-- 
Kicer          gg:3729519
usun nospam. z adresu

Technical Details

Message-ID: <bn43m8$eve$1@atlantis.news.tpi.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!news2.icm.edu.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail

References: <bn403u$o0f$1@nemesis.news.tpi.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!news2.icm.edu.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: Kicer <michal.kic@nospam.interia.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Pytanie o ASCII i char ....
Date: Tue, 21 Oct 2003 22:06:24 +0200
Organization: tp.internet - http://www.tpi.pl/
Lines: 41
Message-ID: <bn43m8$eve$1@atlantis.news.tpi.pl>
References: <bn403u$o0f$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: pc79.ruda-slaska.sdi.tpnet.pl
Mime-Version: 1.0
X-Trace: atlantis.news.tpi.pl 1066766862 15342 213.76.229.79 (21 Oct 2003 20:07:42 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Tue, 21 Oct 2003 20:07:42 +0000 (UTC)
User-Agent: KNode/0.7.1
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message