Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
=ЕСЛИ(ИЛИ(B28=B27;B28=B26);МАКС(B22^3;B23;B24^3;B25^(1/2))^3;ЕСЛИ(B28<B26;(LOG(B28^2)^3)+(LN(B26+B27))^2;EXP(B22+B23+B28)))
Если во второй формуле десятичный логарифм, то так:
=ЕСЛИ(ИЛИ(B28=B27;B28=B26);МАКС(B22^3;B23;B24^3;B25^(1/2))^3;ЕСЛИ(B28<B26;LOG10(B28^2)^3+LN(B26+B27)^2;EXP(B22+B23+B28)))
[1;+бесконечности) лови, возможно ответ
Const
N = 3;
M = 4;
Var
A:array[1..N,1..M] of real;
i,j:integer;
Sr,B,C:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random()*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn;
End;
WriteLn;
WriteLn('Сглаженная матрица:');
For i:= 1 to N do
Begin
B:=A[i,1];
C:=A[i,2];
A[i,1]:=(B+C)/2;
For j:= 2 to M-1 do
Begin
Sr:=(B+C+A[i,j+1])/3;
B:=A[i,j];
A[i,j]:=Sr;
End;
A[i,M]:=(B+A[i,M])/2
End;
For i:= 1 to N do
Begin
For j:= 1 to M do
Write(A[i,j]:6:3,' ');
WriteLn;
End
End.
Задача 1). Для исполнителя Чертежник в этой задаче надо подставить вместо x значение a, аналогично для y подставляем значение b
получим:
<span>(X+2, Y+9)
</span>Задача 2). Аналогично для второго задания<span>. Только надо начинать со второй команды, чтобы вернуться в точку (1,1).
переведи в точку(4,2)
переведи в точку(7,6)
переведи в точку (1,1)
</span>
Задача 3)<span>. </span>В этой задаче надо просто подставить числовые значения из левого столбца таблицы в правый столбец:<span>
(x+1,y+4)
(x+6,y+8)
(x+2,y-5)
Задача 4). В этой задаче необходимо сдвигать перо чертежника по вертикали и по горизонтали.
сдвинь на вектор(0,9)</span>
<span>сдвинь на вектор(9,0)</span>
<span><span>сдвинь на вектор(0,9)</span>
</span>