Padėkit rasti klaidą (Pascal)

Sveiki, reikalinga jūsų pagalbą. Norėčiau parašyti procedurą, kad ji man skaičiuotų suma, bet programa man atvaizduoja 0. Gal kas nors galit rasti klaidą ir žino kaip išspręsti ją.

Mano kodas:

program Noname3;
var Df,Rf:text;
i,n,s:integer;
namas,gyventojai:array[1..50] of integer;
//-------------------
procedure viso(ii:integer);
begin
s:=0;
s:=s+gyventojai[ii];
end;
//-------------------------------
begin

 Assign(Df,'duom.txt');
 Reset(Df);
 Readln(Df,n);
 for i:=1 to n do begin
 Readln(Df,namas[i], gyventojai[i]);
    viso(i);
end;

Close(Df);
Assign(Rf,'rez.txt');
Rewrite(Rf);
Writeln(Rf,s);

Close(Rf);
end.

Duomenu failas:

10
1 5
2 4
3 4
4 5
5 6
6 5
7 0
8 0
9 5
10 0

Blogai nuskaitai iš failo

Sveiki, reikalinga jūsų pagalbą. Norėčiau parašyti procedurą, kad ji man skaičiuotų suma, bet programa man atvaizduoja 0. Gal kas nors galit rasti klaidą ir žino kaip išspręsti ją.

 

Mano kodas:

program Noname3;
var Df,Rf:text;
i,n,s:integer;
namas,gyventojai:array[1..50] of integer;
//-------------------
procedure viso(ii:integer);
begin
s:=0;
s:=s+gyventojai[ii];
end;
//-------------------------------
begin

 Assign(Df,'duom.txt');
 Reset(Df);
 Readln(Df,n);
 for i:=1 to n do begin
 Readln(Df,namas[i], gyventojai[i]);
	viso(i);
end;

Close(Df);
Assign(Rf,'rez.txt');
Rewrite(Rf);
Writeln(Rf,s);

Close(Rf);
end.

 

Duomenu failas:

 

10
1 5
2 4
3 4
4 5
5 6
6 5
7 0
8 0
9 5
10 0

nelabai pamenu pascal'io, bet manau klaida čia

procedure viso(ii:integer);
begin
s:=0;
s:=s+gyventojai[ii];
end;

kiekvieną kartą iškviečiant funkciją suma yra nunulinama.

Paskutiniame name 0 gyventojų, taigi atsakymas ir gaunasi galutinis 0.

program Noname3;
var Df,Rf:text;
i,n,s:integer;
namas,gyventojai : array[1..50] of integer;
//-------------------
procedure viso;
var i : integer;
begin
s := 0;
for i := 1 to n do
   s += gyventojai[i];
end;
//-------------------------------
begin

 Assign(Df,'duom.txt');
 Reset(Df);
 Readln(Df,n);
 for i:=1 to n do
 Readln(Df,namas[i], gyventojai[i]);
 viso;

Close(Df);
Assign(Rf,'rez.txt');
Rewrite(Rf);
Writeln(Rf,s);

Close(Rf);
end.

ciklą persuk procedūroje, kad suma gautum. pataisiau čia truputi.

su nuskaitymu tai viskas čia gerai.

Viskas jau veikia. Šią temą prašau nutrinti.

program Noname3;
var Df,Rf:text;
i,n,s:integer;
namas,gyventojai : array[1..50] of integer;
//-------------------
procedure viso;
var i : integer;
begin
s := 0;
for i := 1 to n do
   s += gyventojai[i];
end;
//-------------------------------
begin

 Assign(Df,'duom.txt');
 Reset(Df);
 Readln(Df,n);
 for i:=1 to n do
 Readln(Df,namas[i], gyventojai[i]);
 viso;

Close(Df);
Assign(Rf,'rez.txt');
Rewrite(Rf);
Writeln(Rf,s);

Close(Rf);
end.

ciklą persuk procedūroje, kad suma gautum. pataisiau čia truputi.

Tai, kad procedūra negrąžia parametro t.y. nieko nepadaro šiuo atveju.

program Noname3;
var Df,Rf:text;
i,n,s:integer;
namas,gyventojai : array[1..50] of integer;
//-------------------
procedure viso(var s : integer);
var i : integer;
begin
s := 0;
for i := 1 to n do
   s += gyventojai[i];
end;
//-------------------------------
begin

 Assign(Df,'duom.txt');
 Reset(Df);
 Readln(Df,n);
 for i:=1 to n do
 Readln(Df,namas[i], gyventojai[i]);
 viso(s);

Close(Df);
Assign(Rf,'rez.txt');
Rewrite(Rf);
Writeln(Rf,s);

Close(Rf);
end.

dabar gražina, aš čia net procedūros nerašyčiau. bet jei jam taip gerai tai tegul rašo.

Prašau nerašyti šioje temoje, nes problema jau išspręsta. Moderatoriai, uždarykit šią temą!