Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/35: Рейтинг темы: голосов - 35, средняя оценка - 4.60
рок
1

Определить, пересекаются ли параболы y = ax2+bx+c и y = dx2+mx+n. Если пересекаются, то найти точку пересечения

29.06.2012, 22:06. Просмотров 6831. Ответов 2
Метки нет (Все метки)


Определить, пересекаются ли параболы y = ax2+bx+c и y = dx2+mx+n.
Если пересекаются, то найти точку пересечения
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2012, 22:06
Ответы с готовыми решениями:

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

Определить, пересекаются ли линии и найти точку пересечения
Написать код для Lazarus IDE: Определить, пересекаются ли линии y = ax3+bx2+cx+d и y = kx3+mx2+ nx...

При каком значении прямые пересекаются? Найти точку пересечения
Здравствуйте! Помогите решить задачу

Найти параметр a, где прямые пересекаются и найти точку их пересечения
Заданы 2 прямые в параметрической форме: L1:= (-1,1,-2)+t(2,1,3) L2:= (0,0,2)+p(a,2,a) ...

2
Модератор
62942 / 46956 / 32360
Регистрация: 18.05.2008
Сообщений: 113,773
29.06.2012, 22:59 2
Реши как в первом решении здесь.
Задана окружность и прямая. Определить, пересекаются ли прямая и окружность
0
153 / 153 / 81
Регистрация: 16.06.2012
Сообщений: 314
29.06.2012, 23:18 3
Лучший ответ Сообщение было отмечено как решение

Решение

Для определения точек пересечения двух парабол, нужно решить следующее квадратное уравнение:
(a - d)x2 + (b - m)x + (c - n) = 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
Uses Crt;
 
Var a , b , c , d , x , y : real;
 
Begin
    ClrScr;
    ReadLn(a , b , c);
    if (a = 0)  then 
        WriteLn('Не квадратное')
    else begin
        d := b * b - 4 * a * c;
        if d < 0 then
            WriteLn('Не имеет действительных корней')
        else if abs(d) < 1e-9 then begin
            WriteLn('Имеет единственный корень');
            x := -b / (2 * a);
            WriteLn(x : 0 : 5);
        end else begin
            WriteLn('Имеет два корня');
            x := (-b +sqrt(d)) / (2 * a);
            WriteLn(x : 0 : 5);
            x := (-b - sqrt(d)) / (2 * a);
            WriteLn(x : 0 : 5);
        end;    
    end;    
    ReadKey;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2012, 23:18

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

Пересекаются ли прямые, и, если да, то найти координаты точки пересечения
Ввод состоит из координат точек прямых (две точки - первая прямая, ещё две - вторая прямая). ...

Для каждой параболы вывести уравнение, найти эктремумы; выяснить совпадают или пересекаются эти параболы
Вот само задание: http://i.**********/ZOUVXmQ.jpg П.5.18.Правил Запрещено размещать задания и...

Определить, пересекаются ли прямая и окружность, и найти точки пересечения
задана окружность с центром в точке х(нулевое) и(нулевое) у и радиусом Р и прямая у=ах+в....

Определить, пересекаются ли параболы
Разветвляющийся вычислительный процесс. Не могу понять как это сделать т.к. геометрию плохо знаю...


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

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

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