PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018 Внимание! Если программа не работает, обновите версию!
function DecToa(n:string;k:integer):string; // Перевод из десятичной системы в систему по основанию k begin var s:='0123456789'; Result:=''; var PointPos:=Pos('.',n); var IntPart:integer; if PointPos>0 then begin // есть дробная часть var FracPart:=Frac(n.ToReal); var m:=0; while True do begin var r:=FracPart*k; Result+=s[Trunc(r)+1]; FracPart:=Frac(r); m+=1; if (m=15) or (FracPart=0) then break end; IntPart:=n[:PointPos].ToInteger; end else IntPart:=n.ToInteger; if Result<>'' then Result:='.'+Result; while IntPart>0 do begin Result:=s[IntPart mod k+1]+Result; IntPart:=IntPart div k end; if Result='' then Result:='0'; if Result[1]='.' then Result:='0'+Result end;
begin var n:=ReadlnString('Какое число перевести?'); var p:real; if not real.TryParse(n,p) then Writeln('Такая запись недопустима') else if n.Contains('e') or n.Contains('E') then Writeln('Запись в экспоненциальном формате не разрешена') else begin var k:=ReadInteger('Укажите основание системы:'); if k.Between(2,36) then Writeln(n,'(10) = ',n[1],DecToA(n[2:],k),'(',k,')') else Writeln('Допустимы основания 2..36') end end.
Примеры Какое число перевести? 123,5433 Такая запись недопустима
Переведем только третие слева байты IP и адреса сети, так как предыдущие байты в маске будут идентичными, а последний равен нулю.
Воспользуемся формулой: IP * mask = адрес сети. При этом не забываем правила: 1. Сначала идут единицы до первого нуля. 2. После нулей единиц быть не может.
То есть "11001000", "00010000" и подобного быть не может.
Подставляем значения под формулу. Расставляем единицы и нули в маске. Первые два разряда безоговорочно единицы, так как при умножении единицы на ноль - единица невозможна. Далее идут три разряда, которые сомнительны, так как в них могут быть и нули, и единицы. Следующие три точно будут нулями, так как 1*0 = 0.
Работаем с сомнительными разрядами. Понимаем, что их минимальное значение - 000, максимальное - 111. В этом диапазоне находим всевозможные значения сомнительных разрядов маски, помня о правиле.
Из этого следует, что для четырех значений маски возможны IP и адрес сети.
Внимание! Если программа не работает, обновите версию!
function DecToa(n:string;k:integer):string;
// Перевод из десятичной системы в систему по основанию k
begin
var s:='0123456789';
Result:='';
var PointPos:=Pos('.',n);
var IntPart:integer;
if PointPos>0 then begin // есть дробная часть
var FracPart:=Frac(n.ToReal);
var m:=0;
while True do begin
var r:=FracPart*k;
Result+=s[Trunc(r)+1];
FracPart:=Frac(r);
m+=1;
if (m=15) or (FracPart=0) then break
end;
IntPart:=n[:PointPos].ToInteger;
end
else IntPart:=n.ToInteger;
if Result<>'' then Result:='.'+Result;
while IntPart>0 do begin
Result:=s[IntPart mod k+1]+Result;
IntPart:=IntPart div k
end;
if Result='' then Result:='0';
if Result[1]='.' then Result:='0'+Result
end;
begin
var n:=ReadlnString('Какое число перевести?');
var p:real;
if not real.TryParse(n,p) then Writeln('Такая запись недопустима')
else
if n.Contains('e') or n.Contains('E') then
Writeln('Запись в экспоненциальном формате не разрешена')
else begin
var k:=ReadInteger('Укажите основание системы:');
if k.Between(2,36) then
Writeln(n,'(10) = ',n[1],DecToA(n[2:],k),'(',k,')')
else Writeln('Допустимы основания 2..36')
end
end.
Примеры
Какое число перевести? 123,5433
Такая запись недопустима
Какое число перевести? -353.093234
Укажите основание системы: 21
-353.093234(10) = -GH.1K2951B0DJAH1BI(21)
Какое число перевести? 6523
Укажите основание системы: 8
6523(10) = 61013(8)
Какое число перевести? 1.2e-18
Запись в экспоненциальном формате не разрешена
Переведем только третие слева байты IP и адреса сети, так как предыдущие байты в маске будут идентичными, а последний равен нулю.
Воспользуемся формулой:
IP * mask = адрес сети.
При этом не забываем правила:
1. Сначала идут единицы до первого нуля.
2. После нулей единиц быть не может.
То есть "11001000", "00010000" и подобного быть не может.
Подставляем значения под формулу.
Расставляем единицы и нули в маске.
Первые два разряда безоговорочно единицы, так как при умножении единицы на ноль - единица невозможна. Далее идут три разряда, которые сомнительны, так как в них могут быть и нули, и единицы. Следующие три точно будут нулями, так как 1*0 = 0.
Работаем с сомнительными разрядами. Понимаем, что их минимальное значение - 000, максимальное - 111. В этом диапазоне находим всевозможные значения сомнительных разрядов маски, помня о правиле.
Из этого следует, что для четырех значений маски возможны IP и адрес сети.
ответ: 4.