Пожаловаться
- 18.03.2018 22:41
- Информатика
- remove_red_eye 12459
- thumb_up 39
Ответы и объяснения 1
Program Tank;
uses graphabc;
var w,h:integer;
begin
w:=WindowWidth;
h:=WindowHeight;
circle(w div 2 - 80, h div 2 + 50,18);
circle(w div 2 - 40, h div 2 + 50,18);
circle(w div 2 - 00, h div 2 + 50,18);
circle(w div 2 + 40, h div 2 + 50,18);
circle(w div 2 + 80, h div 2 + 50,18);
Arc (w div 2 - 80, h div 2 + 50, 25, 270, 90);
Arc (w div 2 + 80, h div 2 + 50, 25, 270, 450);
line(w div 2 - 80, h div 2 + 50 - 25, w div 2 + 80, h div 2 + 50 - 25);
line(w div 2 - 80, h div 2 + 50 + 25, w div 2 + 80, h div 2 + 50 + 25);
line(w div 2 - 80, h div 2 - 20, w div 2 - 80, h div 2 + 25);
line(w div 2 + 80, h div 2 - 20, w div 2 + 80, h div 2 + 25);
line(w div 2 - 80, h div 2 - 20, w div 2 + 80, h div 2 - 20);
line(w div 2 - 60, h div 2 - 30, w div 2 + 60, h div 2 - 30);
line(w div 2 - 60, h div 2 - 30, w div 2 - 80, h div 2 - 20);
line(w div 2 + 60, h div 2 - 30, w div 2 + 80, h div 2 - 20);
rectangle(w div 2 + 80, h div 2, w div 2 + 180, h div 2 + 10);
circle(w div 2 + 60, h div 2, 15);
line(w div 2 + 60 - 15, h div 2, w div 2 + 60 + 15, h div 2);
line(w div 2 + 60, h div 2 - 15, w div 2 + 60, h div 2 + 15);
end.
uses graphabc;
var w,h:integer;
begin
w:=WindowWidth;
h:=WindowHeight;
circle(w div 2 - 80, h div 2 + 50,18);
circle(w div 2 - 40, h div 2 + 50,18);
circle(w div 2 - 00, h div 2 + 50,18);
circle(w div 2 + 40, h div 2 + 50,18);
circle(w div 2 + 80, h div 2 + 50,18);
Arc (w div 2 - 80, h div 2 + 50, 25, 270, 90);
Arc (w div 2 + 80, h div 2 + 50, 25, 270, 450);
line(w div 2 - 80, h div 2 + 50 - 25, w div 2 + 80, h div 2 + 50 - 25);
line(w div 2 - 80, h div 2 + 50 + 25, w div 2 + 80, h div 2 + 50 + 25);
line(w div 2 - 80, h div 2 - 20, w div 2 - 80, h div 2 + 25);
line(w div 2 + 80, h div 2 - 20, w div 2 + 80, h div 2 + 25);
line(w div 2 - 80, h div 2 - 20, w div 2 + 80, h div 2 - 20);
line(w div 2 - 60, h div 2 - 30, w div 2 + 60, h div 2 - 30);
line(w div 2 - 60, h div 2 - 30, w div 2 - 80, h div 2 - 20);
line(w div 2 + 60, h div 2 - 30, w div 2 + 80, h div 2 - 20);
rectangle(w div 2 + 80, h div 2, w div 2 + 180, h div 2 + 10);
circle(w div 2 + 60, h div 2, 15);
line(w div 2 + 60 - 15, h div 2, w div 2 + 60 + 15, h div 2);
line(w div 2 + 60, h div 2 - 15, w div 2 + 60, h div 2 + 15);
end.
Пожаловаться
- 19.03.2018 17:14
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы