Direcciones Ip

Proceso Examen
Definir o1,o2,o3,o4 Como Entero;
Definir masc Como Entero;
Escribir ' Introduzca la direccion de IP por octetos ';
Leer o1;
Leer o2;
Leer o3;
Leer o4;
Escribir'Introduzca el numero de bits de la direccion IP';
Leer masc;

Si masc>0 Entonces
Si masc<=8 Entonces
escribir ' esta mascara de subred es 255.0.0.0';
Escribir ' esta redpertenece a ', o1,'.0.0.0';
Escribir ' y su direccion de broadcast es ',o1,'.255.255.255';
Sino
Si masc<=16 entonces
Escribir 'esta mascara de subred es 255.255.0.0';Escribir 'y la red a la que pertenece es ',o1,'.',o2,'.0.0';
Escribir 'y su direccion de broadcast es ',o1,'.',o2,'.255.255';
Sino
Si masc<=31 Entonces
escribir 'estamascara de subred es 255.255.255.0';
Escribir 'y su red a la que pertenece es ',o1,'.', o2,'.',o3,'.0';
Escribir 'su direccion de broadcast es ',o1,'.',o2,'.',o3,'.255';
SinoSi masc>=32 Entonces
Escribir 'Lo sentimos. La mascara de subred no es valida';
Finsi
Finsi
FinSi
Finsi
Sino
Si mas>0 Entonces
Escribir 'Esta mascarade subred es 255.255.0.0';
FinSi
Finsi
Si o1>0 Entonces
Si o1<=127 Entonces
Escribir 'esta direccion ip es de clase A';
Sino
Si o1>=128 Entonces
Sio1<=191 Entonces
Escribir 'esta direccion ip es de clase B';
Sino
si o1<=223 Entonces
Escribir 'esta direccion ip es de clase C';
Sino
Si o1>=224Entonces
Si o1<=255 Entonces
Escribir 'Es una ip no utilizable, es solo utilizada experimentalmente';
Sino
si o1>255 Entonces
Escribir 'Esta es una ipque no existe';
Finsi
Finsi
Finsi
FinSi
Finsi
Finsi
FinSi
Sino
Escribir 'esta direccion ip no es un numero valido';
FinSi
FinProceso