Reikia kad patikrintumet ir patartumet.

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 ;)

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).

na man del rasimo ,negaila, as galiu rasyt, tesiog reikia tikrai zinot 100% kad nebus jokiu trukumu, ne prie ko neprikibs

p.s. o parasiau viska tvarkoi ? ;DD (neiskaitant to islyginimo privalomo?)

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.

bet ten kur -c, jei max (a,b) >= c

cia nera svarbu?

ka kiti pasakys? ;)

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. :)

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.

Taip pat po kablelio visada reiktų dėti tarpą.

sita wersija kuria wuss parase, tai taisynga bus? nunesiau ta auksiau kur, tai jo, prikibo, kad blogai parasyta, tipo suma skaicioja, tai vat, . wuss gera , jo ?