Паскаль

В центре окна (640 х400) нарисовать окружность радиусом 40 и закрасить её красным цветом

Question

Информатика

Ноябрина

24 февраля, 06:55

Паскаль

В центре окна (640 х400) нарисовать окружность радиусом 40 и закрасить её красным цветом

+1

Ответы (1)

Знаете ответ на вопрос?

Мерона · Answer 1

Program circle;

uses graphabc;

var

x:integer = 640;

y:integer = 400;

r:integer = 40;

begin

setwindowsize (x, y) ;

setpencolor (clblack) ;

setpenwidth (3) ;

DrawCircle (x div 2, y div 2, r) ;

setbrushcolor (clred) ;

FillCircle (x div 2, y div 2, r)

end.

ПаскальВ центре окна (640 х400) нарисовать окружность радиусом 40 и закрасить её красным цветом

Паскаль

В центре окна (640 х400) нарисовать окружность радиусом 40 и закрасить её красным цветом