Беларусь, Минск
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Была в сети 17.09.2024 19:36
Аверина Нина Викторовна
учитель информатики, математики
289 826
47 
Местоположение
Специализация
Программа рисует звёздное небо
Категория:
Информатика
15.04.2018 08:19
program nebo;
uses crt,graphabc;
const c:array[1..23] of integer=(clBlack,clPurple,clWhite,clMaroon,clRed,
clNavy,clGreen,clBrown,clBlue,clSkyBlue,clYellow,clCream,clAqua,
clOlive,clFuchsia,clTeal,clGray,clLime,clMoneyGreen,
clLtGray,clDkGray,clMedGray,clSilver);
var i,n,x,y:integer;
begin
SetWindowSize(640,480);
SetWindowTitle('Звездное небо');
write('n= ');
readln(n);
hidecursor;
clearwindow(clblack);
for i:=1 to n do
begin
x:=random(640);
y:=random(480);
setpencolor(c[1+i mod 23]);
setbrushcolor(c[1+i mod 23]);
circle(x,y,2);
delay(100);
end;
end.
Результат:
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
