Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Soldszar
0 / 0 / 1
Регистрация: 01.05.2010
Сообщений: 12
1

Четырехугольник с 2-мя точками

23.12.2011, 22:07. Просмотров 337. Ответов 1
Метки нет (Все метки)

Написал с 4-мя точками, а как с 2-мя не знаю.
Исправьте

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
Program figuri;
  uses graph;
  type P=1..640;
       T=(krug,treugolnik, pryamougolnik);
       graphika=record
       tsvet:byte;
       case tip:T of
         krug:(kx:P; ky:P; r:P);
         treugolnik:(kx1:P; ky1:P; kx2:P; ky2:P; kx3:P; ky3:P);
         pryamougolnik:(kpx1:P; kpy1:P; kpx2:P; kpy2:P; kpx3:P; kpy3:P; kpx4:P; kpy4:P);
       end;
  Const n=50;
  Var a:array[1..n] of graphika; i,b:byte; d,m:integer;
     begin
     d:=Detect;
     InitGraph(d,m, 'C:\Program files\Trbo Pascal 7.1\BGI\EGAVGA.BGI');
     randomize;
     for i:=1 to n do
     begin
       b:=random(3);
       a[i].tsvet:=2+random(15);
 
       case b of
       0: begin a[i].tip:=krug; a[i].kx:=5+random(640);
                a[i].ky:=5+random(480); a[i].r:=random(100); end;
       1: begin a[i].tip:=treugolnik; a[i].kx1:=5+random(640);
                a[i].ky1:=5+random(480); a[i].kx2:=a[i].kx1+random(50);
                a[i].ky2:=a[i].ky1+random(50); a[i].kx3:=a[i].kx1+random(50);
                a[i].ky3:=a[i].ky1+random(50); end;
       2: begin a[i].tip:=pryamougolnik; a[i].kpx1:=5+random(640);
                a[i].kpy1:=5+random(480); a[i].kpx2:=a[i].kpx1+random(50);
                a[i].kpy2:=a[i].kpy1; a[i].kpx3:=a[i].kpx1; a[i].kpy3:=a[i].kpy1+random(50);
                a[i].kpx4:=a[i].kpx2; a[i].kpy4:=a[i].kpy3; end;
       end;
     case a[i].tip of
     krug: begin setcolor(a[i].tsvet); circle(a[i].kx, a[i].ky, a[i].r); end;
     treugolnik: begin setcolor(a[i].tsvet);
                       line(a[i].kx1, a[i].ky1, a[i].kx2, a[i].ky2);
                       line(a[i].kx1, a[i].ky1, a[i].kx3, a[i].ky3);
                       line(a[i].kx3, a[i].ky3, a[i].kx2, a[i].ky2);
                 end;
     pryamougolnik: begin setcolor(a[i].tsvet);
                          line(a[i].kpx1, a[i].kpy1, a[i].kpx2, a[i].kpy2);
                          line(a[i].kpx1, a[i].kpy1, a[i].kpx3, a[i].kpy3);
                          line(a[i].kpx4, a[i].kpy4, a[i].kpx2, a[i].kpy2);
                          line(a[i].kpx4, a[i].kpy4, a[i].kpx3, a[i].kpy3);
                    end;
     end;
     end;
     readln;
     end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2011, 22:07
Ответы с готовыми решениями:

Можно ли построить четырехугольник?
Даны действительные положительные числа a, b, c, d. Выяснить, можно ли построить четырехугольник с...

Определить, образуют ли точки выпуклый четырехугольник
люди помогите решить задачу Даны координаты четырех точек (x1,y1), (x2,y2), (x3,y3), (x4,y4)....

Вывести на экран вписанный в окружность четырехугольник
4. Написать программу, которая выводит на экран вписанный в окружность четырехугольник.

Определить, можно ли построить из отрезков четырехугольник
i(a - 4)0.23 i-нечетное и а>0 k= (i + tg a) a4 i- четное и а<0 (i - β )0.5 ...

Определить больший по площади четырехугольник
Не могу решить на паскале выручайте Известны координаты точек A, B, C, D и K, L, M, N, образуют...

1
AnDrew_LP
161 / 161 / 42
Регистрация: 29.05.2010
Сообщений: 435
23.12.2011, 23:36 2
Использовать rectangle религия не позволяет?
Pascal
1
rectangle(a[i].kpx1, a[i].kpy1,a[i].kpx2, a[i].kpy2);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2011, 23:36

Найти четырехугольник наибольшей площади с вершинами в заданных точках
На плоскости дан набор точек с целочисленными координатами. Необходимо найти четырехугольник...

Четырехугольник задан координатами своих вершин составить программу которая определяет какой это четырехугольник
Помогите пожалуйста

Является ли четырехугольник ромбом
Нужно вычислить является ли четырехугольник со сторонами a, b, с и d ромбом? P.S знаю что...


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

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

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