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

Registruoti nariai: 25,955
Naujausias narys: Johny

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Johny22:47:16
Reikalas 8 savaitės
Jaunelis14 savaitės
lanis15 savaitės
And2s16 savaitės
Memento Mori21 savaitės
ozzWANTED21 savaitės
Quwqkibor23 savaitės
asirija27 savaitės
tomeem29 savaitės
weberiz32 savaitės
mRokass35 savaitės
kartoonas36 savaitės
iaescortsmap36 savaitės
grunskiz38 savaitės
Bruksnys39 savaitės
illusion39 savaitės
ordo40 savaitės
Jurgaila41 savaitės
originalcs1641 savaitės

Informacija:


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

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

Majakas
2023 Gru. 10 19:12:39
Negaliu patikėti jog žinutės/pranešimai visi yra nuo 2008 m akinanti šypsen

Žmogus
2023 Rugs. 7 21:09:14
O gal BloodKiller pasijungs?

Š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: tekstas kintamasis ir tekstas vienoje eiluteje
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai
Autorius: mindis369 Peržiūrų: 2683      Spausdinti temą
2012 Sau. 13 18:01:26          1 žinutė iš 8
Spausdinti pranešimą
taigi turiu klausima.

reikia parasyti programa su if salyga,
programa parasiau paprasciausiu variantu, bet dabar noriu kad kintamaji ivesti iskart su tekstu. Nes dabar reikia parasyti pirma visus kintamuosius tada jau ismeta lentele su kintamaisiais ir tekstu kaip pavyzdiui stai:
10
10
10
pirmasis nuotykiu ieskotojas nese:10kg
antrasis nese 10kg
treciasis nese 10kg
isviso pernesta 30kg


Bet as noriu kad kintamaji reiktu irasyt iskart ir rezultatas eitu iskart. taip isejo padaryti,bet kg atsiranda kitoje eiluteje kaip pvz:

pirmasis aukso ieskotojas nese 10
kg

visaip bandziau ir writeln ir write bet kg visada kitoje eiluteje.

kas zino gal gali padeti kad kg atsidurtu toje pacioje eiluteje?

Jei kas neaiskiai parasyta paaiskinsiu isnaujo šypsosi esu tikrai zalias nes programavima mokausi tik 3 men del to kad i sule atejo normali mokytoja...

7 atsakymai:
2012 Sau. 13 18:01:21          2 žinutė iš 8
Spausdinti pranešimą
Bandyk ivestamas spausti space. Bent c++ taip iseina. Nes enter betkur perkeloa i kita eilute.
0
2012 Sau. 13 19:01:15          3 žinutė iš 8
Spausdinti pranešimą
nieko nesigauna geriausias variantas tik kad skaicius ir kg atsirastu vienoj eilutej
0
2012 Sau. 13 21:01:21          4 žinutė iš 8
Spausdinti pranešimą 

  Write('Pirmas:');

  Read(a);

  Write('Antras:');

  Read(b);

  Write('Trecias:');

  Read(c);
0

http://itouch.lt - iBendruomenė.
2012 Sau. 13 21:01:51          5 žinutė iš 8
Spausdinti pranešimą
Sakau kad su enter mygtuku auto persikele. Juk tam skirtas enter klavisas.
0
2012 Sau. 13 21:01:08          6 žinutė iš 8
Spausdinti pranešimą
jo enter nukelia bet dabar reikia sugalvot kanors kad nenukeltu nes space nepadeda...
0
2012 Sau. 14 00:01:35          7 žinutė iš 8
Spausdinti pranešimą
Galimas toks variantas, jei gerai aš supratau ko nori. šypsosi

WriteLn('Iveskite tris skaicius paeiliui');
ReadLn(a, b, c);

Na manau turėjei suprast minti. šypsosi
0

www.muz1ka.lt
2012 Sau. 14 11:01:16          8 žinutė iš 8
Spausdinti pranešimą 

program Bevarde3;

    var a, b, c : integer;

begin

  ReadLn(a);

  ReadLn(b);

  ReadLn(c);

  WriteLn('Pirmas ', a, ' kg');

  WriteLn('antras ', b, ' kg');

  WriteLn('trecias ', c, ' kg');

  WriteLn('isviso ', a+b+c, ' kg');

  Readln;

end.
0


Redagavo Žmogus 2012 Sau. 14 11:01:51
Peršokti į forumą: