Программы на pascal
1)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
y:= sin(sqr(x));
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
2)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
if x >= 0 then y:= cos(x) //Если х >= 0, то у = cosx, иначе у = 1 - 2sinx
else y:= 1 - 2 * sin(x);
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
Если все правильно, отметь решение как лучшее)
1)-63,611=-63611*10^-3
2)60.509 =60509*10^-3
1)16-ой
63.611
63/16 =03F
.611=9C6
и того - 03F 9C6
2)60= 3С6
509= 824
и того 3С6 824
5DB0000=16^7*4 + 16^6*5 + 16^5*13 + 16^4*11 + 16^3*0 + 16^2*0 + 16^1*0 + 16^0*0 = 1073741824 + 83886080 + 13631488 + 720896 здесь нулли = 1171980288
C88B6000 =16^7*12 + 16^6*8 + 16^5*8 + 16^4*11 + 16^3*6 = 3364577280
F6E5 = 16^4*15 + 16^3*6 + 16^2*14 + 16^1*5 =1011280
8D7= 16^2* 8 + 16^1* 13 + 16^0*7 = 2048 + 208 + 7 = 2263