Помощь - Поиск - Пользователи - Календарь
Полная версия: Линейный алгОритм
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
polic
чото преподы в последнее время стали странными....

Код
program c;
var x,x1,y2,y,y1,x2,u1,u2:real;
begin
writeln ('vvedite x1,u1,u2,x2,y1,y2:');
readln (x1,u1,u2,x2,y1,y2);
X:=x1+u1*(x2-x1);
y:=y1+u2*(y2-y1);
writeln('x:=',x:10:4,'y:=',y:10:4);
end.


легче задачу придумать нельзя наша препода нашла и здесь у мя ошибку!!
-----
будь моя воля я б достал свд , нацелился бы ей между и глаз и ....
Michael_Rybak
А ты пробовал ее запускать? Она даже не компилится. Возьми в руки паскаль и поговори с ним об этом.
Bokul
Цитата
будь моя воля я б достал свд , нацелился бы ей между и глаз и ....

Ага, только сначала попробуй скомпилировать твой код..
polic
сорри бегин забыл указать
Bokul
Цитата
сорри бегин забыл указать

А переменные в var-е тоже забыл прописать? Тебе же говорят - запусти компилятор!!!
polic
поспешил просто я исправил

в таком ввиде она не принимает
Bokul
Какое задание?
polic
найти кординату точки пересечения двух прямых на плоскости формулу взял на форуме этом
Michael_Rybak
Цитата(polic @ 25.12.2006 21:49) *

поспешил просто я исправил


А теперь запости сюда что получилось smile.gif
polic
это флуд я запятую забыл
polic
ну что я пошёл убивать ,эта смерть будет на вашей совести adm.gif
мисс_граффити
Цитата(polic @ 25.12.2006 23:36) *

ну что я пошёл убивать ,эта смерть будет на вашей совести adm.gif

вот только не надо своё неумение распланировать время сваливать на нас.
Bokul
Цитата
найти кординату точки пересечения двух прямых

Как прямые заданны?
polic
насчёт этого ничо не сказано
Michael_Rybak
Цитата(Bokul @ 25.12.2006 21:50) *

Какое задание?


+1

Если все равно, как они заданы, то можно задать их точкой пересечения и векторами направления прямых ;)
polic
вот ты правильно сказл я порылся в сборнике так звучит
Michael_Rybak
lol.gif

Не думаю smile.gif Иначе программа выглядеть будет так:


begin
Writeln('Введите точку пересечения и смотрите на нее сколько влезет, выводить ниче не буду');
end.



P.S. Забыл теги
polic
ща дословно напишу

две прямые на плоскости заданы своими направляющими векторами и точками. Найти их точку пересечения
Bokul
Цитата
насчёт этого ничо не сказано

Раз так, то если допустить что у тебя правильные формулы, ты все-равно забываешь проверить являются ли прямые параллельными (эт когда коэффициенты при x-е равны).
Michael_Rybak
Там еще коэффициенты u. И зачем новую тему заводить? Спрашивал бы в старой
polic
Цитата
вот только не надо своё неумение распланировать время сваливать на нас.

это что значит я никого не обвиняю

сказано найти точку пересечения значит вариант когда параллельны не рассматривается
Bokul
Цитата
это что значит я никого не обвиняю

Ага...:
Цитата
ну что я пошёл убивать ,эта смерть будет на вашей совести


polic, тебе Вольво тебе уже давал ссылку, где описано какие исключительные ситуации надо рассмотреть отдельно:
Цитата

Знаменатели одинаковы.

Если знаменатель равен нулю, то прямые параллельны.

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

Если нужно найти пересечение отрезков, то нужно лишь проверить, лежат ли ua и ub на промежутке [0,1]. Если какая-нибудь из этих двух переменных 0 <= ui <= 1, то соответствующий отрезок содержит точку пересечения. Если обе переменные приняли значения из [0,1], то точка пересечения прямых лежит внутри обоих отрезков.
Для двух отрезков при достаточной разреженности объектов можно сначала проверять принципиальную возможность пересечения, сравнивая координаты концов.

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

Цитата
сказано найти точку пересечения значит вариант когда параллельны не рассматривается

А когда совпадают?
polic
Цитата
А когда совпадают?



тогда все точки пересекаются в а задании сказано одну что противоречит, ведь же не наугад брать точку
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.