0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 14
1

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

24.10.2010, 00:42. Показов 4771. Ответов 12
Метки нет (Все метки)

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

Спасибо!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2010, 00:42
Ответы с готовыми решениями:

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

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

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

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

12
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.10.2010, 00:45 2
https://www.cyberforum.ru/pasc... 77380.html
и функици Int и Frac вам в помощь
0
189 / 185 / 54
Регистрация: 23.10.2010
Сообщений: 1,335
24.10.2010, 04:14 3
если я правильно понял, то вот мой наркоманский код

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
program test;
 
   var
      a,b,c,d,x11,x12,x21,x22 : real;
 
begin
write('введите a: ');
readln(a);
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
if (d>0) then
begin
x11:=(b*-1)+sqrt(d);
x12:=2*a;
x21:=(b*-1)-sqrt(d);
x22:=2*a;
writeln('x1=',x11:2:0,'/',x12:2:0);
writeln('x2=',x21:2:0,'/',x22:2:0);
end
 
else write('корней не будит, так как D=0');
readln;
 
end.
Добавлено через 1 час 59 минут
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
program test;
 
   var
      a,b,c,d,x11,x12,x21,x22,e : real;
 
begin
write('введите a: ');
readln(a);
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
if (d>0) then
begin
x11:=(b*-1)+sqrt(d);
x12:=2*a;
x21:=(b*-1)-sqrt(d);
x22:=2*a;
writeln('x1=',x11:2:0,'/',x12:2:0);
writeln('x2=',x21:2:0,'/',x22:2:0);
end
else if (d=0) then
begin
e:=(b*-1)/(2*a);
write('так, как D=0, корень 1: ',e:2:0);
end
else write('корней не будит, так как D=0');
readln;
 
end.
вот чуток подправил
1
0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 14
24.10.2010, 21:14  [ТС] 4
Спасибо огромное=)
Но мне сказали сделать эту программку через div
0
189 / 185 / 54
Регистрация: 23.10.2010
Сообщений: 1,335
24.10.2010, 21:28 5
на сколько мне известно (ибо мои знания в паскале не так велики) div возможен при целых числах, тобишь тип integer или longint, а у вас в первом посте первоначальные данные Real. Или данные не те или я хз
0
0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 14
26.10.2010, 12:31  [ТС] 6
А через mod тогда можно сделать?
0
189 / 185 / 54
Регистрация: 23.10.2010
Сообщений: 1,335
26.10.2010, 12:36 7
мод даёт только остаток
0
Почетный модератор
64276 / 47575 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.10.2010, 13:57 8
Маша Маша, Не мелите ерунды и забудьте про операции целочисленного деления(div,mod) при работе с вещественными числами.
Целая часть trunc(a);
Дробная часть frac(a);
0
0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 14
26.10.2010, 14:53  [ТС] 9
Спасибо=)
Это значит меня преподша запутала.. Я сама очень удивлена была что mod и div..

Ааа, чёрт, мне уже совестно просить, но не могли бы подсказать, как в этой программке frac вставить?
я просто вообще с этим первый раз сталкиваюсь=(
0
Почетный модератор
64276 / 47575 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.10.2010, 15:03 10
Цитата Сообщение от Маша Маша Посмотреть сообщение
то напечатать отдельно целые и дробные части корней.
Pascal
1
2
3
4
5
6
7
8
9
writeln('x1: целая часть=',trunc(x11),' дробная часть=',frac(x11):0:2);
writeln('x2: целая часть=',trunc(x21),' дробная часть=',frac(x21):0:2);
end
else if (d=0) then
 begin
  e:=(b*-1)/(2*a);
  writeln('так, как D=0, корень 1: ');
  writeln('x: целая часть=',trunc(e),' дробная часть=',frac(e):0:2);
 end
1
0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 14
26.10.2010, 15:04  [ТС] 11
Огромнейшее спасибо!!!
0
Почетный модератор
64276 / 47575 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.10.2010, 15:06 12
Маша Маша, Вы еще раз гляньте мое последнее сообщение, когда вы писали, я там ошибку исправлял, возможно вы это не видели.
0
189 / 185 / 54
Регистрация: 23.10.2010
Сообщений: 1,335
26.10.2010, 18:36 13
спасибо, возьму себе на заметку
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2010, 18:36
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru