🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: Pytanie o ASCII i char ....

#80384
From: Wiktor S.
Date: Tue, 21 Oct 2003 21:56
34 lines
1540 bytes
> i ładnie mi się pokazują cyfry kodu ASCII w trybie dziesiętnym
> I moje pytanie brzmi >>
> Jak to teraz zamienić jeszcze dodatkowo na tryb szestnastkowy oraz
ósemkowy
> i binarny.

nie odkrywajmy Ameryki wciąż na nowo :-)


uses drivers;

var s:string;
    l:integer;

function inttohex(int:longint):string;
var tmp:string;
begin
  formatstr(tmp,'%x',int);
  inttohex:=tmp;
end;

begin
  write(' podaj liczbę : '); readln(l);
  writeln(' szesnastkowo : ',inttohex(l),'h');
end.


Zamiany na systemy dwójkowy i ósemkowy w TP7 standardowo niestety brak.


--
Azarien

my e-mail address ends in .fm not .fmv
Technical Details
Message-ID: <bn4a2l$mqf$1@flis.man.torun.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!not-for-mail
References: <bn403u$o0f$1@nemesis.news.tpi.pl> <bn43m8$eve$1@atlantis.news.tpi.pl> <bn45q7$q1s$1@atlantis.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!not-for-mail
From: "Wiktor S." <wswiktor@poczta.fmv>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Pytanie o ASCII i char ....
Date: Tue, 21 Oct 2003 23:56:23 +0200
Organization: TORMAN
Lines: 35
Message-ID: <bn4a2l$mqf$1@flis.man.torun.pl>
References: <bn403u$o0f$1@nemesis.news.tpi.pl> <bn43m8$eve$1@atlantis.news.tpi.pl> <bn45q7$q1s$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: azi.wmc.com.pl
Mime-Version: 1.0
X-Trace: flis.man.torun.pl 1066773397 23375 82.160.11.135 (21 Oct 2003 21:56:37 GMT)
X-Complaints-To: usenet@man.torun.pl
NNTP-Posting-Date: 21 Oct 2003 21:56:37 GMT
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit