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

Найти сумму и произведение действительных корней

06.03.2013, 17:52. Показов 1365. Ответов 4
Метки нет (Все метки)

Найти сумму и произведение действительных корней (если они существуют) уравнений второго порядка:
-3x2 + 5x + 2 = 0; 4x2 + 2.1x – 27.25 = 0.Используя подпрограмму-функцию.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2013, 17:52
Ответы с готовыми решениями:

Даны два действительных числа А и В. Получить их сумму, разность и произведение
Даны два действительных числа А и В. Получить их сумму, разность и произведение

Даны два действительных числа x и y. Вычислить их сумму, разность, произведение и частное
а)F=x^2(x^2+1) б)Даны два действительных числа x и y. Вычислить их сумму, разность, произведение и...

Найти сумму, произведение, сумму квадратов и сумму корней 2 чисел
Вводятся 2 числа. Найти их сумму,произведения сумму квадратов и сумму корней

Даны два действительных числа х и у. Вычислить их сумму, разность, произведение и частное.
Здраствуйте)порошу решить мне следующую задачу, пожалуйста=) Тема: Создание собственного модуля....

4
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
06.03.2013, 18:43 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
uses crt;
function rez(a,b,c:real;var s,p:real):boolean;
var d,x1,x2:real;
    f:boolean;
begin
d:=b*b-4*a*c;
f:=d>0;
if f then
 begin
  x1:=(-b+sqrt(d))/(2*a);
  x2:=(-b-sqrt(d))/(2*a);
  s:=x1+x2;
  p:=x1*x2;
 end;
rez:=f
end;
var f:boolean;
    s,p:real;
begin
clrscr;
f:=rez(-3,5,2,s,p);
if f then writeln('Сумма корней уравнения -3x^2+5x+2=0  =',s:0:2,' произведение=',p:0:2)
else writeln('Уравнение -3x^2+5x+2=0 не имеет действительных корней');
f:=rez(4,2.1,-27.25,s,p);
if f then writeln('Сумма корней уравнения 4x^2+2.1x-27.25=0  =',s:0:2,' произведение=',p:0:2)
else writeln('Уравнение 4x^2+2.1x-27.25=0 не имеет действительных корней');
readln
end.
Можно еще через теорему Виета, даже наверно правильнее, оставляю это Вам.
1
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 19
06.03.2013, 19:58  [ТС] 3
а что значит булин?
0
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
06.03.2013, 20:06 4
Это такой тип, логический, отвечает на вопрос true=да или false=нет.
Если такое не знаете, не о чем говорить.
1
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 19
06.03.2013, 21:10  [ТС] 5
все поняла,спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2013, 21:10

Найти сумму и произведение полученных чисел. Вывести на чистый экран строку S, ее длину, сумму и произведение
Запросить у пользователя строку S, состоящую из цифр. Преобразовать каждый символ – цифру в число....

Найти сумму корней
Найти сумму корней квадратных уравнений ax2 + bx +c=0 и dy2 + py +k=0. (Процедуры, функции)

Нахождение всех действительных корней методом хорд
Нужно составить программу для нахождения всех действительных корней уравнения F(x)=0 методом хорд...

Выяснить, сколько действительных корней имеет биквадратное уравнение
Условия: Составить программу, выводящую на экран ответ на вопрос, поставленный в соответствии с...


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

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

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