Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите с Pascal ABC квадратная спираль

Ответ оставил Гость

Wrap enableduses Graph;constdelta: array[1 .. 4] of recordX, Y: integer;end =((X:-1; Y: 0), (X: 0; Y:-1),(X: 1; Y: 0), (X: 0; Y: 1));vargrDriver, grMode, ErrCode: Integer;len, i, j: integer;begingrDriver := Detect;InitGraph(grDriver, grMode,);ErrCode := GraphResult;if ErrCode <> grOk then beginWriteln(Graphics error:, GraphErrorMsg(ErrCode));readln; haltend;len := 10;moveto(getmaxx div 2, getmaxy div 2);for i := 1 to 10 do beginfor 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.Примерно