Запишите число 100, 225 в ячейку памяти компьютера, предназначенную для типа real

Function pow(m: real; n: integer): real; var i: byte; m_1: real : = m; begin   if (n > 0) then     for i : = 2 to n do       m_1 : = m_1 * m   else     if (n = 0) then       m_1 : = 1     else       m_1 : = 1 / pow(m, abs(n));   pow : = m_1; end; procedure adddec(i: integer; var m: real); begin   m : = m + i * pow(10, -1 * length(inttostr(; end; var   i: byte;   r: real; begin   for i : = 1 to 100 do     r : = r + 1;   adddec(225, r);   writeln(r); end.

Переводим число из двоичной системы в десятичную: 10(2) = 1 * 2^1 + 0 * 2^0 = 2 + 0 = 2 10(2) + 10(10) = 2(10) + 10(10) = 12(10) чтобы перевести число из системы счисления с основанием b, можно представить его в виде суммы: всё точно так же, как и в десятичной системе, только меняем 10 на основание системы счисления, например, другой способ – избежать большого количества возведений в степень и записать, например, так: берем первую цифру – умножаем на b, прибавляем вторую цифру – умножаем на b, прибавляем третью цифру – – умножаем на b, прибавляем последнюю цифру. чтобы перевести из десятичной в систему с основанием b, нужно по сути сделать в обратном порядке то, что написано выше: либо восстановить разложение в сумму, либо выписать остатки от деления на b в обратном порядке. например, переведем 27(4) в десятичную систему счисления: 27(4) = 1 * 16 + 2 * 4 + 3 * 1 = 1 * 4^2 + 2 * 4^1 + 3 * 4^0 = 123(4) 27 : 4 = 6 (ост. 3) 6 : 4 = 1 (ост. 2) 1 : 4 = 0 (ост. 1) выписываем в обратном порядке: 27(10) = 123(4)

В"классическом" языке паскаль, как его описал н.вирт, есть только функции для возведения во вторую степень и извлечения квадратного корня. поэтому для возведения в любую другую степень используют основное логарифмическое тождество на паскале это записывается exp(b*ln(a)) в современных реализациях паскаля добавлена функция power(a,b), которая решает проблему. итак, "классическая запись" b: =a*a+c*c; { возможно также sqr(a)+sqr(b) } q: =exp(b*ln(cos(a+2.53*; и запись современная b: =a*a+c*c; // возможно также sqr(a)+sqr(b) q: =power(cos(a+2.53*c),b);