Autorius Tema: Apskaičiuojant Diskriminantą  (Skaityta 1662 kartus)

Cherry

  • Svečias
Apskaičiuojant Diskriminantą
« Įrašytas: 2010-06-13 17:18:57 pm »
Man kažkokia problema su šituo... Kai sukompiliuoju kokių problemų nemato, bet kai bandau skaičius įvest, tai neperšoka langelis, o veda toliau...

Citata
program Darbas4;
uses Crt;
var a, b, c, d : integer;
    x1, x2 : real;
begin
  GotoXY (5, 2);
  WriteLn ('Klaustuku vietoje irasykite kvadratines lygties koficienta');
  GotoXY (15, 4); Write ('?x');
  GotoXY (17, 3); Write ('2');
  GotoXY (19, 4); Write (' + ?x + ? = 0');
  TextBackground (red);
 
  GotoXY (15, 4); Read (a);
  GotoXY (22, 4); Read (b);
  GotoXy (27, 4); ReadLn (c);
  TextBackground (black);
  WriteLn;
 
  d := b * b - 4 * a *c;
if  d < 0
    then WriteLn ('Lygtis neturi sprendiniu')
       else if d = 0
           then
           begin
           x1 := -b / (2 * a);
           WriteLn ('Lygtis turi sprendini: x = ', x1:5:2);
          end
       else
         begin
         x1 := (-b - Sqrt (d)) / (2 * a);
         x2 := (-b + Sqrt (d)) / (2 * a);
           WriteLn ('Lygtis turi du sprendinius: x1 = ', x1:5:2,
                    ' ir x2 = ', x2:5:2);
end;
end.

Cherry

  • Svečias
Re: Apskaičiuojant Diskriminantą
« Atsakymas #1 Įrašytas: 2010-06-13 17:22:39 pm »
http://img716.imageshack.us/img716/3658/50168818.jpg
matot, ketvertai eina toliau, nors turėtų peršok.

Manualai.lt Forumas

Re: Apskaičiuojant Diskriminantą
« Atsakymas #1 Įrašytas: 2010-06-13 17:22:39 pm »