Question

Составить программу построения узора, образованного пересечением двух семейств расходящихся отрезков, у которых k1 и k2  - расстояния между отрезками слева и справа, а h – смещение-наклон вниз (вверх) всего семейства

Answer 1

Uses crt, graf;
Var gD, gM, i, k1, k2, h: integer;
Begin
k1:= 8; k2 := 3; h:=110; gD:= Detect;
InutGraf (gD, gM, ‘’); setcolor(red);
For i:= 1 to (480 div k1) do
Begin
for i :=1 to n do line (0, i*k1, 640, i*k2+h):
for i :=1 to n do line (0, i*k2+h, 640, i*k1);
end;
readln; Closegraph
end.