Люди, помогите написать программу, для определения кол-ва подсетей и кол-ва ПК с заданым ip адресом сети и маской!
Алгоритм такой:
1)Вводим ip -адрес (программа должна определить, к какой группе принадлежит ip)
2)Вводим маску
3)Программа должна преобразовать октеты маски, в зависимости от класса ip
4)Вывести кол-во подсетей и пк!
Пока что написан такой код:
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var IP1, IP2, IP3, IP4:integer;
M1, M2, M3, M4:integer;
PS, PC:integer;
begin
IP1:=strtoint(Edit1.Text);
IP2:=strtoint(Edit2.Text);
IP3:=strtoint(Edit3.Text);
IP4:=strtoint(Edit4.Text);
M1:=strtoint(Edit5.Text);
M2:=strtoint(Edit6.Text);
M3:=strtoint(Edit7.Text);
M4:=strtoint(Edit8.Text);
if ((IP1>=1) or (IP1<=126)) and (IP2=0) and (IP3=0) and (IP4=0)
then
begin
if (M1<>255) then ShowMessage('Неверная маска')
else
begin
end;
end;
end;
|
Люди помогите! я сейчас не могу преобразовать маску из десятичных в двоичные и подсчитать кол-во нулей и едениц!
Заранее спасибо!