Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 11.03.2014
Сообщений: 6
1

Как провести прямую, соединяющую две точки, не используя процедуру Line?

11.09.2014, 18:20. Просмотров 1467. Ответов 1
Метки нет (Все метки)

Точки заданы с клавиатуры.
Уравнение прямой y=kx+b
k=(y2-y1)/(x2-x1)
b=y1-kx1
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.09.2014, 18:20
Ответы с готовыми решениями:

Создайте процедуру, вычисляющую прямую, проходящую через 2 точки
Определите тип данных, хранящий информацию о прямой. Создайте процедуру, вычисляющую прямую,...

Построить прямую проходящую через 2 заданные точки не используя line
построить прямую проходящую через 2 заданные точки не используя line

Провести прямую (а не отрезок) через заданные точки
Дан отрезок с координатами (x1,x2);(x2,y2). Как провести через эти точки прямую на все окно?(а не...

Нарисовать линию, соединяющую две точки
Добрый вечер Уважаемые пользователи CyberForum! Написал программу, которая считает кратчайшие...

1
Модератор
61154 / 45845 / 31649
Регистрация: 18.05.2008
Сообщений: 110,421
11.09.2014, 18:32 2
Лучший ответ Сообщение было отмечено Ne_domogaco как решение

Решение

Как-то писал такое, не могу найти ту тему.
Вот посмотри.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
uses crt,graph;
var gd,gm:integer;
    a,b:Pointtype;
    k,x,y,c:real;
begin
clrscr;
repeat
writeln('Vvedite koordinaty 1 tochki ot 10 до 400:');
readln(a.x,a.y);
until(a.x>=10)and(a.x<=400)and(a.y>=10)and(a.y<=400);
repeat
writeln('Vvedite koordinaty 2 tochki ot 10 до 400:');
readln(b.x,b.y);
until(a.x>=10)and(b.x<=400)and(b.y>=10)and(b.y<=400)and((a.x<>b.x)or(a.y<>b.y));
gd:=detect;
initgraph(gd,gm,'');
setcolor(12);
setfillstyle(1,12);
fillellipse(round(a.x),round(a.y),2,2);
fillellipse(round(b.x),round(b.y),2,2);
outtextXY(round(a.x)+10,round(a.y)-15,'A');
outtextXY(round(b.x)+10,round(b.y)-15,'B');
{вертикальная}
if a.x=b.x then
 begin
  x:=a.x;
  y:=0;
  while y<getmaxY do
   begin
    putpixel(round(x),round(y),11);
    y:=y+0.1;
   end
 end
{горизонтальная}
else if a.y=b.y then
 begin
  x:=0;
  y:=a.y;
  while x<getmaxX do
   begin
    putpixel(round(x),round(y),11);
    x:=x+0.1;
   end
 end
{остальные}
else
 begin
  x:=0;
  k:=(a.y-b.y)/(b.x-a.x);
  c:=b.y+b.x*k;
  while x<=getmaxX do
   begin
    y:=-round((k*x-c));
    if(y>0)and(y<getmaxY) then putpixel(round(x),round(y),11);
    x:=x+0.1;
   end;
 end;
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.09.2014, 18:32

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

через некоторые 2 точки можно провести прямую, правильно ли сделала?
Через некоторые 2 точки можно провести прямую. Составить интерпретацию, если: T(x) - точка &quot;x&quot;...

Через две точки построить прямую
На координатой сетке построить прямую через две точки... Что-то пробывал, но не выходит... unit...

Определить, можно ли через точку А3 провести прямую, перпендикулярную прямой, проходящей через точки А1 и А2
Помогите пожалуйста. Есть задача: Ввести с клавиатуры координаты точек A1(x1, y1), A2(x2, y2),...

Как через прямую и точку провести плоскость
Через прямую \begin{cases} &amp; \text{ } 2x-y+z-1=0 \\ &amp; \text{ } x+y-z=0 \\ \end{cases} и точку...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.