Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Sophie9649
01.03.2020 07:33 •
Информатика
Дорогие информатики напишите команду line как нарисовать !
Ответ:
dima1019
03.10.2020 13:18
Program Zvezda;
Uses GraphABC;
begin SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); Line(290, 289, 369, 318); Line(369, 318, 340, 248); Line(340, 248, 410, 190); Line(410, 190, 340, 190); Line(340, 190, 289, 111); Line(289, 113, 289, 289); Line(242, 249, 341, 190); Line(340, 249, 242, 190); Line(171, 191, 290, 220); Line(291, 220, 411, 191); Line(209, 319, 290, 222); Line(290, 222, 369, 321); End.
0,0
(0 оценок)
Популярные вопросы: Информатика
vlad070504
18.10.2020 09:17
Текст набранный на компьютере, содержит 25 страниц на каждой странице 32 строк,а в каждой строке по 32 символов определите информационый обьем текста, если один символ кодируется...
ewenchester
23.07.2020 11:33
Как в табличном процессоре организовать проверку существования треугольника(по длинам трех отрезков) и определить,будет ли он равнобедренным или прямоугольным...
Natali8881
28.03.2021 20:53
Что представляет собой электронный адрес...
atalalihin
28.03.2021 20:53
Дано n чисел.написать программу,которая подсчитывает их сумму.(pascalabc)...
ВалераГущина
12.03.2023 16:03
Дайте 2-3 определения слову информатика...
nastia04102015
17.04.2020 19:44
Опишите на языке или одном из языков программирования алгоритм получения из заданного целочисленного массива размером 30 элементов другого массива ,который будет содержать противоположные...
Hahanicejoke
17.04.2020 19:44
Сколько секунд потребуется модему, сообщение со скоростью 28800 бит/с, чтобы передать растровое изображение размером 800*600 пикселей, при условии, что в палитре 2^24 цветов...
magmet103p02l67
12.05.2023 17:17
Какое значение будет выведено на экран в результате выполнения программы? const n=6; var i,k,a: integer; f:array[1..n] of integer; begin for i:=1 to n do f[i]:=n-i+1; a:=f[f[2]-f[4]];...
тоня119
18.02.2021 15:05
Придумать рассказ про ослика,книгу и ноутбук...
DetasGames
18.02.2021 15:05
Одно ведро вмещает 7литров воды, другое-3 литра. придумай алгоритм. цель: отмерить 6 литров....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Uses GraphABC;
begin SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); Line(290, 289, 369, 318); Line(369, 318, 340, 248); Line(340, 248, 410, 190); Line(410, 190, 340, 190); Line(340, 190, 289, 111); Line(289, 113, 289, 289); Line(242, 249, 341, 190); Line(340, 249, 242, 190); Line(171, 191, 290, 220); Line(291, 220, 411, 191); Line(209, 319, 290, 222); Line(290, 222, 369, 321); End.