350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
Var
N:integer;
P:real;
Begin
Write('N = ');
ReadLn(N);
P:=1;
For N:= 1 to N do
P:=P*(N*2-1)/(2*N);
WriteLn('P = ',P:0:5)
End.
N = 50
P = 0.07959
N = 100
P = 0.05635
N = 200
P = 0.03987
Узнаем, насколько сместится чертёжник после выполнения цикла (вторая и третья команда):
x = (3 + 1) × 3 = 12
y = (3 - 2) × 3 = 3
После выполнения всего алгоритма (без команды 1):
x = 12 - 6 = 6
y = 3 + 9 = 12
Чертёжник вернётся в исходную позицию, если задать команду так, чтобы при выполнении этой команды трижды (ведь цикл повторяется три раза) чертёжник сместился на (-6, -12).
x = -6 ÷ 3 = -2
y = -12 ÷ 3 = -4
Ответ: (-2, -4)
Подставим в блок-схему вместо х число 5. В блоке условия получим выражение 5>18? Это выражение ложно, поэтому выполнение задачи будет дальше по ветке "нет". В вычислительном блоке х примет такое значение:
х=2*5+1=10+1=11
следующий блок изменяет значение х
х=2*11=22
ответ: переменная х примет значение 22
на Pascal фрагмент этого алгоритма будет выглядеть так:
F X<18 THEN BEGIN
X:=2*X+1;
X:=2*X;
END
ELSE
X:=7-5*X
END;