<span>№1:</span>
<em><span>Для перевода целой части необходимо умножить разряд числа на соответствующую ему степень разряда.</span></em>
<span>101 = 2<span>^{2}</span></span><span>*1 + 2<span>^{1}</span></span><span>*0 + 2<span>^{0}</span></span><span>*1 = 4 + 0 + 1 = 5</span>
<em>Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда</em>
101 = 2<span>^{-1}</span>*1 + 2<span>^{-2}</span>*0 + 2<span>^{-3}</span>*1 = 0.625
Аналогично:
№2
101 = 2<span>^{2}</span>*1 + 2<span>^{1}</span>*0 + 2<span>^{0}</span>*1 = 4 + 0 + 1 = 5
101000 = 2<span>^{-1}</span>*1 + 2<span>^{-2}</span>*0 + 2<span>^{-3}</span>*1 + 2<span>^{-4}</span>*0 + 2<span>^{-5}</span>*0 + 2<span>^{-6}</span>*0 = 0.625
№3
<span>11001 = 2<span>^{4}</span></span><span>*1 + 2<span>^{3}</span></span><span>*1 + 2<span>^{2}</span></span><span>*0 + 2<span>^{1}</span></span><span>*0 + 2<span>^{0}</span></span><span>*1 = 16 + 8 + 0 + 0 + 1 = 25</span>
101000 = 2<span>^{-1}</span>*1 + 2<span>^{-2}</span>*0 + 2<span>^{-3}</span>*1 + 2<span>^{-4}</span>*0 + 2<span>^{-5}</span>*0 + 2<span>^{-6}</span>*0 = 0.625
№4
<span>10100 = 2<span>^{4}</span></span><span>*1 + 2<span>^{3}</span></span><span>*0 + 2<span>^{2}</span></span><span>*1 + 2<span>^{1}</span></span><span>*0 + 2<span>^{0}</span></span><span>*0 = 16 + 0 + 4 + 0 + 0 = 20</span>
101 = 2<span>^{-1}</span>*1 + 2<span>^{-2}*</span>0 + 2<span>^{-3}</span>*1 = 0.625
<em> Если не понятен значок</em><em> ^{ } - это степень.</em>
Вложение к следующему заданию
S=0
i=1
<======================================
Если A(i, i) не равно 100 то S=S+A(i, i) ||
i=i+1 ||
если i < 6 то перейти на ===================
иначе печатать S (сумма)
вот и алгоритм
Function p(x,y:real):real;
begin
p:=sqrt(sqr(x)+sqr(y))
end;
function fi(x,y:real):real;
begin
fi:=arctan(y/x)
end;
function f(x1,y1,x2,y2:real):real;
var
p1,p2,fi1,fi2:real;
begin
p1:=p(x1,y1); p2:=p(x2,y2);
fi1:=fi(x1,y1); fi2:=fi(x2,y2);
f:=sqrt(sqr(p1)+sqr(p2)-2*p1*p2*cos(fi2-fi1));
end;
var
ax,ay,bx,by,cx,cy,dx,dy:real;
begin
ax:=2; ay:=5;
bx:=2; by:=1;
cx:=20; cy:=4;
dx:=12; dy:=8;
Writeln('f(a,b)=',f(ax,ay,bx,by):0:3);
Writeln('f(c,d)=',f(cx,cy,dx,dy):0:3)
end.
<em><u>Результат выполнения программы:</u></em>
f(a,b)=4.000
f(c,d)=8.944
<em><u>Более "красивое" решение с пользовательским типом данных.</u></em>
type
Point=record
x,y:real
end;
function p(A:Point):real;
begin
p:=sqrt(sqr(A.x)+sqr(A.y))
end;
function fi(A:Point):real;
begin
fi:=arctan(A.y/A.x)
end;
function f(A,B:Point):real;
var
p1,p2,fi1,fi2:real;
begin
p1:=p(A); fi1:=fi(A);
p2:=p(B); fi2:=fi(B);
f:=sqrt(sqr(p1)+sqr(p2)-2*p1*p2*cos(fi2-fi1));
end;
var
A,B,C,D:Point;
begin
A.x:=2; A.y:=5;
B.x:=2; B.y:=1;
C.x:=20; C.y:=4;
D.x:=12; D.y:=8;
Writeln('f(A,B)=',f(A,B):0:3);
Writeln('f(C,D)=',f(C,D):0:3)
end.
алг ЧетНечет
нач
цел А
А:= 0
ввод А
если mod(А,2) = 0
то вывод "Число четное"
иначе вывод "Число нечетное"
все
кон
Program room;uses crt;var a, b, h : integer; v, s, l, k : real;begin write('Введите длину, ширину и высоту комнаты : '); readln(a, b, h); l:= 10.5; k:= 0.5; v:= a * b * h; s:= l * k; writeln('Ответ : ',v/s :5:2);end.