Мантисса числа, (порядок числа), нормализованная запись числа
<span>Нормализованной (экспоненциальной) называется запись отличного от нуля вещественного числа в виде m * Pq, где q – целое число (положительное, отрицательное или ноль) , а m – правильная P-ичная дробь, у которой первая цифра после запятой не равна 0, то есть 1 / P ≤ m < 1. При этом m называется мантиссой числа, а q – порядком числа.
</span>
Нормализация мантиссы позволяет сэкономить один разряд в ее двоичном представлении. В обоих случаях заранее известно, что первый значащий разряд равен единице, поэтому его можно не хранить. Иногда это называется использованием неявного старшего бита.
Нормализация мантиссы результата независимо от режима не выполняется.
Нормализация мантиссы результата заключается в повторении операции сдвига мантиссы на один десятичный разряд с обнулением младшего разряда, а также в уменьшении порядка на единицу до тех пор, пока в знаковом разряде К2 ( Д9) не будет находиться наибольшая значащая цифра мантиссы. При переполнении разрядной сетки в области мантиссы выполнение этой процедуры может привести к переполнению разрядной сетки в области порядка.
00111001000100100000000000000000 - нули слева убираем:
111001000100100000000000000000 - нормализуем мантиссу:
1.11001000100100000000000000000 х 2^29.
<span>Теперь мантисса нормализована. </span>
Var a: Integer;
begin
writeln('Введите число');
readln(a);
if a>0 then a:=a*a;
if a<0 then a:=a-2;
if a=0 then a:=10;
writeln('Полученное число: ',a);
end.
Var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
<span>end. </span>
Названия взяты из Paint Windows XP
