Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 04.03.2015
Сообщений: 13
1

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

05.03.2015, 13:13. Показов 1905. Ответов 6
Метки нет (Все метки)

вывод на экран случайных эллипсов, линий, треугольников, прямоугольков, ромбов, линий, пикселей и т.д
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2015, 13:13
Ответы с готовыми решениями:

Вывести на форму рисунок, состоящий из различных объектов (линий, многоугольников, эллипсов)
Создайте собственное приложение-выводящий на форму рисунок, состоящий из различных...

Нарисовать сетку из линий или треугольников
ээээ...не знаю даже как сказать и сформулировать....задача не совсем по программированию на...

Нарисуйте 5 треугольников с разным типом линий
Нарисуйте 5 треугольников с разным типом линий и типом и цветом заливки.

Приведите к каноническому виду уравнения линий второго порядка, установите тип этих линий и их расположение
приведите к каноническому виду уравнения линий второго порядка/ установите тип этих линий и их...

__________________
6
Модератор
63332 / 47044 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
06.03.2015, 12:51 3
Лучший ответ Сообщение было отмечено den4ik_73 как решение

Решение

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
60
uses graphABC;
type point=record
           x,y:integer;
           end;
procedure trg(x,y,r:integer);
var p:array[1..4] of point;
    u:real;
    i:byte;
begin
u:=pi/2;
for i:=1 to 4 do
 begin
  p[i].x:=x+round(r*cos(u));
  p[i].y:=y-round(r*sin(u));
  u:=u+2*pi/3;
 end;
polygon(p,4);
end;
procedure romb(x,y,a,b:integer);
var p:array[1..5] of point;
begin
p[1].x:=x; p[1].y:=y-b;
p[2].x:=x+a; p[2].y:=y;
p[3].x:=x; p[3].y:=y+b;
p[4].x:=x-a; p[4].y:=y;
p[5]:=p[1];
polygon(p,5);
end;
var n1,n2,r1,r2,i:integer;
begin
setwindowsize(600,600);
centerwindow;
setbrushstyle(bsClear);
r1:=10;
r2:=100;
n1:=120;
n2:=360;
for i:=1 to 3 do
 begin
  setpencolor(clRed);
  trg(n1+random(n2),n1+random(n2),r1+random(r2));
  setpencolor(clBlue);
  romb(n1+random(n2),n1+random(n2),r1+random(r2),r1+random(r2));
  setpencolor(clGreen);
  rectangle(n1+random(n2)-(r1+random(r2)),n1+random(n2)-(r1+random(r2)),
            n1+random(n2)+(r1+random(r2)),n1+random(n2)+(r1+random(r2)));
  setpencolor(clLime);
  ellipse(n1+random(n2)-(r1+random(r2)),n1+random(n2)-(r1+random(r2)),
            n1+random(n2)+(r1+random(r2)),n1+random(n2)+(r1+random(r2)));
  setpencolor(clPurple);
  line(n1+random(n2)-(r1+random(r2)),n1+random(n2)-(r1+random(r2)),
            n1+random(n2)+(r1+random(r2)),n1+random(n2)+(r1+random(r2)));
  setfontsize(14);
  setfontcolor(clNavy);
  textout(n1+random(n2),n1+random(n2),'è ò.ä.');
 end;
for i:=1 to 1000 do
setpixel(n1+random(n2),n1+random(n2),clMaroon);
 
end.
2
0 / 0 / 0
Регистрация: 04.03.2015
Сообщений: 13
22.03.2015, 13:22  [ТС] 4
Нужны комментарии!
0
Модератор
63332 / 47044 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
22.03.2015, 13:23 5
Напиши.
0
0 / 0 / 0
Регистрация: 04.03.2015
Сообщений: 13
22.03.2015, 13:25  [ТС] 6
не разберусь
0
Модератор
63332 / 47044 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
22.03.2015, 13:56 7
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 graphABC;
type point=record //тип точка с полями координатами
           x,y:integer;
           end;
procedure trg(x,y,r:integer);//рисование треугольника
var p:array[1..4] of point;//массив точек
    u:real; //угол
    i:byte;//счетчик цикла
begin
u:=pi/2;//начальный угол(90 градусов)
for i:=1 to 4 do //4 точки
 begin
  p[i].x:=x+round(r*cos(u)); //откладываем радиус под данным углом
  p[i].y:=y-round(r*sin(u));
  u:=u+2*pi/3; //увеличим центральный угол на 120 градусов
 end;
polygon(p,4); //нарисуем треугольник как полигон
end;
procedure romb(x,y,a,b:integer);//рисование ромба
var p:array[1..5] of point;
begin
p[1].x:=x; p[1].y:=y-b; //от центра откладываем один радиус влево и вправо
p[2].x:=x+a; p[2].y:=y;  //другой вверх и вниз
p[3].x:=x; p[3].y:=y+b;
p[4].x:=x-a; p[4].y:=y;
p[5]:=p[1];
polygon(p,5);
end;
var n1,n2,r1,r2,i:integer;
begin
setwindowsize(600,600); //размер графичемкого окна
centerwindow;//окно в центре экрана
setbrushstyle(bsClear);//стиль кисти без заполнения
r1:=10;//установим предельные радиусы
r2:=100;
n1:=120;//и предельные значения координат центров фигур
n2:=360;
for i:=1 to 3 do
 begin
  setpencolor(clRed); //красный цвет
  trg(n1+random(n2),n1+random(n2),r1+random(r2));//рисуем 3 треугольника
  setpencolor(clBlue); //синий цвет
  romb(n1+random(n2),n1+random(n2),r1+random(r2),r1+random(r2));//3 ромба
  setpencolor(clGreen);//зеленый цвет
  rectangle(n1+random(n2)-(r1+random(r2)),n1+random(n2)-(r1+random(r2)),//3 прямоугольника
            n1+random(n2)+(r1+random(r2)),n1+random(n2)+(r1+random(r2)));
  setpencolor(clLime);//светло-зеленый
  ellipse(n1+random(n2)-(r1+random(r2)),n1+random(n2)-(r1+random(r2)),//3 эллипса
            n1+random(n2)+(r1+random(r2)),n1+random(n2)+(r1+random(r2)));
  setpencolor(clPurple);//пурпурный
  line(n1+random(n2)-(r1+random(r2)),n1+random(n2)-(r1+random(r2)),
            n1+random(n2)+(r1+random(r2)),n1+random(n2)+(r1+random(r2)));//3 линии
//  setfontsize(14); // это убери, просто шутка
//  setfontcolor(clNavy);
//  textout(n1+random(n2),n1+random(n2),'и т.д.');
 end;
for i:=1 to 1000 do  //1000 точек
setpixel(n1+random(n2),n1+random(n2),clMaroon);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.03.2015, 13:56

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

Вывод линий
Всем привет! Дайте пожайлуста исходник Delphi вывода линий на экран или линии. Пробую через...

Вывод цветных линий
Необходимо вывести 16 цветных линий,толщиной по n пикселей

Вывод линий ёлочкой
имееться код который выводит линии одинакового размера <html> <head> <title>for</title> <meta...

Вывод координат линий уровня
Можно ли вывести координаты для определённых линий уровня для функции f(r,z), на прямоугольной...

Вывод текста по изогнутой линий
Приветствую форумучан.Бьюсь над очередной задачей.Суть нужно вывести текст по контуру синусойды или...

Потоки. Вывод горизонтальных линий
Здравствуйте уважаемые эксперты! Есть задача: Все потоки вывод на экран горизонтальную линию/ Вот...


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

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

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