Pradinis
Pagalba
Užsisakyk!
- Reklamą
- Hostingą
- El. pašto dėžutę
Užsisakyk!
Įrankiai
Pasidalink
- Visos temos
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai |
Autorius: audrius159 | Peržiūrų: 2288 |
audrius159 Narys Patrankų mėsa Pranešimai: 4 Įstojęs: 2012 Geg. 4 21:05:22 | |
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. |
AivarasZs Narys Buldozeris Pranešimai: 252 Įstojęs: 2010 Rugp. 13 10:08:03 | |
Nelabai nusimanau paschal'i, bet pagal viską jei nori kad visus atsakymus išvestų tai pačiam cikle išvesk. 0 Don't fuck your self. |
|
audrius159 Narys Patrankų mėsa Pranešimai: 4 Įstojęs: 2012 Geg. 4 21:05:22 | |
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. 0 |
|
Žmogus Narys Viršesnis už Dievą Pranešimai: 5621 Įstojęs: 2006 Gru. 8 17:12:08 | |
Tai į ciklo vidų įdėk įrašymą failų 0 |
Peršokti į forumą: |