- 09.12.2015 09:07
- Информатика
- remove_red_eye 18650
- thumb_up 14
Ответы и объяснения 1
Wrap enabled uses Graph; const delta: array[1 .. 4] of record X, Y: integer; end = ((X:-1; Y: 0), (X: 0; Y:-1), (X: 1; Y: 0), (X: 0; Y: 1)); var grDriver, grMode, ErrCode: Integer; len, i, j: integer; begin grDriver := Detect; InitGraph(grDriver, grMode,''); ErrCode := GraphResult; if ErrCode grOk then begin Writeln('Graphics error:', GraphErrorMsg(ErrCode)); readln; halt end; len := 10; moveto(getmaxx div 2, getmaxy div 2); for i := 1 to 10 do begin for j := 1 to 2 do linerel(delta[j].X*len, delta[j].Y*len); inc(len, 10); for j := 3 to 4 do linerel(delta[j].X*len, delta[j].Y*len); inc(len, 10) end; readln; closegraph; end. Примерно
- 01.01.1970 00:00
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.