Предмет: Информатика,
автор: Мария345
Составьте программу в Pascal по следующему сценарию: при нажатии на клавишу <к> а произвольном месте экрана появляется квадратик, при нажатии на клавишу <о> - окружность.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: История,
автор: zyukovauv
Предмет: Математика,
автор: alfiyaabdilda
Предмет: Алгебра,
автор: rsergeevich55
Предмет: Алгебра,
автор: Надсам
Предмет: Математика,
автор: ilipatova2009