Регистрация Спросить otvet5GPT
женя1373
18.06.2020 19:16
Информатика
Есть ответ 👍

Составьте программу, которая на весь экран рисует картинку "звёздное небо": на чёрном фоне - белые круги ("звёзды"), центр и радиусу которых определяются случайным образом.

142
476
Посмотреть ответы 2

Ответы на вопрос:

Malishka9209
Malishka9209
4,5(4 оценок)

unit unit1;

interface

uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls,math, extctrls;

type tform1 = class(tform) button1: tbutton; image1: timage; procedure button1click(sender: tobject); procedure image1click(sender: tobject); private { private declarations } public { public declarations } end;

var form1: tform1;

implementation

{$r *.dfm}

procedure tform1.button1click(sender: tobject); vara,x,y,r: integer; begin randomize; image1.picture : = nil; image1.canvas.brush.color: =clblack; image1.canvas.rectangle (0,0,image1.width,image1.height); image1.canvas.brush.color: =clwhite;

for a: =1 to randomrange(9,20) do begin x: =randomrange(50,1000); r: =randomrange(1,15); y: =randomrange(50,550); image1.canvas.ellipse(x-r,y-r,x+r,y+r); end;

end; procedure tform1.image1click(sender: tobject); begin

end;

end.

 

 

на форме image и кнопка

(если тебе нужна просто программа(как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты : (   )

золото23
золото23
4,5(87 оценок)
Пиксели по вертикали*пиксели по горизонтали*глубину цвета (в битах) по-моему так

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

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

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS