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

Как можно нарисовать петуха в паскале

Ответ:

nastena544

06.10.2020 05:43

Uses Graphabc;
begin
SetWindowWidth(800);
SetWindowHeight(900);
SetPenWidth(1);
PutPixel(400, 400, clred);
Line(0, 150, 100, 150);
Line(0, 150, 100, 200);
Line(100, 150, 150, 100);
Line(100, 50, 200, 150);
Line(100, 50, 200, 0);
Line(200, 0, 250, 50);
Line(250, 50, 300, 0);
Line(300, 0, 300, 100);
Line(300, 100, 350, 100);
Line(350, 100, 250, 150);
Line(250, 150, 300, 350);
Line(300, 350, 400, 400);
Line(50, 300, 100, 200);
Line(50, 300, 100, 250);
Line(100, 250, 150, 550);
Line(150, 550, 300, 650);
Line(400, 400, 500, 250);
Line(500, 250, 650, 250);
Line(650, 250, 750, 450);
Line(750, 450, 650, 400);
Line(650, 400, 550, 500);
Line(550, 500, 650, 450);
Line(750, 600, 650, 450);
Line(600, 550, 750, 600);
Line(700, 700, 600, 550);
Line(500, 600, 700, 700);
Line(400, 650, 500, 600);
Line(400, 800, 400, 650);
Line(450, 850, 400, 800);
Line(250, 850, 450, 850);
Line(350, 800, 250, 850);
Line(300, 650, 350, 800);
end.

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

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

makhastiirisba

30.08.2022 09:21

Программа паскаль. составить программу, чтобы получилось слово pronsk/ заранее !...

Pifpafff

04.06.2023 22:15

После выполнения циклических операций переменная s примет значение: s=0 for i= 1 to 4 if i= 3 then s=s-2 s=s+1 next i...

Жанночка305

07.09.2022 21:54

Написать программу пользователь вводит фамилию имя отчество, а программа выводит фамилия и.о. пример: вход: иванов иван иванович выход: иванов и.о на пайтоне ! 60...

masha1248

21.02.2023 02:23

Выполнить округление натурального числа n с точность до десятков (стандартные функции округления и функции работы со строками не использовать)...

НяшаНика

21.02.2023 02:23

Склавиатуры вводиться число n (0 больше\равно n больше\равно 20). вывести квадрат состоящий из n*n ячеек заполненный числами от 1 до n2 дорожками меняющими направления вверх...

ульяна540

19.12.2020 19:57

Паскаль)как представить в коде программы экспоненциальное число? program exp111; uses crt; var a: real; begin clrscr; write( число: ); readln(a); write( число , a, в седьмой...

sobennikovaox

19.12.2020 19:57

Удалите из символьной строки первые четыре буквы латинского алфавита. pascal с функции delete....

марго170

19.12.2020 19:57

Сколько бит информации несет каждое двузначное число, заканчивающееся на «0»?...

Bandurina

19.12.2020 19:57

Мощность некоторого алфавита равна 64 символа. каким будет объем информации в тексте, состоящем из 100 символов....

ElenaScience

19.12.2020 19:57

Информационное сообщение на языке пероначально было записано в 8 коде кои 8 было перекодировано в 16 кодировку unicod в результате его объём увеличился в 8000 битов найдите...

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

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