Описать процедуру рисования любого узора. Используя эту процедуру "замостить" узором холст

@123Roman · Регистрация: 27.04.2014

Author24 — интернет-сервис помощи студентам

Разработать программу, в которой описана процедура рисования любого
графического узора, на основе свойства Canvas. Используя указанную процедуру
«замостить» узором холст.

@Puporev · 04.05.2014, 20:54

Вот такое есть..

Delphi
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
procedure ris(xc,yc:integer;cv:TCanvas);
var points: Array[1..4] of TPoint;
    d:integer;
begin
with cv do
 begin
  d:=25;
  Brush.Color:=RGB(0,225,0);
  Rectangle (xc-d,yc-d,xc+d,yc+d);
  Brush.Color:=RGB(225,0,0);
  points[1] := Point(xc-d,yc);
  points[2] := Point(xc,yc-d);
  points[3] := Point(xc+d,yc);
  points[4] := Point(xc,yc+d);
  Polygon(points);
  Brush.Color:=RGB(0,0,225);
  Ellipse (xc-round(0.6*d),yc-round(0.8*d),xc+round(0.6*d),yc+round(0.8*d));
  d:=12;
  Brush.Color:=RGB(0,225,0);
  Rectangle (xc-d,yc-d,xc+d,yc+d);
  Brush.Color:=RGB(225,0,0);
  points[1] := Point(xc-d,yc);
  points[2] := Point(xc,yc-d);
  points[3] := Point(xc+d,yc);
  points[4] := Point(xc,yc+d);
  Polygon(points);
  Brush.Color:=RGB(0,0,225);
  Ellipse (xc-round(0.6*d),yc-round(0.8*d),xc+round(0.6*d),yc+round(0.8*d));
 end;
end;
procedure TForm1.FormPaint(Sender: TObject);
var x,y:integer;
begin
y:=25;
while y<=Form1.ClientHeight do
 begin
  x:=25;
  while x<=Form1.ClientWidth do
   begin
    ris(x,y,Form1.Canvas);
    x:=x+50;
   end;
  y:=y+50;
 end;
 
end;

@123Roman · 04.05.2014, 21:09 **[ТС]**

А начало можно программы пожалуйста

@Puporev · 05.05.2014, 07:18

Безрукость, ленность и отсутствие интереса к изучаемогу предмету это очень плохо.

Новые блоги и статьи Все статьи Все блоги /
Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .	Kubernetes с Apache Flink для обработки данных в реальном времени Mr. Docker 17.05.2025 Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .	Использование декораторов в Python py-thonny 17.05.2025 Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .	Реализация многопоточных сетевых серверов на Python py-thonny 16.05.2025 Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .
C# и IoT: разработка Edge приложений с .NET и Azure IoT UnmanagedCoder 16.05.2025 Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .	Гибридные квантово-классические вычисления: Примеры оптимизации EggHead 16.05.2025 Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .	Использование вебсокетов в приложениях Java с Netty Javaican 16.05.2025 HTTP, краеугольный камень интернета, изначально был спроектирован для передачи гипертекста с минимальной интерактивностью. Его главный недостаток в контексте современных приложений — это. . .	Реализация операторов Kubernetes Mr. Docker 16.05.2025 Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .	Отражение в C# и динамическое управление типами stackOverflow 16.05.2025 Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .

@123Roman 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 77

	Описать процедуру рисования любого узора. Используя эту процедуру "замостить" узором холст 04.05.2014, 19:56. Показов 1235. Ответов 3 Метки нет (Все метки) Разработать программу, в которой описана процедура рисования любого графического узора, на основе свойства Canvas. Используя указанную процедуру «замостить» узором холст. 0

@123Roman 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 77
	04.05.2014, 21:09 [ТС]
	А начало можно программы пожалуйста 0

Опции темы