Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.09.2014
Сообщений: 1
1

Не вычисляется корни квадратного уравнения в Delphi. Даже если а=0,то вычисляется а при целых числ х1 и х2 = 0

02.10.2014, 10:27. Показов 851. Ответов 2
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program Laba1;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
procedure SolveQE(A,B,C: integer; Var x1,x2:real);
var D:real;
begin
if (a=0) and (b=0) and (c=0) then Writeln('x=Est luboe chislo');
  if a<>0 then
  begin
  D:=sqr(b)-(4*a*c);
  if D>0 then
  begin
  x1:=((-b)+sqrt(D))/(2*a);
  x2:=((-b)-sqrt(D))/(2*a);
  if D=0 then
  begin
  x1:= -b/2*a
  end;
  end;
 
  end else
  begin
  if b>0 then
  begin
  x1:=(c)/b;
  x2:=x1;
  End;
  End;
end;
 
 Procedure readABC( var A,B,C:integer);
 begin
  readln(A);;
  readln(B);
  readln(C);
 end;
 
 Procedure printQE(A,B,C: integer);
 begin
 Writeln('D=',a,'x^2+',b,'x+',c,'=0');
 end;
 
  Var x1,x2:real; a,b,c:integer;
 begin
 readABC(a,b,c);
  printQE(a,b,c);
  solveQE(a,b,c,x1,x2);
  Writeln('x1=',x1:0:2);
  Writeln('x2=',x2:0:2);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.10.2014, 10:27
Ответы с готовыми решениями:

Если все корни одного квадратного уравнения больше корней другого квадратного уравнения, вывести "1", иначе "0"
{Даны вещественные a1,a2,b1,b2,c1,c2. Если все корни одного из уравнений a1*x*x+b1*x+c1=0,...

Найти корни квадратного уравнения,заданного своими коэфицентами А,В,С коэфицентами (коэфицент А не равен 0), если известно,что дискриминант уравнения
Найти корни квадратного уравнения A*x2+B*x+C-0,заданного своими коэфицентами A,B,C коэфицентами...

Запишите условный оператор, в котором значение переменной вычисляется по формуле: а + b, если а — нечетное и ab, если а — четное.
Помогите написать пожалуйста..не разбираюсь совсем..

Исправьте код, выдает ошибку (заданы коэффициенты квадратного уравнения. Найти его действительные корни, если они существуют.)
Помогите, пожалуйста :cry: Написал программу к задачке - выдает ошибку Заданы коэффициенты...

2
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
02.10.2014, 10:46 2
А где вариант, когда D<0?
0
2648 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,725
02.10.2014, 11:04 3
Delphi
1
2
3
4
5
6
7
8
if D>0 then
  begin
    ..   blabla
    if D=0 then
      begin
      ..   blabla  
      end;
  end;
Сам-то понял что за ахинею написал ?)

"Если что-то там строго больше нуля, то если оно при этом еще и одновременно равно нулю, то .."
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.10.2014, 11:04

Написать процедуру, вычисляющую корни квадратного уравнения. Корни должны выводиться на экран в процедуре
Написать процедуру, вычисляющую корни квадратного уравнения. Корни должны выводиться на экран в...

Сумма всех полей в отчете, если поле вычисляется
Доброе утро, уважаемые форумчане! В очередной раз прошу Вашей помощи! У меня следующая проблема. В...

Нужно узнать конечный результат каждого спортсмена, если он вычисляется так
Добрый вечер! Помогите, пожалуйста, решить задачку на двумерные массивы Выступления n...

Как вычислить интеграл, если сама функция вычисляется с очень большой погрешностью? (ужасная точность)
Нужно вычислить интеграл. Но как вычислить интеграл, если сама функция вычисляется с очень большой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.