Pascal and Delphi

Containing numbers - how?

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Sep 2009

Posts: 8

Reputation: marygreen is an unknown quantity at this point

Solved Threads: 0

marygreen

Offline

Newbie Poster

Containing numbers - how?

-1

Oct 2nd, 2009

Hello guys and girls.

Any idea how to find containing numbers of one specific number. For example number 10:

10 = 9+1
10 = 8+2
10 = 7+3
…
…

I tried to do something like ‘random(10)’ but got nowhere with that.

Cheers to all,
marygreen

•

Join Date: Feb 2009

Posts: 468

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 113

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: Containing numbers - how?

Oct 2nd, 2009

10 = 9+1
10 = 8+2
10 = 7+3

Where do you want to search?Where do you store them,in string?

Be a good part of the community.Don't be ungrateful.
If you ask something on the forum and you got the right answer then mark as solved!
If my opinion helped to you a lot then sometimes give reputation point to me.
I'm just a pascal programmer from Hungary.
Farewell...

•

Join Date: Sep 2009

Posts: 8

Reputation: marygreen is an unknown quantity at this point

Solved Threads: 0

marygreen

Offline

Newbie Poster

Re: Containing numbers - how?

Oct 2nd, 2009

Hi FalmingClaw.

Need to generate them and print them in a memo.

•

Join Date: Sep 2009

Posts: 8

Reputation: marygreen is an unknown quantity at this point

Solved Threads: 0

marygreen

Offline

Newbie Poster

Re: Containing numbers - how?

Oct 3rd, 2009

Never mind. I did it this way:

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
begin
C.value:=10;
while num1.value<c.value do
begin
num1.value:=num1.value+1;
num2.value:=c.value-num1.value;
memo1.lines.add((floattostr(num1.value))+'__'+(floattostr(num2.value)));
end;
if (num1.value=c.Value) then
begin
showmessage('Done');
end;
end;
begin
C.value:=10;
while num1.value<c.value do
begin
num1.value:=num1.value+1;
num2.value:=c.value-num1.value;
memo1.lines.add((floattostr(num1.value))+'__'+(floattostr(num2.value)));
end;
if (num1.value=c.Value) then
begin
showmessage('Done');
end;
end;