Войти Регистрация Спроси ai-bota

Мне к завтрашнему дню нужно сделать программу,рисующую пейзаж с солнцем и радугой. у меня у родителей годовщина 15 лет, я даже подарок не купила. за понимание! 59 !

Показать ответ

Ответ:

ElenaAristova1501

30.08.2020 23:51

Uses graphABC;
var i: integer;

procedure Montain (x,y,k: integer);
begin
setpenwidth(1);
setpencolor(clgreen);
line(x,y,x-(30*k),y+(30*k));
line(x,y,x+(30*k),y+(30*k));
line(x+(30*k),y+(30*k),x-(30*k),y+(30*k));
floodfill(x,y+10,clgreen);
setpencolor(clbrown);
line(x,y,x-(20*k),y+(20*k));
line(x,y,x+(20*k),y+(20*k));
line(x+(20*k),y+(20*k),x-(20*k),y+(20*k));
floodfill(x,y+10,clbrown);
setpencolor(clwhite);
line(x,y,x-(10*k),y+(10*k));
line(x,y,x+(10*k),y+(10*k));
line(x+(10*k),y+(10*k),x-(10*k),y+(10*k));
floodfill(x,y+5,clwhite);
end;

begin
setpencolor(clnavy);
setwindowsize(900,600);
clearwindow(clnavy);
for i:=1 to 100 do
begin
setbrushcolor(rgb(random(255),random(255),random(255)));
circle(random(700)+200,random(180),3);
end;
setbrushcolor(clgreen);
rectangle(0,350,900,600);
setpencolor(clblue);
arc(900,1300,900,0,180);
floodfill(800,500,clblue);
Montain (500,150,7);
Montain (700,170,6);
Montain (300,200,5);
Montain (200,270,3);
Montain (600,270,3);
Montain (400,270,2);
Montain (50,300,2);
setpencolor(clteal);
arc(500,1250,900,80,180)
arc(800,1250,900,95,180);floodfill(100,500,clOlive);
setpencolor(clwhite);
arc(100,100,50,-84,180);
arc(70,130,40,-30,150);
floodfill(100,100,clwhite);
end.

плагиат ,конечно, но всё же

0,0(0 оценок)

Популярные вопросы: Информатика

Яумницакрасотка

21.03.2021 04:37

Решите информатику: 1) Var a, b, c: integer; Begin a:=63; b:=237; c:= 35; While (a+c) Begin a:=a+6; c:=c+4; b:=b-10; End. Определи чему равна переменная b. 2) Var...

КаТюНя234556

24.10.2022 02:28

В цветовой модели RGB для кодирования одного пикселя используется 3 байта. Фотографию размером 3543×4724 пикселей сохранили в виде несжатого файла с использованием...

AnnaFruzanna

29.08.2021 11:02

На флагах скандинавских стран изображён крест, смещённый в левую сторону, как, например, на флаге Швеции. Пусть высота изображения флага равна n, длина равна m...

DianaSi12

24.07.2021 14:12

У игрока в космической стрелялке есть очень мощная лазерная пушка. Но она неподвижна и может стрелять только в одном направлении. Игрок может расставить на игровом...

Гулчехра1022

23.01.2021 00:31

Задание 1 Интерес представляют эффективные алгоритмы поиска вхождений подстроки в строку, то есть алгоритмы, быстро работающие для больших строк. Поэтому мы будем...

cherryybommb

16.10.2022 02:35

Задача 3-4: Социальная дистанция - 4 В задании 3-3 N = 7, M = 10, d = 3. В ответе должно быть 7 строк по 10 символов в каждой....

dani2d

14.10.2020 22:20

Гриша уже несколько несколько недель отрабатывает свои навыки в новомодной онлайн-игре про команду космического корабля, вычисляющую предателей среди них. Так как...

Солі

10.12.2022 12:07

Тема Python: 1)Выполните задания по порядку: 1. В третьей строке оформите вывод переменной y с форматного вывода, с количеством знаков в дробной части по умолчанию...

ольга240387

20.02.2022 14:24

Надо сделать задания по кумиру! Так как в кумире не разбираюсь сделать не могу....

диана2440

22.12.2020 08:31

программный код линейного алгоритма Известны скорость катера и скорость течения реки. Если катер плыл по течению и против течения одинаковое расстояние, вычисли,...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку