In comp.lang.pascal.ansi-iso message <fkjmdf$v23$1@[EMAIL PROTECTED]
>,
Sat, 22 Dec 2007 20:52:31, john <john@[EMAIL PROTECTED]
> posted:
>Dr J R Stockton wrote:
>> In comp.lang.pascal.ansi-iso message
<fkhhdq$kpc$1@[EMAIL PROTECTED]
>,
>> Sat, 22 Dec 2007 01:15:05, john <john@[EMAIL PROTECTED]
> posted:
>>> More precisely, I want to do a program that provides and stores the
>>> reverse of a number. For example:
>>>
>>> input: 12345
>>>
>>> result: 54321
>> var S : string ;
>> Str(N, S) ;
>> T := 0 ;
>> for J := 1 to S.length do T := T*10 + Ord(S[J]) - 48 ;
>> or
>> T = "" ;
>> for J := 1 to S.length do T = T + S[J] ;
>> Untested; adjustment may be needed.
>>
>>> Is there any way I can do casting in Turbo Pascal 7.1
>> No such version. To cast in TP/BP, read the manual.
>> I have no idea whether that code will work in on-topic Pascal; for
>>TP &
>> BP you should be using comp.lang.pascal.borland; see below; read FAQ.
>
>
>I want to use integral variables, not strings. That is, it is a
>calculation issue not only a display issue.
Then you should use
var S, T, X : longint ;
begin
T := 54321 ;
S := 0 ;
while T>0 do begin S := S * 10 + T mod 10 ; T := T div 10 end ;
writeln(S) end.
If that's coursework, perhaps you should consider a different career.
XP, FU set
--
(c) John Stockton, Surrey, UK. ?@[EMAIL PROTECTED]
Turnpike v6.05
MIME.
Web <URL:http://www.merlyn.demon.co.uk/>
- FAQish topics, acronyms, &
links.
For news:borland.*, use their server newsgroups.borland.com ; but first
read
Guidelines <URL:http://www.borland.com/newsgroups/guide.html>
ff. with
care.
|
