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

281

442

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

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

Mamayuliya1986

Информатика

4,4(20 оценок)

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 и кнопка

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