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

Нарисовать лес на экране (нарисовать дерево, и размножить его на экране)

29.01.2017, 12:31. Показов 3211. Ответов 1
Метки нет (Все метки)

73. Нарисовать лес на экране (нарисовать дерево, и размножить его на экране)
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2017, 12:31
Ответы с готовыми решениями:

Нарисовать на экране прямоугольник и заставить его двигаться по горизонтали
Зараннее вам благодарен)

Нарисовать звезду на экране
66. Нарисовать звезду на экране.

Нарисовать машинку на экране
72. Нарисовать машинку на экране

Нарисовать на экране кривую
Помогите пожалуйста, Нарисовать на экране кривую x=Rcos(t),y=Rsin(t), где...

1
Модератор
63709 / 47268 / 32576
Регистрация: 18.05.2008
Сообщений: 114,572
29.01.2017, 15:19 2
Лучший ответ Сообщение было отмечено magman как решение

Решение

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
uses graphABC;
procedure elka(x,y,a:integer);
procedure trg;
begin
setpencolor(clGreen);
setbrushcolor(clGreen);
line(x-a,y+a,x+a,y+a);
line(x-a,y+a,x,y);
line(x,y,x+a,y+a);
floodfill(x,y+a div 2,clGreen);
end;
var i:integer;
begin
for i:=1 to 6 do
 begin
  trg;
  y:=y+2*a div 3;
  a:=a+5
 end;
setpencolor(clBrown);
setbrushcolor(clBrown);
rectangle(x-a div 8,y+a div 3,x+a div 8,y+a div 3+a div 4);
end;
var x,y,i,j:integer;
begin
y:=1;
while y<windowheight do
 begin
  x:=1;
  while x<windowwidth do
   begin
    elka(x,y,5);
    x:=x+60;
   end;
  y:=y+90;
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2017, 15:19

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

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

Нарисовать увеличение круга на экране
74. Нарисовать увеличение круга на экране.

Нарисовать на экране 2 различных треугольника
5.Написать программу, которая вычерчивает на экране 2 различных треугольника (один закрашенный,...


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

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

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