Изменить заливку круга по нажатию клавиши

@Танюха0-о · Регистрация: 17.04.2011

Author24 — интернет-сервис помощи студентам

Помогите сделать задание:
Составьте программу по следующему сценарию: на экране нарисована желтая окружность. При нажатии на клавишу <к>-заливка круга становится красной, <б> окрашивается в белый, а при нажатии на <о> - очищается (то есть становиться таким же цветом, что и фон)

@Puporev · 19.04.2011, 17:04

Pascal

uses crt,graph;
var xc,yc,r:integer;
    c:char;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r:=150;
setcolor(14);
setfillstyle(1,14);
fillellipse(xc,yc,r,r);
outtextXY(xc-120,20,'к/К-krasnyj б/Б-belyj о/О-ochistka');
outtextXY(xc-50,40,'Vyhod - Esc');
repeat
if keypressed then
 begin
  c:=readkey;
  case c of
  'к','К':begin
          setcolor(12);
          setfillstyle(1,12);
          fillellipse(xc,yc,r,r);
          end;
  'б','Б':begin
          setcolor(15);
          setfillstyle(1,15);
          fillellipse(xc,yc,r,r);
          end;
  'о','О':begin
          setcolor(0);
          setfillstyle(1,0);
          fillellipse(xc,yc,r,r);
          end;
  #27:exit;
  end;
 end;
until c=#27;
end.

@Танюха0-о 0 / 0 / 0 Регистрация: 17.04.2011 Сообщений: 4
		1
	Изменить заливку круга по нажатию клавиши 19.04.2011, 16:18. Показов 2923. Ответов 1 Метки нет (Все метки) Помогите сделать задание: Составьте программу по следующему сценарию: на экране нарисована желтая окружность. При нажатии на клавишу <к>-заливка круга становится красной, <б> окрашивается в белый, а при нажатии на <о> - очищается (то есть становиться таким же цветом, что и фон) 0

	19.04.2011, 17:04

Изменить заливку круга по нажатию клавиши

Решение