Значки каких программ показаны на рисунке? Сравните
и назовите их особенности.
о​

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

PascalABC

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.