IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> геометрия, Работа с прямыми
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Мужской

Репутация: -  1  +


прямая на плоскости может быть задана уравнением ay+bx+c=0 где а и b одновременно не равны 0
будем рассматривать прямые только с целыми коэфициентами a b c пусть даны коэффициенты нескольких прямых a1 b1 c1, a2 b2 c2,.., an bn cn
1) определить имеются ли среди этих прямых совпадающие или параллельные
2) Имеются ли три прямые имеющие общую точку
3) определить находятся ли данные прямые в общем положении(никакие 2 из них не параллельные, никакие 3 не пересекаются)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Рустам @ 17.05.2009 23:11) *
никакие 3 не пересекаются
Видимо, ты хотел сказать ".. в одной точке"))

Ну, показывай свои наработки..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Мужской

Репутация: -  1  +



uses crt;
const n=5;
type b=array [1..n,1..2] of integer;
var a,c: b;
d,e: array [1..10] of integer;
i,j,k,p,t,f: integer;
procedure par(a: b);
begin
k:=2;

for i:=1 to n do
begin

for t:=1 to i do
if d[t]=a[i,1] then inc(f);

if f=0 then begin
repeat
if a[i,1]=a[k,1] then inc(e[i]);
k:=k+1;
until k>=n;
e[i]:=e[i]+1;
d[i]:=a[i,1];
end
else
k:=i+1;
f:=0;
end;
for i:=1 to n do
begin
if e[i]>1 then
writeln('est ', e[i],' pryam kot par');
if e[i]=1 then
writeln(e[i],'praym v svob pol');
end;
end;
begin
clrscr;
for i:=1 to 5 do
begin
writeln( 'Koord ', i, 'pryam');
for j:=1 to 2 do begin
readln(a[i,j]);
end;
writeln;
end;
par(a);
readkey;
end.


это первый вариант..тут на паралельность определяется только .. и вроде нормально определяет...


uses crt;
const n=5;
type b=array [1..n,1..2] of integer;
var a,c: b;
d,e: array [1..10] of integer;
i,j,k,p,t,f: integer;

procedure srav(a: b);
begin


for i:=1 to n do begin
for k:=i+1 to n do begin
if (a[i,1]=a[k,1]) and (a[i,2]=a[k,2]) then
writeln(i,' pryamaya i ',k,' pryamaya sovpadaut');
if (a[i,1]=a[k,1]) and (a[i,2]<>a[k,2]) then
writeln(i,' pryamaya i ',k,' pryamaya parallelni');
end;
end;
end;

procedure per(a: b);
begin
for i:=1 to n-2 do begin
for j:=i+1 to n-1 do begin
for k:=i+2 to n do begin
x:=(a[j,2]-a[i,1])/(a[i,1]-a[j,1]);
y:=a[i,1]*x+a[i,2];
if y=a[k,1]*x+a[k,2] then
writeln('pryamii ',i,j,k,'peresek');
end;
end;
end;
end;
begin
clrscr;
for i:=1 to 5 do
begin
write( 'Koord ', i, 'pryam ');
for j:=1 to 2 do begin
readln(a[i,j]);
end;
end;
srav(a);
per(a);
readkey;
end.




это немного другой вариант....сравнение на паралельность работает ...добавил на пересечение формулы но не проверял думаю почти верно...

Помогите чем сможете
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Рустам, что-то я тебя не пойму.. Как-то ты странно представляешь прямые. Ведь ты сам пишешь:
Цитата(Рустам @ 17.05.2009 23:11) *
даны коэффициенты нескольких прямых a1 b1 c1, a2 b2 c2,.., an bn cn
Так ты и делай так в программе! Вот, смотри:
type
tLine= record
a,b,c: integer
end;
tPoint= record
x,y: real
end;
Здесь я еще сделал тип для точки, чтоб искать пересечения.
Дальше, для каждой проверки сделай функцию, типа так:
function Parallel(p,q: tLine): boolean;
begin
Parallel:=(p.a*q.b-p.b*q.a=0)
end;

А также для определения совпадения:
function Match(p,q: tLine): boolean;
begin
Match:=Parallel(p,q) and (p.a*q.c-p.c*q.a=0)
end;

И, скажем, процедуру поиска точки пересечения:
procedure Cross(p,g: tLine; var m: tPoint);
begin
{Тут решаешь систему и ответ записываешь в m.x и m.y}
end;

Вот когда ты так все разложишь, тебе останется только реализовывать логику, и все будет гораздо проще.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Мужской

Репутация: -  1  +


Спасибо)) сегодня попробую
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.10.2020 17:25
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name