tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Нужно нарисовать простой
Нужно нарисовать простой рисунок для паскаля с объяснением
NastenkaDrow
2 16.09.2019 09:50
0
Ответы
помогите5132
07.10.2020 19:27
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
var p1:=Arr((220,100),(260,100),(300,140),(240,140),(240,180),
(280,220),(280,280),(220,320),(160,320),(100,260),(140,260),
(180,220),(220,220),(200,180),(200,140));
DrawPolygon(p1); FloodFill(200,300,clYellow); // тело
p1:=Arr((160,320),(160,340),(200,340),(180,360),(160,340));
Polyline(p1); FloodFill(180,350,clDarkOrange); // лапа 1
p1:=Arr((220,320),(220,340),(260,340),(240,360),(220,340));
Polyline(p1); FloodFill(240,350,clDarkOrange); // лапа 2
Line(260,140,280,120); FloodFill(280,130,clRed); // клюв
Brush.Color:=clWhite; Circle(260,120,5); // контур глаза
Brush.Color:=clBlack; Circle(260,120,2) // зрачок
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ajklggghzyz
09.08.2019 01:00
Напишите программу в паскале. дано: дан порядковый номер дня года (отсчет идет с 1-го января). требуется вывести номер дня недели этого дня, если 1 января — понедельник....
alesqwer
09.08.2019 01:00
Напишите букву а в программе паскаль...
гпү
09.08.2019 01:00
Уисполнителя квадратор две команды, которым присвоены номера: 1. возведи в квадрат 2. вычти 5 исполнитель работает только с натуральными числами. составьте алгоритм получения...
Dayana2005041
18.12.2020 18:59
Запишите значения элементов массива, сформированного следующим образом: for i:=1 to 8 do a[i]:=i*i-5; i 1 2 3 4 5 6 7 8 a[i] Памагит...
Boi11
18.12.2020 19:00
составте блок схему и решите на языке паскаль следующую задачу найти площадь по 3 данным сторонам используя формулу гернона...
romaberduk03
18.12.2020 19:01
Сформировать массив из 11 целых чисел. Подсчитать количество его чётных отрицательных элементов. Паскаль...
Никитаотличник1
03.09.2019 01:00
Какой тип переменной может присваиваться, если она может быть числом или строкой? vba...
ninahatsanowsk
03.09.2019 01:00
Написать программу для вычисления выражения у=in|x3/а|...
Karin31
03.09.2019 01:00
Скакой функции можно выделить только целую часть вещественного числа и отбросить его дробную часть?...
saha1710
03.09.2019 01:00
Скакой функции можно вычислить длину строки?...
Популярные вопросы
1. В. П. Астафьев в рассказе «Конь с розовой гривой» использует диалектные...
2
Написать 6 предложений про поступок товарища... Скорее всего хороший,...
2
Производные функции с заданием на фото....
1
Объясните в кратце что такое союз и какие союзы относятся к и составным...
1
Вставьте недостающие слова и знаки препинания в отрывок из произведения:...
1
Стихи молодого поэта скоро будут выпущены в журнале. Он обратно опоздал...
1
Будь ласка, до ть с захистом Вітчизни 1. Коли проводиться чищення і змащення...
2
Какое количество вещества кислорода необходимо для окисления 2.4 моль...
3
нужно решение у меня сейчас экзамен...
2
Необходимо решить , необходимо решение и ответ...
3
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
var p1:=Arr((220,100),(260,100),(300,140),(240,140),(240,180),
(280,220),(280,280),(220,320),(160,320),(100,260),(140,260),
(180,220),(220,220),(200,180),(200,140));
DrawPolygon(p1); FloodFill(200,300,clYellow); // тело
p1:=Arr((160,320),(160,340),(200,340),(180,360),(160,340));
Polyline(p1); FloodFill(180,350,clDarkOrange); // лапа 1
p1:=Arr((220,320),(220,340),(260,340),(240,360),(220,340));
Polyline(p1); FloodFill(240,350,clDarkOrange); // лапа 2
Line(260,140,280,120); FloodFill(280,130,clRed); // клюв
Brush.Color:=clWhite; Circle(260,120,5); // контур глаза
Brush.Color:=clBlack; Circle(260,120,2) // зрачок
end.