0 / 0 / 0
Регистрация: 12.03.2020
Сообщений: 2
1

Написать программу для рисования данного орнамента, написать комментарии к каждому действию программы

12.03.2020, 23:21. Показов 1005. Ответов 2

Написать программу для рисования данного орнамента, написать комментарии к каждому действию программы
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2020, 23:21
Ответы с готовыми решениями:

Написать программу для изображения орнамента по образцу
Написать программу для изображения орнамента по образцу. Использовать циклы, процедуры. ...

Комментарий к каждому действию программы
Дайте пожалуйста комментарий к каждому действию программы, потому, как не могу сам разобраться. ...

Написать комментарии к строкам выполнения программы и написать, где находится рекурсия
#include "stdafx.h" #include <iostream> #include <locale> using namespace std; struct Road ...

Написать программу для рисования геометрических фигур
Написать программу для рисования геометрических фигур

2
0 / 0 / 0
Регистрация: 12.03.2020
Сообщений: 2
12.03.2020, 23:44  [ТС] 2
Использовать циклы, процедуры.

Добавлено через 11 минут
Можно использовать эту программу, осталось только раскрасить и написать комментарии
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
61
62
63
64
65
66
67
68
69
uses
GraphABC;
const
r = 17;
x0 = 5;
ww = WindowWidth-1;
y0 = 5;
wh = WindowHeight-1;
var
x, y:integer;
 
procedure Rectangle1(x, y:integer);{прямоугольник внешний}
begin
x:=x0+2; y:=y0+2; MoveTo(x,y);
x:=ww-10; y:=y0+2; LineTo(x,y); {вправо}
x:=ww-10; y:=wh-4; LineTo(x,y);{вниз}
x:=x0+2; y:=wh-4; LineTo(x,y);{влево}
x:=x0+2; y:=y0+2; LineTo(x,y);{вверх}
end;
 
procedure Rectangle2(x, y:integer);{прямоугольник внутренний}
begin
x:=x0+round(2.5*r); y:=y0+round(2.5*r); MoveTo(x, y);
x:=ww-round(3.1*r); y:=y0+round(2.5*r); LineTo(x, y); {вправо}
x:=ww-round(3.1*r); y:=wh-round(2.7*r); LineTo(x, y); {вниз}
x:=x0+round(2.5*r); y:=wh-round(2.7*r); LineTo(x, y);{влево}
x:=x0+round(2.5*r); y:=y0+round(2.5*r); LineTo(x, y);{вверх}
end;
 
procedure Circle(x, y, r:integer);
begin
DrawCircle(x, y, r);
end;
 
procedure PerimetrCircle(x, y, r:integer);{по периметру}
var
i:integer;
begin
x:=r+10; y:=r+10;
for i:=1 to 34 do {вправо}
begin
x:=x+r;
Circle(x, y, r);
end;
 
for i:=1 to 25 do {вниз}
begin
y:=y+r;
Circle(x, y, r);
end;
 
for i:=1 to 34 do {влево}
begin
x:=x-r;
Circle(x, y, r);
end;
 
for i:=1 to 25 do {вверх}
begin
y:=y-r;
Circle(x, y, r);
end;
end;
 
begin 
Rectangle1(x, y);
Rectangle2(x, y);
PerimetrCircle(x, y, r);
end.
0
Почетный модератор
64073 / 47484 / 32734
Регистрация: 18.05.2008
Сообщений: 115,185
13.03.2020, 08:19 3
Написать программу для изображения орнамента по образцу
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2020, 08:19

Написать комментарии для программы, пожалуйста)
.model tiny .stack 100h .data outStr db '0000$' .code translByte proc push ax push ax shr...

Написать программу для рисования кривой n-ого порядка
help!!!

Написать программу для данного случая
Здравствуйте. основная программа уже есть. Надо рассмотреть именно в этих случаях. Помогите...

Как написать простую программу для рисования линии или другого графического примитива
Как написать простую программу для рисования линии или другого графического примитива в geany на...

Нужно написать программу для данного цикла
S = 1+ cosX/1!+cos2X/2!+cos3X/3!+⋯+cosnX/n! E = 10^-4 Точное значение: T=e^cosX*cos(sinx)

Написать программу для создания данного рисунка
написать программу для создания данного рисунка


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

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

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