Pereiti prie turinio

Pascal 207 klaida


Rekomenduojami pranešimai

Sveiki, informatikos nd gavau padaryt programa kuri isprestu kvadratine lygti viska lyg ir gerai parasiau, bet meta klaida 207, stai kodas:

 

program Bevarde0;
 uses crt;
 var a, b, c, dis, sak, x1, x2:real;
begin
 ClrScr;
 WriteLn('Iveskite kintamuju koeficientus');
 ReadLn(a, b, c);
 dis := (b*b) - 4 * a * c;
 sak := sqrt(dis);
 x1 := (-b - sak) / (2 * a);
 x2 := (-b + sak) / (2 * a);
 WriteLn('x pirmas= ', x1, 'x antras= ', x2);
 Readln;
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Sveiki, informatikos nd gavau padaryt programa kuri isprestu kvadratine lygti viska lyg ir gerai parasiau, bet meta klaida 207, stai kodas:

 

program Bevarde0;
 uses crt;
 var a, b, c, dis, sak, x1, x2:real;
begin
 ClrScr;
 WriteLn('Iveskite kintamuju koeficientus');
 ReadLn(a, b, c);
 dis := (b*b) - 4 * a * c;
 sak := sqrt(dis);
 x1 := (-b - sak) / (2 * a);
 x2 := (-b + sak) / (2 * a);
 WriteLn('x pirmas= ', x1, 'x antras= ', x2);
 Readln;
end.

 

 

Nes netikrini ar diskriminantas ne minusinis, nes jei minusinis saknies negalima traukti ;)

Nuoroda į pranešimą
Dalintis kituose puslapiuose

program Bevarde0;

uses crt;

var a, b, c, dis, sak, x1, x2:real;

begin

ClrScr;

WriteLn('Iveskite kintamuju koeficientus');

ReadLn(a, b, c);

dis := (b*b) - 4 * a * c;

If dis < 0

then writeln('Sprendiniu nera')

else sak := sqrt(dis);

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

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

WriteLn('x1= ', x1:1:1, ' ', 'x2= ', x2:1:1);

Readln;

end.

 

Kaip padaryt, kad parasytu sprendiniu nera ir nebemestu x1 ir x2?

Redagavo unrixas1
Nuoroda į pranešimą
Dalintis kituose puslapiuose

program Bevarde0;

uses crt;

var a, b, c, dis, sak, x1, x2:real;

begin

ClrScr;

WriteLn('Iveskite kintamuju koeficientus');

ReadLn(a, b, c);

dis := (b*b) - 4 * a * c;

If dis < 0

then writeln('Sprendiniu nera')

else sak := sqrt(dis);

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

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

WriteLn('x1= ', x1:1:1, ' ', 'x2= ', x2:1:1);

Readln;

end.

 

Kaip padaryt, kad parasytu sprendiniu nera ir nebemestu x1 ir x2?

else
       begin
          sak := sqrt(dis);
          x1 := (-b - sak) / (2 * a);
          x2 := (-b + sak) / (2 * a);
          WriteLn('x1= ', x1:1:1, '   ', 'x2= ', x2:1:1);
       end; 

Nuoroda į pranešimą
Dalintis kituose puslapiuose
program Bevarde0;
uses crt;
var a, b, c, dis, x1, x2:real;
begin
ClrScr;
WriteLn('Iveskite kintamuju koeficientus');  //Jei a,b,c <> 0
ReadLn(a, b, c);
dis := (b*b) - 4 * a * c;
If dis = 0
then
   begin
   x1 := (-b) / (2 * a);
   writeln('x= ', x1:1:1);
   end
else if dis < 0
    then
       writeln('Sprendiniu nera')
    else
       begin
       x1 := (-b - sqrt(dis)) / (2 * a);
       x2 := (-b + sqrt(dis)) / (2 * a);
       WriteLn('x1= ', x1:1:1, ' ', 'x2= ', x2:1:1);
       end;
Readln;
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.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...