11 + 1 = 100 - двоичная система счисления
22 + 1 = 100 - троичная система счисления
44 + 3 = 102 - система счисления с основанием 5
44 + 3 = 51 - система счисления с основанием 6
44 + 3 = 50 - система счисления с основанием 7
44 + 3 = 47 - системы счисления с основаниями 8, 9, 10, ...
Озу - оперативное запоминающее устройство
<em>
Реализована формула</em>
<em>
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
Write('Введите х и у: '); var (x,y):=ReadReal2;
var s:=Power(Cos(Power(Pi*y/3-x,14)),6)+Sin(y*y*y);
Writeln('s=',s)
end.
<u>Пример</u>Введите х и у: 2.175 -1.4
s=-0.335572582839361
Программа на Паскале прилагается.
Поместите этот макрос в проекте на любой лист и вызовите его
Sub aaa()
Pi = 4 * Atn(1)
r = CDbl(InputBox("Радиус круга"))
a = CDbl(InputBox("Сторона квадрата"))
s1 = Pi * r ^ 2
s2 = a ^ 2
MsgBox IIf(s1 > s2, "Площадь круга больше", IIf(s1 < s2, "Площадь квадрата больше", "Площади равны"))
End Sub