Navigacija

Namai Forumas PAIEŠKA ! ! Pagrindinės temos ! Nuorodų katalogas Didž. Php-F saitai Kontaktai
NAUDINGA
Straipsniai DUK Siuntimai Skriptų biblioteka Modai, dizainai Modai šiame saite D.U.K. Informacija Hostingai Domenai
Naudotojo vadovas v7 V6 ir V7 galimybių palyginimas DEMO
NUORODOS
Modifikacijos, panelės Temos/dizainai
PASLAUGOS
Reklama VIP hostingas
Pask. komentarai Administracija

Vartotojų tinkle

Prisijungusių svečių: 82
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,959
Naujausias narys: Simbijanas

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Reikalas 2 dienos
Simbijanas 7 savaitės
Karinacraft 7 savaitės
Žmogus11 savaitės
Bruksnys15 savaitės
Darexs17 savaitės
Nepas18 savaitės
keistuole20 savaitės
Gizmis22 savaitės
Rytis31 savaitės
MaFetas35 savaitės
ozzWANTED37 savaitės
saulyzas39 savaitės
TOMIJUS40 savaitės
Jaunelis55 savaitės
lanis55 savaitės
And2s56 savaitės
Memento Mori61 savaitės
Quwqkibor63 savaitės
asirija67 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 216.73.216.166
Naujienų: 529
Straipsnių: 235
Temų: 52,589
Postų: 522,547
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo
Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

Žmogus
2025 Geg. 31 10:05:18
Kas geresnio? šypsosi

Nepas
2025 Bal. 9 17:04:13
drovus

Nepas
2025 Bal. 9 17:04:08
drovus

Gizmis
2025 Kov. 15 14:03:50
OMG, smagu matyt sita puslapi veikianti

ozzWANTED
2024 Lap. 30 15:11:14
Taip, vis dar up šypsosi

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
Pascal: Reiktų pagalbos
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai
Autorius: audrius159 Peržiūrų: 2590      Spausdinti temą
2012 Geg. 8 22:05:19          1 žinutė iš 4
Spausdinti pranešimą
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.

3 atsakymai:
2012 Geg. 8 22:05:57          2 žinutė iš 4
Spausdinti pranešimą
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.
2012 Geg. 9 16:05:09          3 žinutė iš 4
Spausdinti pranešimą
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
2012 Geg. 9 19:05:53          4 žinutė iš 4
Spausdinti pranešimą
Tai į ciklo vidų įdėk įrašymą failų
0
Peršokti į forumą: