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

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

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

> геометрия, Работа с прямыми
Рустам
сообщение 17.05.2009 22:11
Сообщение #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 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Рустам
сообщение 17.05.2009 22:49
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 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 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 

- Текстовая версия 27.07.2025 5:45
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"