15 мин до сдачи Вопрос3.3. В каком направлении движется робот *



назад

поворачивается налево

поворачивается направо

вперед

​

1)

CLS
RANDOMIZE TIMER
INPUT "N = ", N
DIM D%(N)
PRINT "D("; N; "):";
K = 0
FOR i = 1 TO N
    D%(i) = RND * (2 * N + 1) - N
    PRINT " "; D%(i);
NEXT i
PRINT
INPUT "T = ", T
FOR i = 1 TO N
    IF D%(i) = T THEN
       K = K + 1
    END IF
NEXT i
PRINT "K = "; K
END

2)

CLS
RANDOMIZE TIMER
DIM D%(14), C%(14)
PRINT "D(14):";
K = 0
FOR i = 1 TO 14
    D%(i) = RND * 41 - 20
    PRINT " "; D%(i);
    IF D%(i) < 7 THEN
       K = K + 1
       C%(K) = D%(i)
    END IF
NEXT i
PRINT
PRINT "C("; K; "):";
FOR i = 1 TO K
    PRINT " "; C%(i);
NEXT i
END

// П

uses Drawman;

begin

Field(3, 4);

ToPoint(1, 1);

PenDown;

OnVector(0, 2);

OnVector(1, 0);

OnVector(0, -2);

end.

// Б

uses Drawman;

begin

Field(3, 4);

ToPoint(1, 1);

PenDown;

OnVector(0, 2);

OnVector(1, 0);

PenUp;

ToPoint(1, 2);

PenDown;

OnVector(1, 0);

OnVector(0, -1);

OnVector(-1, 0);

end.

// Ч

uses Drawman;

begin

Field(3, 4);

ToPoint(1, 3);

PenDown;

OnVector(0, -1);

OnVector(1, 0);

OnVector(0, 1);

OnVector(0, -2);

end.

// Ц

uses Drawman;

begin

Field(25, 27);

ToPoint(5, 25);

PenDown;

OnVector(0, -20);

OnVector(15, 0);

OnVector(0, 20);

OnVector(0, -20);

OnVector(2, 0);

OnVector(0, -3);

end.

// Ш

uses Drawman;

begin

Field(4, 4);

ToPoint(1, 3);

PenDown;

OnVector(0, -2);

OnVector(2, 0);

OnVector(0, 2);

OnVector(0, -2);

Onvector(-1, 0);

OnVector(0,2);

end.

// E

uses drawman;

begin

Field(3, 4);

ToPoint(1, 1);

PenDown;

OnVector(0, 2);

OnVector(1, 0);

PenUp;

ToPoint(1, 2);

PenDown;

OnVector(1, 0);

PenUp;

ToPoint(1, 1);

PenDown;

OnVector(1, 0);

end.

(Если я тебя правильно понял то вот держи)

рад