Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.59/41: Рейтинг темы: голосов - 41, средняя оценка - 4.59
0 / 0 / 0
Регистрация: 05.01.2012
Сообщений: 29
1

Выяснить, имеет ли уравнение ax2+bx+c=0 вещественные корни

06.01.2012, 19:21. Показов 7565. Ответов 1
Метки нет (Все метки)

Задача №4
Даны вещественные числа a,b,c (a=0). Выяснить имеет ли уравнение ax2+bx+c=0 вещественные корни

0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2012, 19:21
Ответы с готовыми решениями:

Выяснить имеет ли уравнение вещественные корни
Даны вещественные числа a,b,c (a не равное 0) выяснить имеет ли уравнение ax2+bx+c=0 вещественные...

Выяснить, имеет ли уравнение вещественные корни
Пожалуйста напишите программу на турбо паскале. Заранее спасибо

Определить, что уравнение имеет вещественные корни
буду очень блогадарен! 1. Проверить истинность высказывания: "Квадратное уравнение A•x2 + B•x +...

Выяснить, имеет ли вещественные корни уравнение ax2 + bx + c=0, и если имеет, то напечатать отдельно целые и дробные части корней.
Здравствуйте! Помогите с программой: Выяснить, имеет ли вещественные корни уравнение ax2 + bx +...

__________________
1
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
06.01.2012, 21:57 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от фунтик Посмотреть сообщение
Задача №4
Даны вещественные числа a,b,c (a=0)
Выяснить имеет ли уравнение ax2+bx+c=0
Вещественные корни
Pascal
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
 Uses crt;
 
 var
 a,b,c:real;
 x1,x2,D:real;
 
 begin
    clrscr;
    Write('Введите коэффициент a: ');   readln(a);
    Write('Введите коэффициент b: ');   readln(b);
    Write('Введите коэффициент c: ');   readln(c);
    
    clrscr;
    Writeln('Решаем уравнение:');
    Writeln(a,'*x^2 + ',b,'*x + ',c,' = 0');
    
    if a=0 then
    begin
    writeln('Это не квадратное уравнение! (а=0)');
        If b=0 then
        begin
          If c=0 then
          writeln('Условие истинно для любых х!')
          else
          Writeln('Условие ложно')
        end
        else
        begin
        x1:=-c/b;
        Writeln('Корень уравнение:');
        Writeln('X=',x1);
        end
    end
    else
    begin
    
      { Вычисление дискриминанта }
          D := sqr (b) - 4 * a * c;
          
          if D<0 then
           writeLn ('Действительных корней  нет! Дискриминант = ', D)
        else
        begin
            { Вычисление корней }
            x1 := (- b - sqrt (D)) / (2 * a);
            x2 := (- b + sqrt (D)) / (2 * a);
 
            { Вывод результата }
            writeLn ('Корни уравнения:');
            writeLn ('X1 = ', x1 : 1 : 5);
            writeLn ('X2 = ', x2 : 1 : 5)
          end
    end;
    readln
 end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2012, 21:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Выяснись, имеет ли уравнение вещественные корни
Даны вещественные числа а, б, с. ( а не равно 0). Выяснись, имеет ли сравнение ах в квадрате + бх +...

Проверить имеет ли квадратное уравнение вещественные корни
Проверить истинность высказывания: &quot;Квадратное уравнение с данными коэффициентами A, B, C имеет...

Проверить, имеет квадратное уравнение вещественные корни или нет
Решить задачу, используя функцию. Даны три квадратных уравнения: ax + bx + c =0 bx + ax + c =0 ...

Если уравнение имеет вещественные корни, то логической переменной t присвоить true
если уравнение ax^2+bx+c=0 имеет вещественные корни, то логической переменной t присвоить true, а...


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

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

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