Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Математика]. Найти точки пересечения функций

Автор: StaS1k 27.3.2008, 10:12

Даны функции y1=(4+x)(квадрат) и y2=-x. Составить Алгоритм и программу для нахождения точки пересечения этих функций при -4<=x<=0.

Помогите пожалуйста. Заранее благодарен

Автор: Christoph 27.3.2008, 16:38

Решу систему двух уравнений, и затем проверь Х на промежуток -4<=x<=0. ....
Если надо написать прогу то какой язык?

Автор: StaS1k 27.3.2008, 20:43

Pascal, я просто в этом мало чего понимаю, ну примерно где вот так:
begin
for i:=-4 to 0 do
y1=(4+i)^2
y2=-i
if y1=y2 then
writeln ('точка (', i,',',y,') - точка пересечения');
end.

Автор: PrinceMike 27.3.2008, 21:28

Код


begin
for i:=-4 to 0 do
y1=(4+i)^2
y2=-i
if y1=y2 then
writeln ('точка (', i,',',y,') - точка пересечения');end.

компилятор тебя в лес пошлет, ни одна переменная не описана и точки с запятой мухи съели

Автор: Christoph 27.3.2008, 21:32

можно проверить является ли точка пересечение, но не решить программно систему уравнений) как ты в проге будешь приводить подобные и переносить? smile

Пы сы условие иф всегда будет фалс , ну если ты подберешся такое i то может выполниться)

Автор: StaS1k 27.3.2008, 22:39

подскажите как по-другому... про точки с запятыми я в курсе smile

Автор: Christoph 27.3.2008, 23:02

Думаю никак с помощью проги ты не решишь систему.... smile

Автор: StaS1k 28.3.2008, 00:07

а с помощью чего ее можно решить ?

Автор: Christoph 28.3.2008, 10:04

С помощью листа и ручки smile

Автор: StaS1k 28.3.2008, 10:20

а как? у меня не получаеца.... ну поидее это и надо на листе делать... можешь помочь?

Автор: Christoph 28.3.2008, 17:56

решаешь системы
y=(4+x)^2
y=-x

Подставим второе уравнение в первое:
-x=(4+x)^2
-x=16+16x+x^2
x^2+17x+16=0 Находим корни кв. уравнения
х1=16
х2=1

Подсавим х во второе уравнение у=-х
точки пересечения будут (16,-16)
(1,-1)
Ни одна из точек не удовлетворяется условию : -4<=x<=0.

Автор: StaS1k 28.3.2008, 18:07

спасибо огромноееее!!! помог очень!!

Автор: StaS1k 31.3.2008, 11:56

блин а кто может эту программу на языке паскаль написать? :(( надо на паскале.... :((

Автор: Rodman 31.3.2008, 15:31

Код


uses
  Crt;
const a=1;
      b=17;
      c=16;
var x1, x2, y, d:Double;
begin
  Writeln('y=(4+x)^2');
  Writeln('y=-x');
  d:=b*b-4*a*c;
  x1:=a+sqrt(d)/2*a;
  x2:=a-sqrt(d)/2*a;
  if(x1>=-4)and (x1<=0)then
    Writeln(x1,':'-x1)
  else
    Writeln('First point do not good');
  if(x2>=-4)and (x2<=0)then
    Writeln(x2,':'-x2)
  else
    Writeln('Second point do not good');
  readln;
end.

у меня такое ощущение, что где то подвох

Автор: de_Nis 31.3.2008, 16:50

"...Подставим второе уравнение в первое:
-x=(4+x)^2
-x=16+16x+x^2..." - Ошибка! Правильно должно быть так:
16+2*4*х+х^2=16+8x+x^2
Тогда корни уравнения:
х1=-2,438.....
х2=-6,56....
То есть корень х1 удовлетворяет исходным данным: входит в промежуток 0...4