Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.09.2018 18:08
- Информатика
- remove_red_eye 18596
- thumb_up 11
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
uses GraphABC;
begin
SetPenColor(clRed);
Line(20,150,20,30);
Line(20,30,130,30);
Line(130,30,100,60);
Line(100,60,130,90);
Line(130,90,20,90)
end.
Можно еще так, чтобы короче:
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
uses GraphABC;
begin
SetPenColor(clRed);
MoveTo(20,150); LineTo(20,30);
LineTo(130,30); LineTo(100,60);
LineTo(130,90); LineTo(20,90)
end.
- 22.09.2018 00:25
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.