Форум программистов, компьютерный форум CyberForum.ru

биквадратное уравнение - C++

Восстановить пароль Регистрация
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.81
nedwed
0 / 0 / 0
Регистрация: 17.04.2011
Сообщений: 3
17.04.2011, 15:35     биквадратное уравнение #1
Решите биквадратное уравнение ax4 + bx2 + c = 0 (помогите срочно надо). TURBO PASCAL
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.04.2011, 15:35     биквадратное уравнение
Посмотрите здесь:

Биквадратное уравнение C++
C++ Даны действительные числа a, b, c (a ≠ 0). Полностью исследовать биквадратное уравнение ax4 + bx2 + c = 0
C++ Дано уравнение ax2+bx+c=0. Решить уравнение, результат вывести на экран.
C++ Написать программу, которая решает уравнение с одним неизвестным и выводит в консоль значение неизвестного. Уравнение посимвольно вводится с клавиатур
C++ 18. Написать программу, которая решает уравнение с одним неизвестным и выводит в консоль значение неизвестного. Уравнение посимвольно вводится с клави
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
IrineK
Заблокирован
18.04.2011, 05:51     биквадратное уравнение #2
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
56
57
58
59
60
61
62
63
64
uses crt;
var
   a,b,c: real;
 
procedure roots(A:real; B:real; C:real);
var
   D:real;
begin
   D:= B*B-4*A*C;
   if D<0 then  writeln('No roots');
   if D>0 then
   begin
      if(-B-sqrt(D))/(2*A)>0 then
      begin
         if (-B+sqrt(D))/(2*A)>0 then
         begin
              writeln('4 roots:');
              writeln('x1 = ',-sqrt((-B-sqrt(D))/(2*A)));
              writeln('x2 = ',sqrt((-B-sqrt(D))/(2*A)));
              writeln('x3 = ',-sqrt((-B+sqrt(D))/(2*A)));
              writeln('x4 = ',sqrt((-B+sqrt(D))/(2*A)));
         end
         else
         begin
             writeln('2 roots:');
             writeln('x1 = ',-sqrt((-B-sqrt(D))/(2*A)));
             writeln('x2 = ',sqrt((-B-sqrt(D))/(2*A)));
         end;
      end
      else
      begin
          if (-B+sqrt(D))/(2*A)>0  then
          begin
             writeln('2 roots:');
             writeln('x1 = ',-sqrt((-B+sqrt(D))/(2*A)));
             writeln('x2 = ',sqrt((-B+sqrt(D))/(2*A)));
         end
         else writeln('No roots');
       end;
   end;
   if D=0 then
   begin
      if -B/(2*A)>0 then
      begin
            writeln('2 roots:');
            writeln('x1 = ',-sqrt(-B/(2*A)));
            writeln('x2 = ',sqrt(-B/(2*A)));
      end
      else  writeln('No roots');
   end;
end;
 
 
begin
  clrscr;
  write('a = ');
  read(a);
  write('b = ');
  read(b);
  write('c = ');
  read(c);
 
  roots(a,b,c);
end.
NightmareZ
18.04.2011, 06:09
  #3

Не по теме:

У меня тут прикольный демотиватор по теме завалялся...

IrineK
Заблокирован
18.04.2011, 07:11     биквадратное уравнение #4
Никогда не знаешь, радоваться или печалиться наличию людей данной категории.
С одной стороны, несколько кумарит.
С другой стороны, ну кто бы нам столько платил?


Тестовый пример:
Изображения
 
Yandex
Объявления
18.04.2011, 07:11     биквадратное уравнение
Ответ Создать тему
Опции темы

Текущее время: 13:03. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru