Пожаловаться
- 24.10.2017 04:38
- Информатика
- remove_red_eye 8426
- thumb_up 50
Ответы и объяснения 1
Uses GraphABC;
Var A:array of point;
Begin
A:=new point[3];
Brush.Color:=clGreen;
A[0]:=(Window.Width div 2,170);
A[1]:=(Window.Width div 2 +80,230);
A[2]:=(Window.Width div 2 -80,230);
Polygon(A);
A[0]:=(Window.Width div 2,120);
A[1]:=(Window.Width div 2 +50,180);
A[2]:=(Window.Width div 2 -50,180);
Polygon(A);
A[0]:=(Window.Width div 2,90);
A[1]:=(Window.Width div 2 +30,130);
A[2]:=(Window.Width div 2 -30,130);
Polygon(A);
Brush.Color := clBrown;
FillRect(A[0].X-10,230,A[0].X+10,250);
End.
Var A:array of point;
Begin
A:=new point[3];
Brush.Color:=clGreen;
A[0]:=(Window.Width div 2,170);
A[1]:=(Window.Width div 2 +80,230);
A[2]:=(Window.Width div 2 -80,230);
Polygon(A);
A[0]:=(Window.Width div 2,120);
A[1]:=(Window.Width div 2 +50,180);
A[2]:=(Window.Width div 2 -50,180);
Polygon(A);
A[0]:=(Window.Width div 2,90);
A[1]:=(Window.Width div 2 +30,130);
A[2]:=(Window.Width div 2 -30,130);
Polygon(A);
Brush.Color := clBrown;
FillRect(A[0].X-10,230,A[0].X+10,250);
End.
Пожаловаться
- 25.10.2017 15:17
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы