Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Прямые и плоскости

Автор: madbiker 29.11.2005, 21:39

прямая на плоскости может быть задана уравнением ax+by=c,где a,b одновременно не равны нулю, a,b,c - целые.

Пусть даны коэфиценты нескольких прямых a1,b1,c1,a2,b2,c2,...,an,bn,cn.Определите, имеются ли среди этих прямых совпадающие или параллельные. smile

Автор: eskaflone 29.11.2005, 22:39

параллельные это когда a1/a2=b1/b2
совпадающие a1/a2=b1/b2=c1/c2

Автор: madbiker 30.11.2005, 08:35

эм,а мне нужно само решение smile

Автор: eskaflone 30.11.2005, 08:46

Код


for i := 1 to n - 1
   for j := i + 1 to n do
      if (m[i].a*m[j].b = m[j].a*m[i].b) then 
      begin
         inc(kol_parallel);
         if (m[i].a * m[j].c = m[j].a * m[i].c) then inc(kol_sovpad);
      end;

Автор: madbiker 30.11.2005, 10:36

m[i].a * m[j].c = m[j].a * m[i].c
что значит такая запись, m[i]юф,точка что значит?

Автор: eskaflone 30.11.2005, 10:55

Код


type TLine = record
        a,b,c : real;
     end;
var m : array[1..100]of TLine;