tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Мне задали нарисовать
Мне задали нарисовать елку с елочными игрушками в паскале, !
Софья3601
3 16.07.2019 21:00
1
Ответы
Kybe009
07.09.2020 13:27
Program HappyNewYear;
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ruslangusen
06.06.2019 19:56
Три магазина заказывают на складе книжки. если магазин заказывает больше 30 экземпляров какой-либо книги, склад уменьшает стоимость заказа на 10%. составить таблицу, которая...
провривррф
06.06.2019 19:36
Запишите подряд без пробелов и разделителей последние пять чисел, которые будут напечатаны на экране при выполнении вызова f(2). числа должны быть записаны в том порядке,...
Шарарашка090
18.07.2019 07:30
Найти нок( x и его суммы(x2)) например: 26=x; x2=6+2=8; + найти нок или 129=x; x2=1+2+9=12; + найти нок но только ввиде !...
begem0tcs
18.07.2019 07:30
Ежедневно мама дает сыну на 1 рубль больше суммы предыдущего дня (начиная с 1 руб).сколько мальчик накопит за год? составить в паскале программу вычисление (циклом)...
miniahmetovtimu
15.01.2021 12:55
Алғашқы әскери робот қашан пайда болды?Робот-танктер;Ұшқышсыз ұшатын роботтарРобот-минатазалаушылар (сапёрлер) ...
aiphone20032
15.01.2021 12:54
Программалау тілдерінің даму тарихы тақырыбында зерттеу жасаңдар...
arrrrrrrrr1
15.01.2021 12:53
Запиши верный ответ, если дан алгоритм: a1:=8/(23x) a2:=a1/x a3:=a2/x a4:=a3/x y:=a1+a4 ответ (для переменной используй латинскую раскладку):...
milka0121
11.09.2019 22:50
Запишите группу музыкальных файлов, имена которых заканчиваться на букву е...
VanilkaII
25.08.2019 19:10
Вывести все значения элементов заданной числовой последовательности. входные данные: выходные данные: во входном потоке в первой строке записано единственное целое число...
никита3429
25.08.2019 19:10
Паскаль мне нужно что будет выведено на экран после выполнения фрагмента программы: begin a: =12; if (a 10) and (a 12) then n: =a+5 else n: =a-1; writeln(n); end. варианты...
Популярные вопросы
Разложите на множители 3a/2-9ab...
3
Установіть, про що йдеться в уривках з історичних джерел. дайте історичний...
2
Строительные материалы. решите с подробным объяснением. определите объем...
1
Фото тетради для практических работ 6 класс беларусь тема биосфера...
2
[tex](x^{2} -3x-4)\sqrt{2x-5} =0[/tex]найти произведение решений уравнения:...
3
Вкаких неравенстах х прав: 1)10,5+8,9...
2
Сделать синтаксический разбор предложений: 1.привычка усладила горе,...
1
Какова массовая доля железа в оксиде железа(2)feo?...
1
Якщо ціна паркету (р) пов язана із ціною деревини для його виробництва...
3
Лабораторная работа √3 монологическое высказывание и диалог. 15...
1
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.