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

Registruoti nariai: 25,968
Naujausias narys: Loretukas222

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Reikalas 3 savaitės
tanos 6 savaitės
LnKnPrK111 savaitės
inti13 savaitės
kileedyg20 savaitės
Kižas26 savaitės
Bruksnys27 savaitės
laleceylan5029 savaitės
minimukas29 savaitės
N-2032 savaitės
Rytis33 savaitės
DjArtas34 savaitės
WolfHammer34 savaitės
Nostesi44 savaitės
Wisedocs45 savaitės
asdasdddz48 savaitės
Paslapties K...49 savaitės
Audrius_1752 savaitės
Simbijanas64 savaitės
Karinacraft65 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 216.73.216.197
Naujienų: 529
Straipsnių: 235
Temų: 52,592
Postų: 522,552
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ų: 2999      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ą: