Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: tekstas kintamasis ir tekstas vienoje eiluteje

Parašė mindis369· 2012 Sau. 13 18:01:26
#1
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 :) esu tikrai zalias nes programavima mokausi tik 3 men del to kad i sule atejo normali mokytoja...

Parašė KiraLT· 2012 Sau. 13 18:01:21
#2
Bandyk ivestamas spausti space. Bent c++ taip iseina. Nes enter betkur perkeloa i kita eilute.

Parašė mindis369· 2012 Sau. 13 19:01:15
#3
nieko nesigauna geriausias variantas tik kad skaicius ir kg atsirastu vienoj eilutej

Parašė edeni· 2012 Sau. 13 21:01:21
#4

  Write('Pirmas:');
  Read(a);
  Write('Antras:');
  Read(b);
  Write('Trecias:');
  Read(c);

Parašė KiraLT· 2012 Sau. 13 21:01:51
#5
Sakau kad su enter mygtuku auto persikele. Juk tam skirtas enter klavisas.

Parašė mindis369· 2012 Sau. 13 21:01:08
#6
jo enter nukelia bet dabar reikia sugalvot kanors kad nenukeltu nes space nepadeda...

Parašė s1Nk· 2012 Sau. 14 00:01:35
#7
Galimas toks variantas, jei gerai aš supratau ko nori. :)

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

Na manau turėjei suprast minti. :)

Parašė Žmogus· 2012 Sau. 14 11:01:33
#8
Neįšeina taip ant pascal kaip nori

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.
Redagavo Žmogus· 2012 Sau. 14 11:01:07

Parašė Žmogus· 2012 Sau. 14 11:01:16
#9

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.
Redagavo Žmogus· 2012 Sau. 14 11:01:51