1010,00100101(2) = 001 010,001 001 101(2) = 12,115(8)
1110,0101000(2) = 001 110, 010 100(2) = 16,24(8)
1000,1111001(2) = 001 000,111 100 100(2) = 10,744(8)
101011,11(2) = 101 011, 110(2) = 53,6(8)
1010,00100101(2) = 1010, 0010 0101(2) = A,25(16)
1110,0101000(2) = 1110,0101(2) = E,5(16)
1000,1111001(2) = 1000,1111 0010(2) = 8,F2(16)
101011,11(2) = 0010 1011, 1100(2) = 2B,C(16)
266(8) = 010 110 110(2) = 10110110(2)
266(16) = 0010 0110 0110(2) = 1001100110(2)
1270(8) = 001 010 111 000(2) = 1010111000(2)
1270(16) = 0001 0010 0111 0000(2) = 100100111(2)
10,23(8) = 001 000, 010 011(2) = 1000,001(2)
10,23(16) = 0001 0000, 0010 0011(2) = 10000,00100011(2)
11,1(8) = 001 001, 001(2) = 1001,001(2)
11,1(16) = 0001 0001,0001(2) = 10001,0001(2)
Вот это наверно) Если менять числа, значение площади меняется. Только нужно подбирать специальные числа, чтоб под квадратным корнем не было отрицательного числа)
1.
var a,b,c,d,e,s1,s2:real;
procedure p(x,y,z:real; var s:real);
var p:real;
begin
p:=(x+y+z)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
writeln('a, b, c, d, e:');
readln(a,b,c,d,e);
p(a,b,c,s1);
p(c,d,e,s2);
writeln('s = ',s1+s2:5:2);
end.
Пример:
a, b, c, d, e:
5 2 6 3 4
s = 9.37
2.
var a,b,c,d,q:real;
function x(z,y:real):real;
begin
x:=exp((1/y)*ln(z));
end;
begin
writeln('a, b, c, d:');
readln(a,b,c,d);
q:=(x(b,a)+x(d,c))/x(b+d,a+c);
writeln('q = ',q:5:2);
end.
Пример:
a, b, c, d:
2 16 3 9
q = 3.1939
3.
Процедура используется, как правило, в тех случаях, когда требуется выполнить некоторые действия, не обязательно связанные с вычислениями (например, что-то ввести, вывести, нарисовать и т.д.). Кроме того, процедуры используются, если требуется вычислить несколько значений и использовать их в дальнейшем в основной программе. Функция применяется обычно для вычисления некоторого единственного значения.