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

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

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

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

Найти координаты точки пересечения
Добрый день форумчане , нужен совет) Никак не могу понять смысл 6 задания,...

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

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

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

Удалить из списка 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

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

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

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


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

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

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