Помогите найти ошибку в коде |
Помогите найти ошибку в коде |
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 то выполняется чувствую какая то простая ошибка а понять в чём не могу |
TarasBer |
4.02.2011 13:31
Сообщение
#2
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Зачем метки?!
-------------------- |
Lapp |
5.02.2011 4:57
Сообщение
#3
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Зачем метки?! хи-хи )) Тарас настолько испугался, что сразу выложил код )) страааашный GOTO -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Текстовая версия | 28.05.2024 16:30 |