Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Babka2002
02.06.2023 19:13 •
Информатика
Составить программу для рисования звездного неба(в паскале).
Показать ответ
Ответ:
vlad007g
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 оценок)
Популярные вопросы: Информатика
kristinakissa1
10.10.2020 23:18
Преобразовать выражение...
diana2007ru
21.11.2022 14:54
кто знает Паскаль Вивести на екран у вигляді таблиці значення функції F на інтервалі від Xпоч до Xкін з кроком Н. Значення a, b, c, Xпоч, Хкін, Н – дійсні числа....
CloudySun
14.01.2020 00:22
Дайте правильные ответы на данные задания...
nazarovradion
29.01.2023 16:33
ИНФОРМАТИКА!! Составьте словесный алгоритм и блок-схему для вычисления корней квадратного уравнения по данным значениям его коэффициентов....
alina97531
16.09.2020 18:51
Учебник по содержит информацию следуйщих видов...
BNN11
28.11.2022 23:43
Посчитать какое количество раз встречаются буквы в файле rus.txt или eng.txt. пример вывода программы: буква w встречается 9 раз....
псдрпл
26.06.2021 15:08
Василий пупкин летел из перми в ростов-на-дону через москву. самолет из перми в москву летит 2 часа 15 мин, билет стоит 4100 рублей. полет из москвы в ростов-на-дону стоит...
ArinaM25
04.07.2020 22:14
С (не обращайте внимания на записи карандашом)...
АндрееваДаша
28.09.2021 05:03
Почему движение это жизнь надо...
balatzkymaxp0a4t7
14.04.2020 09:36
Подберите интересные факты о мероприятиях проводимых в кузбассе , для сохранения экологии . !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.