Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана

@Влад Богорад · Регистрация: 12.03.2012

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

Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана. При достижении границы экрана овал меняет цвет на розовый и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши. Рисование фигуры оформить в виде процедуры.

@Стрелок · 21.03.2012, 17:31

Тестировалось на Borland Pascal.
Не забудьте заменить 'F:\Pascal\BP\BGI\' на свой путь до папки BGI

Pascal

program zz;
Uses Graph,Crt;
label lab;
var Driver,Razreshenie,ErrCode:integer;
    x,y:integer;
    pass:string;
 
Procedure DrawElipse1;
begin
Ellipse(x,y+1,0,360,50,30);
SetColor(Blue);
 
SetBkColor(Blue);
 
Ellipse(x,y,0,360,50,30);
SetColor(Green);
end;
 
Procedure DrawElipse2;
begin
Ellipse(x,y-1,0,360,50,30);
SetColor(Blue);
 
SetBkColor(Blue);
 
Ellipse(x,y,0,360,50,30);
SetColor(13);
end;
 
begin
x:=320;
y:=0;
Driver:=VGA;
Razreshenie:=VGAHi;
pass:='F:\Pascal\BP\BGI\';
InitGraph(Driver,Razreshenie,pass);
ErrCode:=GraphResult;
 if ErrCode=grOk then
  begin
lab:
   while y<450 do
    begin
     DrawElipse1;
     y:=y+1;
      if keypressed then
       begin
        exit;
       end;
    end;
 
   while y>30 do
    begin
     DrawElipse2;
     y:=y-1;
      if keypressed then
       begin
        exit;
       end;
    end;
   goto lab;
  end
 else
  begin
   writeln;
   write('Code Error: ');
   write(ErrCode);
  end;
Readln;
end.

@Влад Богорад 0 / 0 / 0 Регистрация: 12.03.2012 Сообщений: 26
		1
	Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана 21.03.2012, 11:23. Показов 2283. Ответов 1 Метки нет (Все метки) Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана. При достижении границы экрана овал меняет цвет на розовый и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши. Рисование фигуры оформить в виде процедуры. 0

	21.03.2012, 17:31

Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана

Решение