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ų: 322
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Reikalas12:46:50
MaFetas 2 savaitės
ozzWANTED 3 savaitės
saulyzas 5 savaitės
TOMIJUS 6 savaitės
Jaunelis22 savaitės
lanis22 savaitės
And2s23 savaitės
Memento Mori28 savaitės
Quwqkibor30 savaitės
asirija34 savaitės
tomeem36 savaitės
weberiz39 savaitės
mRokass42 savaitės
kartoonas43 savaitės
grunskiz46 savaitės
Bruksnys46 savaitės
illusion46 savaitės
ordo47 savaitės
Jurgaila48 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.133.153.224
Naujienų: 529
Straipsnių: 235
Temų: 52,589
Postų: 522,538
Postų pask. parą: 1
Shout'ų pask. parą: 0
P.S.C. pask. parą: 1
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.

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

MaFetas
2024 Lap. 13 22:11:57
hey how, geras dar veikiantis saitas?

Jaunelis
2024 Lie. 25 11:07:43
Oho vis dar veikia svetainė akinanti šypsen Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas šypsosi

And2s
2024 Lie. 17 19:07:04
2008 pirmą kart čia patekau, man buvo 10m ir čia pramokau programavimo.. smagu skaityti senas žinutes, tokia nostalgija akinanti šypsen ačiū Ozz kad saugoji šitą kultūrinį reliktą šypsosi

ozzWANTED
2024 Sau. 17 01:01:00
Desperatiškus komentarus šaukykloje su accountu po mėnesio prasibuvimo, ištryniau. Pasaulis ir taip juodas. Įjungiam šviesą, prašviesės. š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ų: 2360      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ą: