Turbo pascal help please

[Blackvault]

Hello there.

I'm a bit stuck with some programming and was looking for a bit of help please.

Is there any way for pascal to read a set of numbers eg:

12304

And only read the last two digits?

04

Thanks

Blackvault

 

[RockLobster]

Hi BlackVault

It's been a bloody long time since I done some Pascal programming. But I will try my best. Someone might provide you with a better solution. First I think you will have to convert it to a String unless it already is.

program StringTest; 
var
   s: String;
   YourNumber: Integer;

function RightStr(
  const S: String;
   Count: Integer
 ):String;
 
begin
   YourNumber := 12304;
   Str(YourNumber,s);
   Writeln (RightStr(s,2));
end.

The syntax might be slightly wrong it has been years but you get the idea.

 

[Blackvault]

Thanks RockLobster. I'll give it a try

Blackvault

 

[Blackvault]

Just had a check mate and that str function doesn't seem to work

 

[rpstewart]

And only read the last two digits?

If the 5 digit number is in a numeric data type variable then it should just be a case of doing a MOD by 100.

 

[Blackvault]

If the 5 digit number is in a numeric data type variable then it should just be a case of doing a MOD by 100.

How will that find the last two numbers? I'm only getting it to return one number based on what you mentioned. It's discarding the 0 in 04 for example

Blackvault

 

[rpstewart]

If you want to display 04 then you'll need to convert it to a string at some point anyway so just check if it's less than ten and prefix a zero if it is.

 

[RockLobster]

http://math.uww.edu/~harrisb/courses/cs171/strings.html - This might help.

From the above link apparently there's a copy function in Pascal: -

   YourNumber := 12304;
   Str(YourNumber,s);
   Part := Copy(YourNumber, Length(YourNumber-2), 2); 
   Writeln(Part);

But having not used Pascal for years I don't know what in-built string functions there are.