![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Рустам |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 40 Пол: Мужской Репутация: ![]() ![]() ![]() |
прямая на плоскости может быть задана уравнением ay+bx+c=0 где а и b одновременно не равны 0
будем рассматривать прямые только с целыми коэфициентами a b c пусть даны коэффициенты нескольких прямых a1 b1 c1, a2 b2 c2,.., an bn cn 1) определить имеются ли среди этих прямых совпадающие или параллельные 2) Имеются ли три прямые имеющие общую точку 3) определить находятся ли данные прямые в общем положении(никакие 2 из них не параллельные, никакие 3 не пересекаются) |
![]() ![]() |
Рустам |
![]()
Сообщение
#2
|
Новичок ![]() Группа: Пользователи Сообщений: 40 Пол: Мужской Репутация: ![]() ![]() ![]() |
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.
это немного другой вариант....сравнение на паралельность работает ...добавил на пересечение формулы но не проверял думаю почти верно... Помогите чем сможете |
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 5:45 |