Версия для печати темы

Автор: Рустам 18.05.2009 2:11

прямая на плоскости может быть задана уравнением ay+bx+c=0 где а и b одновременно не равны 0
будем рассматривать прямые только с целыми коэфициентами a b c пусть даны коэффициенты нескольких прямых a₁ b₁ c₁, a₂ b₂ c₂,.., a_n b_n c_n
1) определить имеются ли среди этих прямых совпадающие или параллельные
2) Имеются ли три прямые имеющие общую точку
3) определить находятся ли данные прямые в общем положении(никакие 2 из них не параллельные, никакие 3 не пересекаются)

Автор: Lapp 18.05.2009 2:31

Видимо, ты хотел сказать ".. в одной точке"))

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

Автор: Рустам 18.05.2009 2:49

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 18.05.2009 7:41

Рустам, что-то я тебя не пойму.. Как-то ты странно представляешь прямые. Ведь ты сам пишешь:

Так ты и делай так в программе! Вот, смотри:

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;

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

Автор: Рустам 18.05.2009 10:32

Спасибо)) сегодня попробую