Pereiti prie turinio

Reikia kad patikrintumet ir patartumet.


Rekomenduojami pranešimai

Sveiki.

 

 

Namu darbu uzdave parasyti programa is pascal, ji atrodo taip:

 

 

 

Parasiau programa, veikia, ji atrodo taip:

 

 

 

program nd;
  var a,b,c,:integer;
  begin
  writeln('ivesk pirma sk.');
  readln(a);
  writeln('ivesk antra sk.');
  readln(b);
  writeln('ivesk trecia sk.');
  readln(c);
  if a+b<c then writeln ('y=c');
  if a+b>=c then writeln ('y=-c');
  readln;
  end.

 

 

Noreciau kad istaisytumet visus lygiavimus, kurie yra privalomi, ir dar neesu tikras del to atsakymo pateikimo, pwz writeln ('y=c'); gal reikia writeln ('y= ', c); ??

 

 

Uz kiekviena smulkmena nuema balus :) tad prasau padeti damust sita ;)

Redagavo K4Tsis
Nuoroda į pranešimą
Dalintis kituose puslapiuose

program namu_darbai;
  var a, b, c : integer;
Begin
  writeln('ivesk pirma sk.');
  readln(a);
  writeln('ivesk antra sk.');
  readln(b);
  writeln('ivesk trecia sk.');
  readln(c);
  if a+b<c then writeln ('y=',c);
  if a+b>=c then writeln ('y=',-c);
  readln;
end.

 

Manau tiks ;) Nors buvo galima ta pati trumpiau padaryti (maziau rasant).

Redagavo Lin3R
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Na nezinau ar prikibs. Siaip viskas atrodo tvarkoj, bet butu galima kazkiek patobulinti pvz.: vietoj dvieju salyginiu sakiniu daryti viena (If ... then ... else...). na as daryciau taip:

program namu_darbai;
  var a, b, c : integer;
Begin
  writeln('Įveskite tris skaičius');
  readln(a, b, c);
  If a + b < c 
   then writeln ('y=',c)
   else writeln ('y=',-c);
  readln;
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

program namu_darbai;
  var a, b, c : integer;
Begin
  writeln('Įveskite tris skaičius');
  readln(a, b, c);
  If a + b < c
   then writeln ('y=',c) 
   else writeln ('y=',-c); {cia ir bus tas atvejas kai a + b >= c}
  readln; {sitas tik ant windows, bet ir tai nebutinas, langa atidaryt galima perziurai, jei uzsidare, ant linux nerasoma tokiu}
end.

 

Maždaug pakomentavau kas dėl ko, nors spėju jau nebereike. :)

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Kažkaip įdomiai atrodo, uždavinyje rašo max(a,b), o jūs skaičiuojat sumą :)

neturėtų būti:

 

program namu_darbai;
uses math;
  var a, b, c : integer;
Begin
  writeln('Įveskite tris skaičius');
  readln(a, b, c);
  If max(a,b) < c
   then writeln ('y=',c) 
   else writeln ('y=',-c); {cia ir bus tas atvejas kai a + b >= c}
  readln; {sitas tik ant windows, bet ir tai nebutinas, langa atidaryt galima perziurai, jei uzsidare, ant linux nerasoma tokiu}
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Sukurti naują...

Svarbi informacija

Informuojame, kad šiame puslapyje naudojami slapukai (angl. cookies). Sutikdami, paspauskite mygtuką „Sutinku“ arba naršykite toliau. Savo duotą sutikimą bet kada galėsite atšaukti pakeisdami savo interneto naršyklės nustatymus ir ištrindami įrašytus slapukus.