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

Registruoti nariai: 25,966
Naujausias narys: LnKnPrK1

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

LnKnPrK1 4 dienos
inti 2 savaitės
kileedyg 9 savaitės
Reikalas15 savaitės
Kižas15 savaitės
Bruksnys17 savaitės
laleceylan5018 savaitės
minimukas19 savaitės
N-2021 savaitės
Rytis22 savaitės
DjArtas23 savaitės
WolfHammer23 savaitės
Nostesi33 savaitės
Wisedocs34 savaitės
asdasdddz37 savaitės
Paslapties K...38 savaitės
Audrius_1741 savaitės
Simbijanas53 savaitės
Karinacraft54 savaitės
Žmogus57 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 216.73.216.48
Naujienų: 529
Straipsnių: 235
Temų: 52,591
Postų: 522,551
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.

LnKnPrK1
2026 Bir. 21 09:06:52
Sveiki, gal kas is administracijos gali parasyti man PM,aciu

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

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