Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Линейный алгОритм
Автор: polic 26.12.2006 2:41
чото преподы в последнее время стали странными....
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 26.12.2006 2:42
А ты пробовал ее запускать? Она даже не компилится. Возьми в руки паскаль и поговори с ним об этом.
Автор: Bokul 26.12.2006 2:43
Ага, только сначала попробуй скомпилировать твой код..
Автор: polic 26.12.2006 2:45
сорри бегин забыл указать
Автор: Bokul 26.12.2006 2:48
А переменные в var-е тоже забыл прописать? Тебе же говорят - запусти компилятор!!!
Автор: polic 26.12.2006 2:49
поспешил просто я исправил
в таком ввиде она не принимает
Автор: Bokul 26.12.2006 2:50
Какое задание?
Автор: polic 26.12.2006 2:52
найти кординату точки пересечения двух прямых на плоскости формулу взял на форуме этом
Автор: Michael_Rybak 26.12.2006 2:52
поспешил просто я исправил
А теперь запости сюда что получилось
Автор: polic 26.12.2006 2:54
это флуд я запятую забыл
Автор: polic 26.12.2006 3:36
ну что я пошёл убивать ,эта смерть будет на вашей совести 
Автор: мисс_граффити 26.12.2006 3:39
ну что я пошёл убивать ,эта смерть будет на вашей совести
вот только не надо своё неумение распланировать время сваливать на нас.
Автор: Bokul 26.12.2006 3:40
Как прямые заданны?
Автор: polic 26.12.2006 3:41
насчёт этого ничо не сказано
Автор: Michael_Rybak 26.12.2006 3:43
Какое задание?
+1
Если все равно, как они заданы, то можно задать их точкой пересечения и векторами направления прямых ;)
Автор: polic 26.12.2006 3:45
вот ты правильно сказл я порылся в сборнике так звучит
Автор: Michael_Rybak 26.12.2006 3:46
Не думаю Иначе программа выглядеть будет так:
begin
Writeln('Введите точку пересечения и смотрите на нее сколько влезет, выводить ниче не буду');
end.
P.S. Забыл теги
Автор: polic 26.12.2006 3:49
ща дословно напишу
две прямые на плоскости заданы своими направляющими векторами и точками. Найти их точку пересечения
Автор: Bokul 26.12.2006 3:50
Раз так, то если допустить что у тебя правильные формулы, ты все-равно забываешь проверить являются ли прямые параллельными (эт когда коэффициенты при x-е равны).
Автор: Michael_Rybak 26.12.2006 3:55
Там еще коэффициенты u. И зачем новую тему заводить? Спрашивал бы в http://forum.pascal.net.ru/index.php?showtopic=14645
Автор: polic 26.12.2006 4:01
это что значит я никого не обвиняю
сказано найти точку пересечения значит вариант когда параллельны не рассматривается
Автор: Bokul 26.12.2006 4:04
Ага...:
polic, тебе Вольво тебе уже давал ссылку, где описано какие исключительные ситуации надо рассмотреть отдельно:
Знаменатели одинаковы.
Если знаменатель равен нулю, то прямые параллельны.
Если и числитель и знаменатель равны нулю, то прямые совпадают.
Если нужно найти пересечение отрезков, то нужно лишь проверить, лежат ли ua и ub на промежутке [0,1]. Если какая-нибудь из этих двух переменных 0 <= ui <= 1, то соответствующий отрезок содержит точку пересечения. Если обе переменные приняли значения из [0,1], то точка пересечения прямых лежит внутри обоих отрезков.
Для двух отрезков при достаточной разреженности объектов можно сначала проверять принципиальную возможность пересечения, сравнивая координаты концов.
В твоей же проге нет ни одной проверки, почему ты думаешь что она правильно будет работать?
А когда совпадают?
Автор: polic 26.12.2006 23:40
тогда все точки пересекаются в а задании сказано одну что противоречит, ведь же не наугад брать точку