Вопрос по информатике:
Паскаль!!! Помогите пожалуйста нарисовать в Pascal ABC рисунок.
Пожаловаться
- 05.07.2015 06:08
- Информатика
- remove_red_eye 14164
- thumb_up 43
Ответы и объяснения 1
Uses GraphABC;
Var W,H:integer;
Begin
W:=WindowWidth;
H:=WindowHeight;
SetPenColor(clGreen);
SetPenWidth(3);
Line(0,H div 2,W,H div 2);
Line(W div 2,0,W div 2,H);
Line(3*(W div 4),0,3*(W div 4)+(H div 4),(H div 4));
Line(3*(W div 4),0,3*(W div 4)-(H div 4),(H div 4));
Line(3*(W div 4)+(H div 4),(H div 4),3*(W div 4),2*(H div 4));
Line(3*(W div 4)-(H div 4),(H div 4),3*(W div 4),2*(H div 4));
Rectangle(3*(W div 4)-(H div 8),H div 8,3*(W div 4)+(H div 8),3*(H div 8)) ;
Line(3*(W div 4)-(H div 8),H div 8,3*(W div 4)+(H div 8),3*(H div 8));
Line(3*(W div 4)+(H div 8),H div 8,3*(W div 4)-(H div 8),3*(H div 8));
End.
Var W,H:integer;
Begin
W:=WindowWidth;
H:=WindowHeight;
SetPenColor(clGreen);
SetPenWidth(3);
Line(0,H div 2,W,H div 2);
Line(W div 2,0,W div 2,H);
Line(3*(W div 4),0,3*(W div 4)+(H div 4),(H div 4));
Line(3*(W div 4),0,3*(W div 4)-(H div 4),(H div 4));
Line(3*(W div 4)+(H div 4),(H div 4),3*(W div 4),2*(H div 4));
Line(3*(W div 4)-(H div 4),(H div 4),3*(W div 4),2*(H div 4));
Rectangle(3*(W div 4)-(H div 8),H div 8,3*(W div 4)+(H div 8),3*(H div 8)) ;
Line(3*(W div 4)-(H div 8),H div 8,3*(W div 4)+(H div 8),3*(H div 8));
Line(3*(W div 4)+(H div 8),H div 8,3*(W div 4)-(H div 8),3*(H div 8));
End.
Пожаловаться
- 06.07.2015 16:28
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы