Помогите найти ошибку в коде |
Помогите найти ошибку в коде |
nowichok9 |
4.02.2011 13:08
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Реальное имя: Андрей Репутация: 0 |
Помогите найти ошибку
Код 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 то выполняется чувствую какая то простая ошибка а понять в чём не могу |
Текстовая версия | 25.06.2024 18:28 |