Program P1;
Uses Crt; {можно и не использовать, без оной clrscr - видаст ошибку, что нет такого}
Var a,p: Real;
n,i: Integer;
Begin
ClrScr; {просто чтобы очистить экран можно и не использовать}
Write('Type a: '); Read(a);
Write('Type n: '); Read(n);
for i:=1 to n do
begin
p:=p+(a*(a-i*n)*(a-n*n));
{не совсем понятны три точки в условии}
end;
Writeln('p=', p:3:3); {количество знаков после запятой и общее}
Readkey; {или можно использовать Readln;}
End.
Смотри картинки
Объяснение:
3.
Пусть Чертёжник в точке с начальными координатами (x, y).
Чтобы узнать где после всех команд сместиться на вектор оказался Чертёжник надо сложить все указанные команды, отдельно по каждой оси.
x = 3 + 1 + (-1) + 0 = 3 + 1 - 1 + 0 = 3
y = 3 + 0 + (-1) + 1 = 3 + 0 - 1 + 1 = 3
Чертежник оказался в точке с координатами (x +3, y +3).
Чтобы вернуться в исходную точку надо заменить узнанные векторы противоположными:
сместиться на вектор (-3, -3)
4.
После выполнения команды сместиться на вектор (a, b), Чертёжник оказывается в точке (x + a, y + b), относительно начальных координат (x, y).
начальные координаты (1, 1)
Т.к. цикл должен повториться 3 раза, то выполним указанные в нём команды 3 раза.
начальные координаты (1, 1)
сместиться на вектор (2, 0) - Чертёжник оказывается в точке (3, 1)
начальные координаты (3, 1)
сместиться на вектор (0, 1) - Чертёжник оказывается в точке (3, 2)
начальные координаты (3, 2)
сместиться на вектор (2, 0) - Чертёжник оказывается в точке (5, 2)
начальные координаты (5, 2)
сместиться на вектор (0, 1) - Чертёжник оказывается в точке (5, 3)
начальные координаты (5, 3)
сместиться на вектор (2, 0) - Чертёжник оказывается в точке (7, 3)
начальные координаты (7, 3)
сместиться на вектор (0, 1) - Чертёжник оказывается в точке (7, 4)
Смещения по оси x вправо и по оси y вверх - положительные.
Смещения по оси x влево и по оси y вниз - отрицательные.