Pascal and Delphi

Please help me on Delphi.

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

Thread Solved

•

Join Date: Feb 2009

Posts: 93

Reputation: turbomen is an unknown quantity at this point

Solved Threads: 0

turbomen

Offline

Junior Poster in Training

Please help me on Delphi.

Jul 12th, 2009

Dear Sir,

Please help me on Delphi. Could you tell me how can I do the following question?

Calculate and display the sum of the even numbers from 2 to 20 inclusive.

Cheers,

•

Join Date: Feb 2009

Posts: 3,464

Reputation: sknake has much to be proud of

Solved Threads: 629

sknake

Offline

.NET Enthusiast

Re: Please help me on Delphi.

Jul 12th, 2009

 Help with Code Tags 
 delphi Syntax (Toggle Plain Text) 
procedure TForm1.Button1Click(Sender: TObject);
Var
  i1, iResult: Integer;
begin
  iResult := 0;
  for i1 := 2 to 20 do
  begin
    if ((i1 mod 2) = 0) then Inc(iResult, i1);
  end;
  ShowMessage(IntToStr(iResult));
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
  i1, iResult: Integer;
begin
  iResult := 0;
  for i1 := 2 to 20 do
  begin
    if ((i1 mod 2) = 0) then Inc(iResult, i1);
  end;
  ShowMessage(IntToStr(iResult));
end;

Scott Knake
Custom Software Development
Apex Software, Inc.

•

Join Date: Feb 2009

Posts: 473

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 114

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: Please help me on Delphi.

Jul 12th, 2009

Hi Turbomen

If you want to create a console application then this is also a solution

 Help with Code Tags 
 delphi Syntax (Toggle Plain Text) 
 
Program EvenOrNot;
 
{$APPTYPE CONSOLE}
 
Uses
  SysUtils;
 
Var i,counter:LongInt;
    TheOdds:Boolean; {true or false}
Begin
   i:=2;
   counter:=0;
   Write('The even numbers are: ');
   While i<=21 Do Begin
      TheOdds:=Odd(i);
      If (TheOdds=False) Then Begin
         Write(i,' ');
         counter:=counter+i;{increase *counter* by *i*}
      End;{of if}
      Inc(i,1); {increase *i* by 1}
   End;{of while}
   WriteLn; {put the cursor to the home of the next line}
   Write('Total : ',counter);
   ReadLn; {press enter to quit}
End. {of main}
{
-=Notes=-
ODD FUNCTION:Tests if the argument is an odd number.
DECLARATION: ODD(X:LONGINT):BOOLEAN;
THE ODD FUNCTION RETURNS *TRUE* IF *X* IS AN ODD NUMBER
-=End Of Notes=-
Created By FlamingClaw 2009.07.12
}
Program EvenOrNot;

{$APPTYPE CONSOLE}

Uses
  SysUtils;

Var i,counter:LongInt;
    TheOdds:Boolean; {true or false}
Begin
   i:=2;
   counter:=0;
   Write('The even numbers are: ');
   While i<=21 Do Begin
      TheOdds:=Odd(i);
      If (TheOdds=False) Then Begin
         Write(i,' ');
         counter:=counter+i;{increase *counter* by *i*}
      End;{of if}
      Inc(i,1); {increase *i* by 1}
   End;{of while}
   WriteLn; {put the cursor to the home of the next line}
   Write('Total : ',counter);
   ReadLn; {press enter to quit}
End. {of main}
{
-=Notes=-
ODD FUNCTION:Tests if the argument is an odd number.
DECLARATION: ODD(X:LONGINT):BOOLEAN;
THE ODD FUNCTION RETURNS *TRUE* IF *X* IS AN ODD NUMBER
-=End Of Notes=-
Created By FlamingClaw 2009.07.12
}

Last edited by FlamingClaw; Jul 12th, 2009 at 3:19 pm.

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: Feb 2009

Posts: 93

Reputation: turbomen is an unknown quantity at this point

Solved Threads: 0

turbomen

Offline

Junior Poster in Training

Re: Please help me on Delphi.

Jul 14th, 2009

Dear Sir,

Thank you for your kind help but could you mind telling me what is the meaning of the variable 'counter'?

Cheers,

•

Join Date: Feb 2009

Posts: 473

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 114

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: Please help me on Delphi.

Jul 14th, 2009

Hi Turbomen

We store the sum of the even numbers in the variable named *Counter*.
When the program is running first *Counter* 's value is zero.
Counter:=0;
*TheOdds* variable is holds a *true* or *false* value changed by the built in function Odd(i) that wait longint and send back boolean,true if *i* is odd and false if *i* is even number
If *TheOdds* is false then *i* is an even number,so the *Counter*'s value will increase by *i*
Counter:=Counter+i;
Else *Counter* stays unchanged