Написать программу, которая рисует окружность, движущуюся по экрану

@Loner228 · Регистрация: 04.06.2019

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

4. Написать программу, которая рисует окружность, движущуюся по экрану.

@Joy · 05.06.2019, 06:55

Pascal

uses Graph,Crt;
const r=10;
var
  gd,gm,i:integer;
begin
  gd:=Detect;
  InitGraph(gd,gm,'');
  for i:=r*2 to GetMaxX-2*r do begin
    SetColor(Yellow);
    circle(i,GetMaxY div 2-r div 2,r);
    delay(10);
    SetColor(Black);
    circle(i,GetMaxY div 2-r div 2,r);
  end;
  SetColor(White);
  OutTextXY(10,30,'Finish!');
  readln;
  CloseGraph;
end.

@Loner228 0 / 0 / 0 Регистрация: 04.06.2019 Сообщений: 2
		1
	Написать программу, которая рисует окружность, движущуюся по экрану 04.06.2019, 14:48. Показов 991. Ответов 1 Метки нет (Все метки) 4. Написать программу, которая рисует окружность, движущуюся по экрану. 0

Опции темы