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

Registruoti nariai: 25,963
Naujausias narys: WolfHammer

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

minimukas21:36:37
N-20 2 savaitės
Reikalas 2 savaitės
Rytis 2 savaitės
DjArtas 3 savaitės
WolfHammer 4 savaitės
Nostesi14 savaitės
Wisedocs14 savaitės
asdasdddz18 savaitės
Paslapties K...19 savaitės
Audrius_1721 savaitės
Simbijanas34 savaitės
Karinacraft34 savaitės
Žmogus38 savaitės
Bruksnys42 savaitės
Darexs44 savaitės
Nepas45 savaitės
keistuole47 savaitės
Gizmis49 savaitės
MaFetas62 savaitės

Informacija:


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

minimukas
2026 Vas. 21 08:02:25
oi oi akinanti šypsen yra dar cia gyvu? akinanti šypsen

N-20
2026 Vas. 6 21:02:05
O mes dar gyvi šypsosi)

WolfHammer
2026 Sau. 25 01:01:35
drovus

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

Nepas
2025 Bal. 9 17:04:13
drovus

Š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ų: 2756      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ą: