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

Question

Информатика

Устин

5 ноября, 06:50

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

+2

Ответы (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.