program aip; var fltA,fltB,fltB2:real; code:integer; function ip(A:real):real; var A1:string; begin write('Введите значение А= ');
// repeat readln(A1); val(A1,A,code); if (code<>0) then writeln('no'); until (A>0); // ip:=A; end; begin fltA:=ip(fltA); if abs(1+sin(2*fltA)) < 0.000001 then begin writeln('Delenie na nol v pervoy formule'); end else begin fltB:= ((1-2*sin(fltA)*sin(fltA))/(1+sin(2*fltA))); writeln('Первая формула ',fltB:5:5); end; if abs(1+tan(fltA)) < 0.000001 then begin writeln('Delenie na nol vo vtoroy formulte'); end else begin fltB2:= ((1-tan(fltA))/(1+tan(fltA))); writeln('Вторая формула ',fltB2:5:5); end; end.
1) Целая часть от деления: Остаток от деления: 128 div 16 = 8 128 mod 16 = 0 8 div 16 = 0 8 mod 16 = 8 0 div 16 = 0 0 mod 16 = 0 Остаток от деления записываем в обратном порядке. Получаем число в 16-ой системе счисления: 080 128 = 080^16 2) Целая часть от деления Остаток от деления 100 div 16 = 6 100 mod 16 = 4 6 div 16 = 0 6 mod 16 = 6 0 div 16 = 0 0 mod 16 = 0 Остаток от деления записываем в обратном порядке. Получаем число в 16-ой системе счисления: 064 100 = 064^16 3) Для перевода дробной части числа последовательно умножаем дробную часть на основание 16. В результате каждый раз записываем целую часть произведения. 0.125*16 = 2 (целая часть 2) 0*16 = 0 (целая часть 0) 0*16 = 0 (целая часть 0) 0*16 = 0 (целая часть 0) Получаем число в 16-ой системе счисления: 2000 0.125 = 2000^16 4) Целая часть от деления Остаток от деления 345 div 16 = 21 345 mod 16 = 9 21 div 16 = 1 21 mod 16 = 5 1 div 16 = 0 1 mod 16 = 1 Остаток от деления записываем в обратном порядке. Получаем число в 16-ой системе счисления: 159 345 = 159^16 Для перевода дробной части числа последовательно умножаем дробную часть на основание 16. В результате каждый раз записываем целую часть произведения. 0.75*16 = 12 (целая часть 12) 0*16 = 0 (целая часть 0) 0*16 = 0 (целая часть 0) 0*16 = 0 (целая часть 0) Получаем число в 16-ой системе счисления: C000 0.75 = C000^16 В итоге получаем число: 159.C000^16
