Паскаль

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

Question

Информатика

Павлуса

18 декабря, 11:05

Паскаль

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

+4

Ответы (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 и закрасить её красным цветом