Форум «Всё о Паскале» > Помогите найти ошибку в коде

Помощь - Поиск - Пользователи - Календарь

Полная версия: Помогите найти ошибку в коде

Форум «Всё о Паскале» > Разработка ПО, алгоритмы, общие вопросы > Алгоритмы

nowichok9

4.02.2011 17:08

Помогите найти ошибку

Код

program algebra23;
var a,b,c,d,i,e,f: integer;
begin
     writeln('видите a b c');
     readln(a, b, c);
     writeln;
     for i:= -10 to 10 do
     begin
          e:=a*sqr(i)+b*i+c;
          write('  (',i,';',e,')');
     end;
     write('нахождение дискриминанта');
     D:= sqr(b)-(4*a*b);
     writeln;
     writeln('дискриминант  = ',d);
     writeln('x1=',-b,'+',sqrt(d),' / ',2*a,' = ',(-b+sqrt(d))/(2*a),' ');  {ошибка 207: ошибочная операция с плавающей точкой}
     writeln('x2 = ',-b*-1,'-',sqrt(d),'  / ',2*a,' = ',(b*-1-sqrt(d))/(2*a));
     readln;
end.

если дискриминант = 0 то выполняется
чувствую какая то простая ошибка а понять в чём не могу

TarasBer

4.02.2011 17:11

Если дискриминант меньше нуля, то облом наступает при попытке извлечь квадратный корень из отрицательного числа. Если равен, то ничего происходить не должно.
Ещё облом - если a=0 - тогда деление нуля на ноль будет.

nowichok9

4.02.2011 17:18

Спасибо

тогда как сделать что бы программа не завершалась

Добавлено через 7 мин.
всё догадался попробую через метки

TarasBer

4.02.2011 17:31

Зачем метки?!


if d>= 0 then begin
  writeln;
  writeln('дискриминант  = ',d);
  writeln('x1=',-b,'+',sqrt(d),' / ',2*a,' = ',(-b+sqrt(d))/(2*a),' '); 
  writeln('x2 = ',-b*-1,'-',sqrt(d),'  / ',2*a,' = ',(b*-1-sqrt(d))/(2*a));
end else begin
  writeln('дискрииминант меньшу нуля, решений нет');
end;

Lapp

5.02.2011 8:57

Цитата(TarasBer @ 4.02.2011 13:31)