Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
SlashX6
16 / 16 / 9
Регистрация: 16.03.2012
Сообщений: 433
#1

Нарисовать домик, а так же дым и звезды

05.10.2014, 14:25. Просмотров 3200. Ответов 1

Добрый день!

Рисую дом с трубой, дымом, полумесяцем и звёздами. Не получается нарисовать дым и звёзды ( 10 штук ).

Вот что есть:

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 Dom;
uses graphabc;
 
procedure star;
begin
SetBrushColor(clYellow);
Line(190, 11, 140, 90);
Line(140, 90, 71, 90);
Line(70, 90, 141, 150);
Line(141, 150, 109, 220);
Line(109, 220, 190, 189);
Line(190, 189, 269, 218);
Line(269, 218, 240, 148);
Line(240, 148, 310, 90);
Line(310, 90, 240, 90);
Line(240, 90, 189, 11);
 
end;
 
begin
 
  setwindowtitle ('Dom');
  setpencolor (clbrown);
  setpenwidth (2);
  rectangle(100,100,270,200); 
  
  setbrushcolor(clyellow);
  rectangle(130,120,160,160); 
  rectangle(210,120,240,160); 
  line(100,100,185,50);       
  line(185,50,270,100);       
  
  line(100,80,100,100);       
  line(100,80,110,80);        
  line(110,80,110,100);       
  
  line(145,120,145,160);      
  line(130,130,145,130);      
  line(225,120,225,160);      
  line(210,130,225,130);      
  circle(185,75,12);
  setbrushstyle (bssolid);
  floodfill(110,110,clbrown);
  setfontcolor(clyellow);
  setfontstyle(fsbold);
  setfontsize(1);
  setbrushcolor(clteal);
  
  star;
  
end.

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.10.2014, 14:25
Ответы с готовыми решениями:

Нарисовать домик, из трубы которого идет дым
Нарисовать домик из трубы которого идет дым

Нарисовать домик из трубы которого идет дым
Помогите нарисовать домик из трубы которого идет дым в паскале абц

Графика: домик, из трубы идет дым
написать программу в котором изображается домик, с трубы которого идет дым,...

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

Нарисовать клоуна и домик
нужно нарисовать 3 и 4 задание...вроде как просто,а начинаю тупить и ошибки...

1
erl27
892 / 741 / 831
Регистрация: 06.09.2013
Сообщений: 1,561
05.10.2014, 21:27 #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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
program Dom;
 
uses
  graphabc;
 
//Рисует n-конечную звезду
procedure myStar(x0, y0, nn, r1, r2: integer; C: ColorType);//r1 < r2 
var
  x, y, i, R: integer;
  a: real;
begin
  a := random; //начальный угол - случайный
  SetPenColor(clYellow);
  SetPenWidth(2);
  for i := 0 to 2 * nn do 
  begin
    a := a + pi / nn; //угол увеличиваем на 360/(2*nn) градуса (в радианах)
    if odd(i) then R := r1
    else R := r2;
    x := x0 + Round(R * cos(a));
    y := y0 + Round(R * sin(a));
    if i = 0 then MoveTo(x, y) //сначала устанавливаем точку
    else LineTo(x, y)//потом проводим отрезки
  end;
  FloodFill(x0, y0, C)
end;
 
var
  x, y, dx, dy, r1, r2, nn, i, j, n, m, W, H, a: integer;
  C: ColorType;//цвет звезды
 
begin
  ClearWindow(clBlue);
  r1 := 6;  //Меньший радиус
  r2 := 15; //Больший радиус
  C := clYellow; //цвет заливки звезды
  W := WindowWidth;
  H := WindowHeight;
  n := 4; m := 8;
  a := 100; //Расстояние от нижнего края окна до верхней границы земли
  dx := round(W / n);
  dy := round((H - a) / m);
 
  //Заполняем небо звездами:
  for i := 1 to n do
    for j := 1 to m do 
    begin
      x := (i - 1) * dx + random(dx - r2);
      y := (j - 1) * dy + random(dy - r2);
      if not ((x > 100) and (y > 280) and (x < 280))//Место, НЕ где расположен домик 
        then myStar(x, y, 5, r1, r2, C) //рисуем звезду
    end;
  
  //Земля:
  Line(0, H - a, W, H - a);
  FloodFill(10, H - a + 10, clGreen);
  
  //Дом:
  setwindowtitle('Dom');
  setpencolor(clbrown);
  setpenwidth(2);
  x := 100; y := 350; //Координаты домика
  rectangle(x, y, x + 170, y + 100); 
  
  setbrushcolor(clyellow);
  rectangle(x + 30, y + 20, x + 60, y + 60); 
  rectangle(x + 110, y + 20, x + 140, y + 60); 
  line(x, y, x + 85, y - 50);       
  line(x + 85, y - 50, x + 170, y);       
  
  line(x, y - 20, x, y);       
  line(x, y - 20, x + 10, y - 20);        
  line(x + 10, y - 20, x + 10, y);       
  
  line(x + 45, y + 20, x + 45, y + 60);      
  line(x + 30, y + 30, x + 45, y + 30);      
  line(x + 125, y + 20, x + 125, y + 60);      
  line(x + 110, y + 30, x + 125, y + 30);      
  circle(x + 85, y - 25, 12);
  
  FloodFill(x + 101, y - 37, clRed);
  
  setbrushstyle(bssolid);
  floodfill(x + 10, y + 10, clbrown);
  setfontcolor(clyellow);
  setfontstyle(fsbold);
  setfontsize(1);
  setbrushcolor(clteal)
end.
Звезды можно писать и без цикла процедурой myStar (записывать 10 раз), здесь только пример.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.10.2014, 21:27

Нарисовать домик через write
Пользователь вводит число (сторону квадрата или сторону домика), необходимо...

Нарисовать домик с окном и дверью, и рядом дерево
Нужно нарисовать домик с окном и дверью, и рядом дерево. В общем, чем больше...

Нарисовать домик и человечка, который возвращается домой
Нужно нарисовать домик и человечка который возвращается домой и еще нужен фон....


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

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

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