Помощь - Поиск - Пользователи - Календарь
Полная версия: геометрия
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Рустам
прямая на плоскости может быть задана уравнением ay+bx+c=0 где а и b одновременно не равны 0
будем рассматривать прямые только с целыми коэфициентами a b c пусть даны коэффициенты нескольких прямых a1 b1 c1, a2 b2 c2,.., an bn cn
1) определить имеются ли среди этих прямых совпадающие или параллельные
2) Имеются ли три прямые имеющие общую точку
3) определить находятся ли данные прямые в общем положении(никакие 2 из них не параллельные, никакие 3 не пересекаются)
Lapp
Цитата(Рустам @ 17.05.2009 23:11) *
никакие 3 не пересекаются
Видимо, ты хотел сказать ".. в одной точке"))

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

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.




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

Помогите чем сможете
Lapp
Рустам, что-то я тебя не пойму.. Как-то ты странно представляешь прямые. Ведь ты сам пишешь:
Цитата(Рустам @ 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;

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