Вопрос по информатике:
Нарисовать изображение ,движущееся из центра экрана в левый,верхний угол(в паскале)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.11.2016 15:46
- Информатика
- remove_red_eye 13615
- thumb_up 46
Ответы и объяснения 2
uses
GraphABC;
begin
var w:=Window.Width;
var h:=Window.Height;
var x0:=w div 2 -1;
var y0:=h div 2 -1;
SetCoordinateOrigin(x0,y0);
var k:=h/w;
for var x:=0 downto -x0 do begin
var y:=Trunc(k*x);
Brush.Color:=clRed;
Pen.Color:=clRed;
Circle(x,y,10);
sleep(50);
Brush.Color:=clWhite;
Pen.Color:=clWhite;
Circle(x,y,15)
end;
end.
- 09.11.2016 05:44
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.