Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.09.2015 04:39
- Информатика
- remove_red_eye 5790
- thumb_up 27
Ответы и объяснения 1
Uses graphABC;
var x1,y1,x2,y2,k:integer;
procedure paintline(var x1,y1,x2,y2,k:integer);
begin;
x1:=x2;
y1:=y2;
x2:=x2+10;
line(x1,y1,x2,y2);
x1:=x2;
y2:=y2-10;
line(x1,y1,x2,y2);
y1:=y2;
x2:=x2+10;
line(x1,y1,x2,y2);
x1:=x2;
y2:=y2+10;
line(x1,y1,x2,y2);
inc(k);
if k<3 then paintline(x1,y1,x2,y2,k);
end;
begin;
x2:=20;
y2:=20;
k:=0;
paintline(x1,y1,x2,y2,k);
x1:=x2;
y1:=y2;
x2:=x2+10;
line(x1,y1,x2,y2);
end.
- 24.09.2015 09:01
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.