Составьте программу в Pascal по следующему сценарию: при нажатии на клавишу а произвольном месте экрана появляется квадратик, при нажатии на клавишу - окружность.

Question

Информатика

Аннюня

7 апреля, 08:16

Составьте программу в Pascal по следующему сценарию: при нажатии на клавишу а произвольном месте экрана появляется квадратик, при нажатии на клавишу - окружность.

+1

Ответы (1)

Знаете ответ?

Илиодор · Answer 1

Uses GraphABC;

var

s:char;

x, y, r:integer;

begin

readln (s) ;

x:=Random (100) + 200;

y:=Random (100) + 200;

r:=Random (100) + 100;

if s='к' then DrawRectangle (x, y, x+r, y+r) ;

if s='о' then DrawCircle (x, y, r) ;

end.