Reik dar pagalbos Paskalyje.

Sveiki, bandziau parasyti programa, kuri apskaiciuotu D = b2 − 4ac, x1 ir x2, bet niekaip neina suprast, kodel meta klaida? Ka rasiau ne taip? :huh:

 

program diskriminantas;

var a, b, c, d, x1, x2:integer;

begin

writeln('Iveskite a, b ir c reiksmes:');

readln(a);

readln(b);

readln©;

d:=b*b-4*a*c;

if d>0 then x1:=(-b-sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

writeln('Diskriminantas lygus: ' ,d, ' x1 lygu: ' ,x1, 'x2 lygu: ' ,x2)

else

if d<0 then writeln('Sprendiniu nera')

else

if d=0 then x1:=-b/(2*a);

writeln('Diskriminantas yra lygus: ' ,d, ', o x1 yra lygus: ' ,x1);

readln;

end.

Sveiki, bandziau parasyti programa, kuri apskaiciuotu D = b2 − 4ac, x1 ir x2, bet niekaip neina suprast, kodel meta klaida? Ka rasiau ne taip? :huh:

 

program diskriminantas;

var a, b, c, d, x1, x2:integer;

begin

writeln('Iveskite a, b ir c reiksmes:');

readln(a);

readln(b);

readln©;

d:=b*b-4*a*c;

if d>0 then x1:=(-b-sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

writeln('Diskriminantas lygus: ' ,d, ' x1 lygu: ' ,x1, 'x2 lygu: ' ,x2)

else

if d<0 then writeln('Sprendiniu nera')

else

if d=0 then x1:=-b/(2*a);

writeln('Diskriminantas yra lygus: ' ,d, ', o x1 yra lygus: ' ,x1);

readln;

end.

 

 

x1 ir x2 turi būt ne sveiko tipo (integer), o realūs, nes atliekama dalyba.

program diskriminantas;
var a, b, c, d, x1, x2:integer;
begin
writeln('Iveskite a, b ir c reiksmes:');
readln( a );
readln( b );
readln( c );
d:=b*b-4*a*c;
if d>0 then x1:=(-b-sqrt(d))/(2*a)
x2:=(-b+sqrt(d))/(2*a);
writeln('Diskriminantas lygus: ' ,d, ' x1 lygu: ' ,x1, 'x2 lygu: ' ,x2)
else
if d<0 then writeln('Sprendiniu nera')
else
if d=0 then x1:=-b/(2*a);
writeln('Diskriminantas yra lygus: ' ,d, ', o x1 yra lygus: ' ,x1);
readln;
end.

 

Pabandyk taip :)

program diskriminantas;

var a, b, c, d, x1, x2:real;

begin

writeln('Iveskite a, b ir c reiksmes:');

readln(a,b,c);

 

d:=b*b-4*a*c;

 

if d < 0 then writeln('Sprendiniu nera')

else

 

if d > 0 then

begin

x1:=(-b-sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

writeln('Diskriminantas lygus: ' ,d:1:0, ' x1 lygu: ' ,x1:1:0, ' x2 lygu: ' ,x2:1:0)

end

else

 

if d = 0 then

begin

x1:=-b/(2*a);

writeln('Diskriminantas yra lygus: ' ,d:1:1, ', o x1 yra lygus: ' ,x1:1:1);

end;

readln;

end.

 

 

Va, šitas variantas veikia 100% :))

Redagavo Rugsėjo 18, 2011 extremist

pakeiciau x1 ir x2 i real, bet vistiek klaida ties else ismeta, o ir kiti neveikia kas badet taisyt. :/

pakeiciau x1 ir x2 i real, bet vistiek klaida ties else ismeta, o ir kiti neveikia kas badet taisyt. :/

 

Kokią būtent klaidą?

Kokią būtent klaidą?

ties situo klaida:

 

writeln('Diskriminantas lygus: ' ,d, ' x1 lygu: ' ,x1, 'x2 lygu: ' ,x2)
else

 

jei as zinociau kokia tai manau temos nebuciau kures. :)

kabliataškis?

kabliataškis?

jei neklystu pries else nereik kabliataskio. :)

 

P.S Dekui kas padejot, sudejau atsakymus i viena visuma ir supratau ka dariau ne taip. :D

pakeiciau x1 ir x2 i real, bet vistiek klaida ties else ismeta, o ir kiti neveikia kas badet taisyt. :/

 

Nusikopink mano parašytą programą ir rami galva :)

Nusikopink mano parašytą programą ir rami galva :)

 

Šį kartą nebesuks, o kitą kartą? Vėl klaus? Tegul bando suprast, daug naudingiau bus.

Šį kartą nebesuks, o kitą kartą? Vėl klaus? Tegul bando suprast, daug naudingiau bus.

 

Na taip, čia nelygu, kaip pažiūrėsi :) priklauso nuo žmogaus

Dar noreciau paklaust. Gal kas zino kaip padaryt, kad programa apskaiciavus ka reik neissijunktu t.y kai suvedu duomenis ji apskaiciuoja ka reik ir kad nereiktu jos perkraut, galeciau vel vest duomenis ir ji man skaiciuotu toliau? :)

pabaigoje yra readln eilutė. Prieš paskutinį end. ReadLn nukopink ir antrą kart po juo parašyk ir viskas ok bus :)

PVZ:

program diskriminantas;

var a, b, c, d, x1, x2:real;

begin

writeln('Iveskite a, b ir c reiksmes:');

readln(a,b,c);

 

d:=b*b-4*a*c;

 

if d < 0 then writeln('Sprendiniu nera')

else

 

if d > 0 then

begin

x1:=(-b-sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

writeln('Diskriminantas lygus: ' ,d:1:0, ' x1 lygu: ' ,x1:1:0, ' x2 lygu: ' ,x2:1:0)

end

else

 

if d = 0 then

begin

x1:=-b/(2*a);

writeln('Diskriminantas yra lygus: ' ,d:1:1, ', o x1 yra lygus: ' ,x1:1:1);

end;

readln;

readln;

end.

Tai, kad užtenka ir vieno readln; pabaigoje. Dviejų daryti tikrai nereikia ;)

Ai, ne taip supratau truputi :D jeigu nori pastoviai vesti duomenis, tai naudok WHILE ciklą :) tik sugalvok kaip ji pabaikt :D

Ai, ne taip supratau truputi :D jeigu nori pastoviai vesti duomenis, tai naudok WHILE ciklą :) tik sugalvok kaip ji pabaikt :D

 

 

Labai paprastai: įvesti ne skaičių, tada programa tiesiog nulūš. :-)

Beje, jeigu tiksliau, tai reikia naudoti kažką panašaus į:

while true do
 // visas programos kodas
end;

Labai paprastai: įvesti ne skaičių, tada programa tiesiog nulūš. :-)

Beje, jeigu tiksliau, tai reikia naudoti kažką panašaus į:

while true do
 // visas programos kodas
end;

 

Leidau pagavoti pačiam :) tegu mokosi, nes tik pats galvodamas padarysi, ką reikia gerai ir kitą kart mokėsi