Parašė audrius159· 2012 Geg. 8 22:05:19
#1
Sveiki, reiktų man truputi pagalbos.
Ką reiktų pataisyti šioje programoje, kad man išvestų visus ciklo atsakymus ,o ne paskutinį ciklo atsakymą.
Va čia programa.
program Bevardė51;
var tr, ma : text;
n, k, i, j : integer;
s, atk : real;
begin
assign (tr,'troleibusai.txt'); Reset (tr);
Read (tr, n);
for i := 1 to n do //troleibusų skaičius
begin
s := 0;
Read (tr, k);
for j := 1 to k - 1 do //keliose stotyse troleibusas buvo sustojęs
begin
Read (tr, atk);
s := s + atk; //apskaičiuojama kiek troleibusas nuvažiavo išviso
end;
Assign (ma,'maršrutai.txt'); Rewrite (ma);
Write (ma, s:6:2);
close (ma);
end;
close (tr);
Readln;
end.
Parašė AivarasZs· 2012 Geg. 8 22:05:57
#2
Nelabai nusimanau paschal'i, bet pagal viską jei nori kad visus atsakymus išvestų tai pačiam cikle išvesk.
Parašė audrius159· 2012 Geg. 9 16:05:09
#3
Taip cikle yra. Pakeitus ,kad išvestų atsakymus vykdant programoje viskas tvarkoje, bet kai noriu ,jog išvestų i atskirą failą, tada jau tik paskutinį ciklo sakinį išveda.