13 replies to this topic

[marreco]

Hi.

I need to get the sum of the ages.

Program Aula11_Exc01;
Var
idade:Array[1..5] of Integer;
soma, i:Integer;

Begin
	 For i:= 1 To 5 Do
Begin
Writeln('Enter the age...',i);
	 Readln(idade[i]);
	 End;
	 soma:= i + soma;
	 Writeln('The sum of the ages is ',soma);
	 Readln;
End.

can anyone help me?

thank you!

[Luthfi]

You need another loop to sum the content of idade array. Or you can do the summing inside the first loop right after you got the input. Just don't forget to "reset" soma variable to 0 prior entering the loop.

[WingedPanther73]

Any reason why you're storing the ages in an array, rather than just summing them as you go?

[marreco]

Hi.
I have no concept of logic programming,'m apredendo.


it was an exercise.

I could not fit it.

Do I need an algorithm using vectors, which receive and store the age of 5 persons and at the end shows the sum of all ages entered.

[VNFox]

If you're looking at this
soma:= i + soma;


I see that you're adding i instead the array of i. Make sure it's the array of i, that should solve your issue.

[marreco]

Hi.

and how do I do it?

[WingedPanther73]

A typical approach is to have two variables: input and sum. You initialize sum to 0, then start reading ages into input inside a loop. For each input, you set sum:= sum+input.

[marreco]

WingedPanther, you could send me an example?

I'm beginner in pascal.

Thank you!

[VNFox]

Here right here:

For i:= 1 To 5 Do
Begin
Writeln('Enter the age...',i);
		 Readln(idade[i]);
		 soma:= idade[i] + soma;
End;

Writeln('The sum of the ages is ',soma);

something like that

[marreco]

Hi.


now it worked!!

thank you very much!!

[Orjan]

Hi.


now it worked!!

thank you very much!!

Do you understand the difference between your code and VNFox code?

[marreco]

hi, Orjan
I noticed that the structure put in 'For' ... if you want me explain, I'll be grateful!!

But I gotta tell you something.
1st I do almost nothing Logic programming, I'm trying to learn.

2nd I live in Brazil and I do not know English.

and how do I put this post as 'Solved'??