Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Venidiktova
17.07.2021 02:36 •
Информатика
Составить программу для рисования звездного неба(в паскале).
Показать ответ
Ответ:
missmarial2010
04.10.2020 23:43
uses graph;
var x,y,n,gd,gm,i,c: integer;
begin
write('звезд=');
readln(N);
gd:=detect;
initgraph(gd,gm,'');
randomize; for i:=1 to n do
begin
x:=random(640);
y:=random(480);
c:=random(16);
setcolor(c);
circle(x,y,1)
end;
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
artemluts007
04.09.2021 10:37
Неперервний потік візуальної інформації, який розділяється на окремі кадри під час запису - це...
mobilion2016
09.06.2021 12:52
Дана логическая схема. Определите наличие или отсутствие сигнала на выходе схемы:...
лчлвоу
29.12.2020 20:24
Запиши число 14685 в развёрнутом виде, начиная со старшего разряда...
ххх87
13.08.2021 05:24
Какие действия можно совершить с файлами...
sasharuf2000
07.12.2022 05:22
Река клязьма естественная или искусственная?...
Кукарику12
07.12.2022 05:22
Решите систему неравенств 5х 20 c низу 3x...
maxbf
07.12.2022 05:22
Написать сочинение-миниатюру на тему школьная форма: за или против ( выберите сами за или против) надо! умоляю 30 !...
LLarь
07.12.2022 05:22
Работа с текстом наступило лето. дюймовочка жила в лесу.она сплела колыбельку и повесила ее под большой лист. ела девочка цветочную пыльцу,а пила росу. лето чудесное время...
tryx3
07.12.2022 05:22
Длина радиуса окружности 10 см. определи, принадлежит ли точка aокружности, если расстояние до этой точки от центра окружности равно 12 см....
VeZun4ik
07.12.2022 05:22
Яку абсолютну висоту має гора, якщо біля її підніжжя температура повітря становить +28*с,а на вершині -14*с?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,y,n,gd,gm,i,c: integer;
begin
write('звезд=');
readln(N);
gd:=detect;
initgraph(gd,gm,'');
randomize; for i:=1 to n do
begin
x:=random(640);
y:=random(480);
c:=random(16);
setcolor(c);
circle(x,y,1)
end;
readln
end.