Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
volkovaolesya2
31.10.2020 22:49 •
Информатика
Мне к завтрашнему дню нужно сделать программу,рисующую пейзаж с солнцем и радугой. у меня у родителей годовщина 15 лет, я даже подарок не купила. за понимание! 59 !
Ответ:
yurkamail
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 оценок)
Популярные вопросы: Информатика
elezavetkavtoray
05.01.2020 00:51
Пример: 500кбайт перевести в бит, 1 тбайт перевести в байт ,20пбайт перевести мбайт, 102400 байт перевести мбайт,65536бит перевести кбайт,65536 байт мбайт.заранее...
mishaklibashev
05.03.2023 17:06
Сформировать массив размером в 20 элементов из чисел от 10 до +10 (Random). Вывести на экран этот массив. Поменять местами 3,5 и 7,9 элемент. Вывести на экран новый...
дима2721
03.01.2020 11:05
Сформировать массив размером в 30 элементов из чисел от -20 до 20 (Random). Вывести на экран этот массив. Добавить к каждому элементу массива случайное число из...
vladgoncharov2p01aun
01.04.2022 21:31
Дан одномерный массив. Запиши верный ответ. (Считай индексы элементов массива, начиная с 1.) -17 39 0 -5 4. 12 Значение элемента массива 4. Индекс элемента массива...
glazalmahfidbbw
10.02.2023 17:26
Which of the HTTP headers does the browser look at to decide how to display the retrieved document?...
gilkatay1
22.10.2021 15:37
Решить дифференциальные уравнения a)y tgx-y=2. b) 3y -2y -8y=0....
Damir123400
22.10.2021 15:37
Дополнить предложения подходящими по смыслу существительными: 1. зимой под прячется от холода озимая. 2. жёлуди надо искать под , а шишки - под 3. за росли яблоки...
petryxa333
22.10.2021 15:37
Склонение этих существительных.звезде земле бирюзе заре зиме свинце луне тишине...
adelina1476p0c7y7
22.10.2021 15:37
Решение : какое число штрихов на единицу длины имеет дифракционная решетка если зеленая линия ртути в спектре первого порядка наблюдается под углом 19 градусов?...
RMDEL
22.10.2021 15:37
Найти примеры : тире между подлежащим и сказуемым, знаки препинания в предложениях с однородными членами, знаки препинания в предложениях с обращениями, знаки препинания...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.
плагиат ,конечно, но всё же