«Подсолнух» - нарисовать подсолнечник и солнце на небосводе

@nick171 · Регистрация: 19.12.2019

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

Дописать програму на анимацию. Пожалуйста,очень надо
Задание.«Подсолнух» - нарисовать подсолнечник и солнце на небосводе.Солнце
движется слева направо по верху экрана, а цветок подсолнуха возвращается за ним.

Вообщем я написала код на то, чтоб солнце двигалось,но у меня проблема с подсолнечником.Я сделала стебель подсолнуха,но не знаю как изобразить цветок подсолнуха и чтоб он двигался.Кто знает помогите плиз.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt,graphABC;
var
x:integer;
begin
while x<640 do
begin
Window.Clear;
setpencolor(clyellow);
setBrushColor(clyellow);
circle(x,100,50);
Setpencolor(clgreen);
Setpenwidth(4);
Line(300,300,300,400);
Setpencolor(clyellow);
circle(300,300,40);
Line(300,400,300,400);
x:=x+5;
delay(100);
end;
end.

@Сергей Игнатьев · 08.06.2020, 16:54

nick171,
Подсолнух примерно такой:

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
 uses graphABC;
var (ra,rb):=(50.0,30.0);
    (x0,y0):=(300,300);
    da:=10.0*pi/180;
x:integer;
  procedure Draw_Lief;
  BEGIN  //прорисовка лепестков
  var x1,x2,x3,y1,y2,y3:integer;
  Setpencolor(clyellow);
  Setpenwidth(1);
  setBrushColor(clyellow);
  For i:integer:=1 to 20 do 
  begin
   var angle:=(i-1)*18*pi/180;
   x1:=round(x0-ra*cos(angle)); y1:=round(y0+ra*sin(angle));  
   x2:=round(x0-rb*cos(angle+da)); y2:=round(y0+rb*sin(angle+da));
   x3:=round(x0-rb*cos(angle-da)); y3:=round(y0+rb*sin(angle-da));
   Polygon(Arr(Pnt(x1,y1),Pnt(x2,y2),Pnt(x3,y3)));
   end;
  END;
begin
while x<640 do
begin
LockDrawing; //Чтобы изображение не мигало
clearwindow(cldeepskyblue); 
setpencolor(clgray);
setbrushcolor(clgray);
rectangle(0,350,640,550);
setpencolor(clyellow);
setBrushColor(clyellow);
circle(x,100,50);
Setpencolor(clgreen);
Setpenwidth(5);
Line(300,300,300,400);
Draw_Lief; //Рисуем лепестки
 setpenwidth(7);
 setBrushColor(clyellow);
 Circle(300,300,30);
setBrushColor(clBrown);
Setpencolor(clBrown);
circle(300,300,22);
Line(300,400,300,400);
x:=x+1;
 sleep(10);
 UnLockDrawing;
end;
end.

@mr-Crocodile · 08.06.2020, 17:08

Сергей Игнатьев, подсолнух классный! только автору нужно, чтобы он двигался вслед за солнцем

Сообщение от nick171

а цветок подсолнуха возвращается за ним.

@Сергей Игнатьев · 08.06.2020, 18:50

mr-Crocodile,
Вопрос решил не сразу, вот результат:

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
 uses graphABC;
var (ra,rb):=(50.0,30.0); 
    y0:=300;
    r:=22;           //Радиус центра подсолнуха
    da:=10.0*pi/180; //ширина лепестка (рад)
    a,d:real;
    x,x0,dx,dx1:integer;
  procedure Draw_Lief(a:real);
  BEGIN  //прорисовка лепестков
  var x1,x2,x3,y1,y2,y3:integer;
  Setpencolor(clyellow);
  Setpenwidth(1);
  setBrushColor(clyellow);
  For i:integer:=1 to 20 do 
  begin
   var angle:=(i-1)*18*pi/180;
   x1:=round(x0-ra*cos(angle)*sin(a)); y1:=round(y0+ra*sin(angle));  
   x2:=round(x0-rb*cos(angle+da)*sin(a)); y2:=round(y0+rb*sin(angle+da));
   x3:=round(x0-rb*cos(angle-da)*sin(a)); y3:=round(y0+rb*sin(angle-da));
   Polygon(Arr(Pnt(x1,y1),Pnt(x2,y2),Pnt(x3,y3)));
   end;
  END;
begin
setwindowsize(640,500); //Начальный размер окна
x0:=Window.Center.X;
a:=26.0 *pi/180.0; // Начальнай угол 
while x<640 do
begin
LockDrawing; //Чтобы изображение не мигало
clearwindow(cldeepskyblue); 
setpencolor(clgray);
setbrushcolor(clgray);
rectangle(0,350,640,550);
setpencolor(clyellow);
setBrushColor(clyellow);
circle(x,100,50);
Setpencolor(clgreen);
Setpenwidth(5);
Line(x0,300,x0,400);
a:=a+(128/640)*pi/180; // поворот на один шаг 
dx:=round(r*sin(a));
dx1:=round(30*sin(a))+1; // запас +1, чтобы не виден зазор при повоороте
Draw_Lief(a); //Рисуем лепестки как функция от угла поворота
 setpenwidth(7);
 setBrushColor(clyellow);
FillEllipse(x0-dx1,y0-31,x0+dx1,y0+31);  
setBrushColor(clBrown);
Setpencolor(clBrown);
FillEllipse(x0-dx,y0-r,x0+dx,y0+r); 
x:=x+1;
 sleep(10);
 UnLockDrawing;
end;
end.

Добавлено через 10 минут
nick171,
Могу еще пририсовать плывущие облака и траву.

@Сергей Игнатьев · 09.06.2020, 10:55

nick171,
Как обещал, украсил картинку облаками, травой и др.

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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
 uses graphABC;
var (rk,rb):=(50.0,30.0); 
   y0:=270;         //Центр подсолнуха
   r:=22;           //Радиус центра подсолнуха
   a:real;
   x,x0,dx,dx1:integer;
   xg,yg:array [1..1500,1..2]of integer; // массив координат травы
   cg:array [1..1500,1..2] of integer; // массив координат цвета травы
  procedure Draw_Lief(k:integer;a:real);
  BEGIN  //прорисовка листьев и лепестков
  var x1,x2,x3,y1,y2,y3,n:integer;
  var ra,d,da:real;
  if k=1 then begin
  n:=10;
  ra:=rk-2;
  da:=18.0*pi/180; //ширина листа (рад)
  d:=da/2;;
  Setpencolor(clgreen);
  setBrushColor(clgreen); 
  end else begin
  ra:=rk;
  da:=10.0*pi/180; //ширина лепестка (рад)
  d:=0;
  n:=20;
  Setpencolor(clyellow);
  setBrushColor(clyellow); 
  end;
  Setpenwidth(1);
  For i:integer:=1 to n do 
  begin
   var angle:=(i-1)*(360/n)*pi/180+d;
   x1:=round(x0-ra*cos(angle)*sin(a)); y1:=round(y0+ra*sin(angle));  
   x2:=round(x0-rb*cos(angle+da)*sin(a)); y2:=round(y0+rb*sin(angle+da));
   x3:=round(x0-rb*cos(angle-da)*sin(a)); y3:=round(y0+rb*sin(angle-da));
   Polygon(Arr(Pnt(x1,y1),Pnt(x2,y2),Pnt(x3,y3)));
   end;
  END;
  procedure Cloud(x,y: integer); //процедура рисования облака
  begin 
  setpencolor(clwhite);
  setbrushcolor(clwhite);
  rectangle(x,y-20,x+100,y);
  circle(x,y-10,10);
  circle(x+100,y-10,10);
  circle(x+20,y-20,20);
  circle(x+80,y-20,20);
  circle(x+50,y-30,20);
  end;
  procedure grass; //процедура рисования травы
  BEGIN  
  for var i:=1 to 1000 do
  begin
  setpenwidth(3);
  setpencolor(rgb(cg[i,1],240,cg[i,2]));
  line(xg[i,1],yg[i,1],xg[i,2],yg[i,2]);
  end;
  END;
  BEGIN
  setwindowsize(640,500); //Начальный размер окна
  x0:=Window.Center.X;
  a:=26.0 *pi/180.0; // Начальнай угол 
  for var j:=1 to 1500 do
  begin //заполнение травой случайным образом
  xg[j,1]:=random(640);
  yg[j,1]:=random(150)+330;   
  xg[j,2]:=xg[j,1]+random(10)-5;
  yg[j,2]:=yg[j,1]+random(15)+10;
  for var m:=1 to 2 do
  begin
  cg[j,m]:=+random(160);
  end;
  end; 
 while x<640 do
 begin
 LockDrawing; //Чтобы изображение не мигало
 clearwindow(cldeepskyblue); 
 setpencolor(clgreen);
 setbrushcolor(clgreen);
 rectangle(0,350,640,550);
 setpencolor(clyellow);
 setBrushColor(clyellow);
 circle(x,100,50);
 Cloud(250-x,60);  //Рисуем облака
 Cloud(550-x,100);
 Cloud(100-x,60);
 Cloud(850-x,90);  
 Cloud(1000-x,70);
 Cloud(650-x,60);
 grass;   //Трава
 Setpencolor(clgreen);
 Setpenwidth(5);
 Line(x0,y0,x0,y0+100);
 a:=a+(128/640)*pi/180; // поворот на один шаг 
 dx:=round(r*sin(a));
 dx1:=round(30*sin(a))+1; // запас +1, чтобы не виден зазор при повоороте
 Draw_Lief(1,a); //Рисуем лепестки как функция от угла поворота
 Draw_Lief(2,a);
 setpenwidth(7);
 setBrushColor(clyellow);
 FillEllipse(x0-dx1,y0-31,x0+dx1,y0+31);  
 setBrushColor(clBrown);
 Setpencolor(clBrown);
 FillEllipse(x0-dx,y0-r,x0+dx,y0+r); 
 x:=x+1;
 sleep(20);
 UnLockDrawing;
end;
END.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

«Подсолнух» - нарисовать подсолнечник и солнце на небосводе

Решение