Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 5.00
ReMiX
3 / 3 / 1
Регистрация: 13.12.2009
Сообщений: 26
#1

найти точки пересечения (если таковые имеются) параболы(парабола любая) - Pascal

20.12.2009, 18:53. Просмотров 1359. Ответов 6
Метки нет (Все метки)

найти точки пересечения (если таковые имеются) параболы(парабола любая) с осями координат, вывести координаты точек.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2009, 18:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос найти точки пересечения (если таковые имеются) параболы(парабола любая) (Pascal):

Удалить со списка L элементы E, если таковые существуют
Динамические переменные. Собснно, сабж.

Выяснить, имеются ли в заданных матрицах ненулевые элементы. Если имеются, то указать их индексы
Даны две целочисленные квадратные матрицы порядка 15. Выяснить, имеются ли...

Найти точки пересечения прямой и параболы
Найти точки пересечения прямой y = mx + n и параболы y = ax2 + bx + c ...

Удалить из списка L все элементы Е, если таковые имеются
Всем добрый день, пожалуйста, помогите с задачей, вообще не понятно: Дан...

Составить программу, которая удаляет из списка L все элементы E, если таковые имеются.
Помогите с задачей: Составить программу, которая удаляет из списка L все...

6
pikusfikus
173 / 170 / 40
Регистрация: 14.11.2009
Сообщений: 507
20.12.2009, 19:24 #2
точка пересечения с осью y буде переменная "с" если такова есть,а с абсцисс будут корни квадратного уравнения
0
ReMiX
3 / 3 / 1
Регистрация: 13.12.2009
Сообщений: 26
20.12.2009, 19:26  [ТС] #3
Цитата Сообщение от pikusfikus Посмотреть сообщение
точка пересечения с осью y буде переменная "с" если такова есть,а с абсцисс будут корни квадратного уравнения
за это конечно же огромное спасибо но я не силён в Pascal! Огромная просьба : помогите написать програмку !
0
pikusfikus
173 / 170 / 40
Регистрация: 14.11.2009
Сообщений: 507
20.12.2009, 19:28 #4
надо самостоятельно вводить функцию?
0
ReMiX
3 / 3 / 1
Регистрация: 13.12.2009
Сообщений: 26
20.12.2009, 19:29  [ТС] #5
Цитата Сообщение от pikusfikus Посмотреть сообщение
надо самостоятельно вводить функцию?
да. функция обычной любой параболы!
0
pikusfikus
173 / 170 / 40
Регистрация: 14.11.2009
Сообщений: 507
20.12.2009, 19:48 #6
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
var
D,a,b,c,x1,x2,y,s,i:real;
begin
writeln('Funktsia');
write('vvedit a ');
read(a);
write('vvedit b ');
read(b);
write('vvedit c ');
read(c);
if c<>0 then begin
D:=sqr(b)-4*a*c;
writeln('to4ka peretuny s oy = ','(','0',';',c,')')
end
else
D:=sqr(b)-4*a;
if D<0 then begin
writeln('nema to4ok peretuny s ox');
exit;
end
else
if D=0 then begin
write('odna to4ka peretuny s ox = ');
write('(',x1,';','0',')',' ');
end
else if D>0 then begin
writeln('to4ku peretuny s ox =');
x1:=-b-sqrt(D)/2*a;
x2:=-b+sqrt(D)/2*a;
write('(',x1,';','0',')',' ');
writeln('(',x2,';',0,')',' ');
end;
end.
Добавлено через 38 секунд
ну если есть вопросы по задаче,обращайтесь

Добавлено через 2 минуты
только a и b если их нет пишите 1,а с можете писать 0

Добавлено через 1 минуту
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
var
D,a,b,c,x1,x2,y,s,i:real;
begin
writeln('Funktsia');
write('vvedit a ');
read(a);
write('vvedit b ');
read(b);
write('vvedit c ');
read(c);
if c<>0 then begin
D:=sqr(b)-4*a*c;
writeln('to4ka peretuny s oy = ','(','0',';',c,')')
end
else
D:=sqr(b)-4*a;
if D<0 then begin
writeln('nema to4ok peretuny s ox');
exit;
end
else
if D=0 then begin
write('odna to4ka peretuny s ox = ');
write('(',x1:5:2,';','0',')',' ');
end
else if D>0 then begin
writeln('to4ku peretuny s ox =');
x1:=-b-sqrt(D)/2*a;
x2:=-b+sqrt(D)/2*a;
write('(',x1:5:2,';','0',')',' ');
writeln('(',x2:5:2,';',0,')',' ');
end;
end.
Добавлено через 1 минуту
возьмите 2 задачу,там корректно тображает дробовые числа
1
ReMiX
3 / 3 / 1
Регистрация: 13.12.2009
Сообщений: 26
20.12.2009, 19:51  [ТС] #7
Цитата Сообщение от pikusfikus Посмотреть сообщение
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
var
D,a,b,c,x1,x2,y,s,i:real;
begin
writeln('Funktsia');
write('vvedit a ');
read(a);
write('vvedit b ');
read(b);
write('vvedit c ');
read(c);
if c<>0 then begin
D:=sqr(b)-4*a*c;
writeln('to4ka peretuny s oy = ','(','0',';',c,')')
end
else
D:=sqr(b)-4*a;
if D<0 then begin
writeln('nema to4ok peretuny s ox');
exit;
end
else
if D=0 then begin
write('odna to4ka peretuny s ox = ');
write('(',x1,';','0',')',' ');
end
else if D>0 then begin
writeln('to4ku peretuny s ox =');
x1:=-b-sqrt(D)/2*a;
x2:=-b+sqrt(D)/2*a;
write('(',x1,';','0',')',' ');
writeln('(',x2,';',0,')',' ');
end;
end.
Добавлено через 38 секунд
ну если есть вопросы по задаче,обращайтесь

Добавлено через 2 минуты
только a и b если их нет пишите 1,а с можете писать 0

Добавлено через 1 минуту
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
var
D,a,b,c,x1,x2,y,s,i:real;
begin
writeln('Funktsia');
write('vvedit a ');
read(a);
write('vvedit b ');
read(b);
write('vvedit c ');
read(c);
if c<>0 then begin
D:=sqr(b)-4*a*c;
writeln('to4ka peretuny s oy = ','(','0',';',c,')')
end
else
D:=sqr(b)-4*a;
if D<0 then begin
writeln('nema to4ok peretuny s ox');
exit;
end
else
if D=0 then begin
write('odna to4ka peretuny s ox = ');
write('(',x1:5:2,';','0',')',' ');
end
else if D>0 then begin
writeln('to4ku peretuny s ox =');
x1:=-b-sqrt(D)/2*a;
x2:=-b+sqrt(D)/2*a;
write('(',x1:5:2,';','0',')',' ');
writeln('(',x2:5:2,';',0,')',' ');
end;
end.
Добавлено через 1 минуту
возьмите 2 задачу,там корректно тображает дробовые числа

огромное спасибо!
0
20.12.2009, 19:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2009, 19:51
Привет! Вот еще темы с решениями:

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

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

Найти сокращенную, минимальную, тупиковую, КН форму F, если таковые имеются
Найдите КНФ F. Явл ли F тавтологией? Найдите сокращенную, минимальную,...

Найти точки пересечения параболы и прямой
Объясните пожалуйста что не так в этой программе #include &quot;stdafx.h&quot;...


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

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

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