"Odd" TP question

Delphi Developer

Wed, 18 Jun 1902 08:00:00 GMT

"Odd" TP question

Hello
I am new at programing and there is one review question in my TP manual that
has been bothering me for the past couple of days, ive tried many different
things and am wondering why they dont work. maybe someone can help:

Question:

Write a problem that finds the sum of all odd numbers between 1 and a number
entered by the user. (Hint: You will need a statement inside the loop to
check each number, using MOD 2 to determine if it is odd.)

would someone please solve this for me and explain it. Thank you.
I am having trouble making the program recognize odd numbers, the output
returned is usually 0 1 0 1 0 1 and so on...

wholyCow
wholy...@tekkenking.com

Klaas de Jo

Delphi Developer

Wed, 18 Jun 1902 08:00:00 GMT

Re:"Odd" TP question

Quote

On Thu, 12 Nov 1998 02:33:58 GMT, "-" <1...@spamers-suck.com> wrote:
>Hello
>I am new at programing and there is one review question in my TP manual that
>has been bothering me for the past couple of days, ive tried many different
>things and am wondering why they dont work. maybe someone can help:

>Question:

>Write a problem that finds the sum of all odd numbers between 1 and a number
>entered by the user. (Hint: You will need a statement inside the loop to
>check each number, using MOD 2 to determine if it is odd.)

>would someone please solve this for me and explain it. Thank you.
>I am having trouble making the program recognize odd numbers, the output
>returned is usually 0 1 0 1 0 1 and so on...

>wholyCow
>wholy...@tekkenking.com

Since this question is already answered elsewhere in this thread, just
another question from me: Why is it that if you get a question like
this for homework, your teacher is never really happy if you _really_
solve the problem:

Program Test;

Var
Upper: Integer;
N : Integer;

Begin
Write ('Enter upper limit: ');
Readln (Upper);
N := Upper div 2;
If (Upper mod 2) = 1 Then Inc (N);
Writeln ('Sum of odd numbers from 1 to ', Upper, ' is: ', N * N);
End.

Klaas
---
Sorry, couldn't resist it :-)

Other Threads

1. "Odd" TP question

2. Question about "TBandForm","TDeskBandInfo"?

3. The keys "-"/"+"/"*"

4. "odd" statement

5. Odd "View Unit" problem

6. "data" statement in TP

7. TP 6.0 IDE "patch"

8. Finally, our "own" TP/BP newsgroup

9. ""256 Color Mouse""

10. How to initialize "Text"-Property without raising "OnChange"-event