Capacidad de un disco duro en lenguaje Pascal

Lenguaje

Pascal
Descripción

Exprese la capacidad de un disco duro en megabytes, kilobytes y bytes, conociendo la capacidad del disco en gigabytes. Considere que: 1 kilobyte = 1024 bytes, 1 megabyte = 1024 kilobyte, 1 gigabyte = 1024 megabytes.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

program CapacidadDeUnDiscoDuro;

uses crt;

var capacidad_en_B, capacidad_en_GB, capacidad_en_KB, capacidad_en_MB : real;

begin

    write ('Ingresa el valor de capacidad en GB: ');

    readln (capacidad_en_GB);

    capacidad_en_MB := capacidad_en_GB*1024;

    capacidad_en_KB := capacidad_en_MB*1024;

    capacidad_en_B := capacidad_en_KB*1024;

    writeln ('Valor de capacidad en B: ', capacidad_en_B:0:6);

    writeln ('Valor de capacidad en KB: ', capacidad_en_KB:0:6);

    writeln ('Valor de capacidad en MB: ', capacidad_en_MB:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.