Enero 24, 2018, 01:34:16 am

Autor Tema: [ Pascal ] Conversor de Archivos de Medidas V 1.0 beta  (Leído 1045 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Stuxnet

  • Me das tu password?
  • **
  • Mensajes: 364
  • Sexo: Masculino
  • I'm not a hacker, I'm a lover to the informatica
    • Ver Perfil
    • Stuxnet
[ Pascal ] Conversor de Archivos de Medidas V 1.0 beta
« en: Marzo 05, 2012, 06:36:31 pm »
Convierte de :

Bits a Bytes
Bytes a Bits
Bytes a Kilobytes
kilobytes a Bytes
Kilobytes a Megabytes
MegaBytes a Kilobytes
Megabytes a Gigabytes
Gigabytes a Megabytes
Gigabytes a Terabytes
Terabytes a Gigabytes
Terabytes a Pentabytes
Pentabytes a Terabytes
Pentabytes a Exabyte   
Exabytes   a Pentabytes
Exabytes  a Zettabytes
Zettabytes a Exabytes
Zettabytes a Yottabytes
Yottabytes a Zettabytes
Yottabyte a Brontobyte
Brontobyte a Yottabyte

Lo programe con IF , después lo haré con un CASE OF o algotra cosa que se me ocurra LOL sugieran.

Programado en bloc de notas
y compilado en TP 7.0

Código: You are not allowed to view links. Register or Login
program Conversor;

uses crt;

var

a,b,c:real;
menu:integer;
seguir:char;

           Begin

           REPEAT

            clrscr;

textcolor (2);
writeln(' Conversor de Archivos de Medidas V 1.0 beta by HAckw32 ');
writeln(' Ingrese el numero de la operacion que desea realizar ');
writeln('');
writeln(' 1 Para pasar de Bits a Bytes ');
writeln(' 2 Para pasar de Bytes a Bits ');
writeln(' 3 Para pasar de Bytes a Kilobytes ');
writeln(' 4 Para pasar de kilobytes a Bytes ');
writeln(' 5 Para pasar de Kilobytes a Megabytes ');
writeln(' 6 Para pasar de MegaBytes a Kilobytes ');
writeln(' 7 Para pasar de Megabytes a Gigabytes ');
writeln(' 8 Para pasar de Gigabytes a Megabytes ');
writeln(' 9  Para pasar de Gigabytes a Terabytes ');
writeln(' 10 Para pasar de Terabytes a Gigabytes ');
writeln(' 11 Para pasar de Terabytes a Pentabytes ');
writeln(' 12 Para pasar de Pentabytes a Terabytes ');
writeln(' 13 Para pasar de Pentabytes a Exabyte   ');
writeln(' 14 Para pasar de Exabytes   a Pentabytes ');
writeln(' 15 Para pasar de Exabytes  a Zettabytes ');
writeln(' 16 Para pasar de Zettabytes a Exabytes ');
writeln(' 17 Para pasar de Zettabytes a Yottabytes ');
writeln(' 18 Para pasar de Yottabytes a Zettabytes ');
writeln(' 19 Para pasar de Yottabyte a Brontobyte ');
writeln(' 20 Para pasar de Brontobyte a Yottabyte ');
readln(menu);

IF menu = 1 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 8;
c:= a / b;

writeln('');
writeln(' La cantidad de Bytes son : ' , c:8:2);
end;

IF menu = 2 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 8;
c:= a * b;

writeln('');
writeln(' La cantidad de bits son : ' , c:8:2);
end;

IF menu = 3 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a / b;

writeln('');
writeln(' La cantidad de Kilobytes son : ' , c:8:2);
end;

IF menu = 4 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a * b;

writeln('');
writeln(' La cantidad de Bytes son : ' , c:8:2);
end;

IF menu = 5 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a / b;

writeln('');
writeln(' La cantidad de Megabytes son : ' , c:8:2);
end;

IF menu = 6 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a * b;

writeln('');
writeln(' La cantidad de Kilobytes son : ' , c:8:2);
end;

IF menu = 7 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a / b;

writeln('');
writeln(' La cantidad de Gigabytes son : ' , c:8:2);
end;

IF menu = 8 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a * b;

writeln('');
writeln(' La cantidad de Megabytes son : ' , c:8:2);
end;

IF menu = 9 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a / b;

writeln('');
writeln(' La cantidad de Terabytes son : ' , c:8:2);
end;

IF menu = 10 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a * b;

writeln('');
writeln(' La cantidad de Gigabytes son : ' , c:8:2);
end;

IF menu = 11 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a / b;

writeln('');
writeln(' La cantidad de Pentabytes son : ' , c:8:2);
end;

IF menu = 12 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a * b;

writeln('');
writeln(' La cantidad de Terabytes son : ' , c:8:2);
end;

IF menu = 13 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a / b;

writeln('');
writeln(' La cantidad de Exabytes son : ' , c:8:2);
end;

IF menu = 14 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a * b;

writeln('');
writeln(' La cantidad de Pentabytes son : ' , c:8:2);
end;

IF menu = 15 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a / b;

writeln('');
writeln(' La cantidad de Zettabytes son : ' , c:8:2);
end;

IF menu = 16 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a * b;

writeln('');
writeln(' La cantidad de Exabytes son : ' , c:8:2);
end;

IF menu = 17 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a / b;

writeln('');
writeln(' La cantidad de Yottabytes son : ' , c:8:2);
end;

IF menu = 18 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a * b;

writeln('');
writeln(' La cantidad de Zettabytes son : ' , c:8:2);
end;

IF menu = 19 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a / b;

writeln('');
writeln(' La cantidad de Brontobyte son : ' , c:8:2);
end;

IF menu = 20 THEN

Begin

Writeln(' Ingrese la Cantidad que desea converir ');
readln(a);
writeln('');

b:= 1024;
c:= a * b;

writeln('');
writeln(' La cantidad de Yottabyte son : ' , c:8:2);
end;

IF menu > 20 THEN

writeln(' El numero que ha ingresado es incorrecto');

IF menu = 0 THEN

writeln(' El numero que ha ingresado es incorrecto');

writeln('');

writeln(' Desea realizar otra conversion ? (y/n) ');
readln(seguir);

UNTIL seguir = 'n';

writeln(' Gracias por usar el Conversor de Archivos de Medidas V 1.0 beta by Hackw32 ');

readln;

end.
« Última modificación: Marzo 06, 2012, 12:03:37 am por گӨ£ĭÐ ﮖŋąќЭ »
You are not allowed to view links. Register or Login

You are not allowed to view links. Register or LoginYou are not allowed to view links. Register or Login

Desconectado Solid Water

  • Moderador
  • *****
  • Mensajes: 1076
  • Sexo: Masculino
  • Vuelvan Hackers!
    • Ver Perfil
Re:[ Pascal ] Conversor de Archivos de Medidas V 1.0 beta
« Respuesta #1 en: Marzo 06, 2012, 01:03:40 am »
Hola espero que mis sugerencias puedan servirte para otras versiones.
Se sobreentiende que esto es de las primeras versiones y como las mías solo un borrador  ;)

Bueno, supongamos el menú:

Ingrese Cantidad:

Read(cantidad);

Menu Origen:

1) Terabyte.
2) Gigabyte.
3) Megabyte.
4) Kilobyte.
5) Byte

Read(opcion1);

Destino:

1) Terabyte.
2) Gigabyte.
3) Megabyte.
4) Kilobyte.
5) Byte

Read (opcion2)

Lo primero que miras es SI opcion1 es menor a opcion2, en tal caso hay un crecimiento en @Cantidad, "else" lo contrario.
Para los crecimientos haces:

@Cantidad * 1024 elevado a @Opcion2 - @Opcion1

Para disminuciones en @Cantidad:

@Cantidad / 1024 elevado a @Opcion1 - @Opcion2

El tema a filtrar son los bits, pues yo te recomendaría en caso de que se seleccione dicha opción, divides o multiplicas por 8  @Cantidad y luego usas el mismo procedimiento que para byte.
Los menús(En realidad es 1 solo que lo muestras 2 veces por pantalla) como lo demás deberían de ir en procedimientos o quizás funciones, ya que te brindan modularización, escalabilidad y reutilización de código.
Con ellos podrás por ejemplo volver a llamar al menú una vez que el usuario cometa el error de querer pasar de X medida a si misma(Opcion1 = Opcion2) o reiniciar tu programa más prolijamente, etc.

Un problema que seguramente surgirá será que tipo de dato usar ya que los valores pueden volverse enormes.
Además no se como llevaras el tema de la precisión en valores con coma flotante, pues si paso 1 byte a gigabyte.. quizás prefieras filtrarlo.

Saludos.
« Última modificación: Marzo 06, 2012, 10:50:07 am por گӨ£ĭÐ ﮖŋąќЭ »

Not for the money, not for the fame. Not for the power, just no more games.

Desconectado Stuxnet

  • Me das tu password?
  • **
  • Mensajes: 364
  • Sexo: Masculino
  • I'm not a hacker, I'm a lover to the informatica
    • Ver Perfil
    • Stuxnet
Re:[ Pascal ] Conversor de Archivos de Medidas V 1.0 beta
« Respuesta #2 en: Marzo 06, 2012, 07:53:34 pm »
Gracias por tu respuesta

saludos


question
como hacer un conversor de archivos?

Iniciado por ptemillos

8 Respuestas
1751 Vistas
Último mensaje Febrero 17, 2011, 05:33:21 am
por jep
question
Chrome Beta... (más que beta alpha) [Automatic File Download]

Iniciado por The X-C3LL

1 Respuestas
1323 Vistas
Último mensaje ſeptiembre 04, 2008, 03:05:52 am
por vZor
xx
México, medidas ante crisis alimentaria

Iniciado por Chino Antrax

0 Respuestas
896 Vistas
Último mensaje Mayo 26, 2008, 04:17:30 pm
por Chino Antrax
xx
[Consulta] Medidas de seguridad a tomar en la Deep Web.

Iniciado por mayc edlp

3 Respuestas
3723 Vistas
Último mensaje Noviembre 09, 2017, 09:17:51 pm
por ka0x
resuelto
[MEDIDAS] ¿Como se calcula el tamaño de un componente?

Iniciado por klaine

7 Respuestas
2499 Vistas
Último mensaje Noviembre 25, 2010, 02:07:25 pm
por klaine
question
Medidas de seguridad al conectar piezas nuevas a un ordenador.

Iniciado por Whetmore

23 Respuestas
5345 Vistas
Último mensaje ſeptiembre 25, 2009, 09:43:58 am
por rgb90
xx
que medidas se pueden tomar para proteger un foro de los hackers?

Iniciado por dualfix

2 Respuestas
1828 Vistas
Último mensaje Diciembre 16, 2006, 05:47:15 pm
por dualfix
xx
UE y Microsoft acuerdan experto que verificará medidas correctivas europeas

Iniciado por Phantom_man

0 Respuestas
833 Vistas
Último mensaje Octubre 06, 2005, 03:39:20 pm
por Phantom_man
xx
Mozilla Thunderbird 1.1 dispondrá de soporte podcast y medidas antiphishing

Iniciado por Phantom_man

0 Respuestas
1141 Vistas
Último mensaje Junio 27, 2005, 03:41:07 am
por Phantom_man
xx
[+][Ver. BETA] Skull DownLoader BETA

Iniciado por masterskull123

1 Respuestas
1400 Vistas
Último mensaje Enero 09, 2012, 03:53:58 pm
por luisroma96