• Lenguaje

    Pascal

  • Descripción

    ¿Cuántos DVD's se necesitan para sacar la copia de seguridad del servidor de la universidad? Si se sabe que la capacidad de un DVD es de 4.7 gigabytes y la partición del disco del servidor son 100 gigabytes.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program NumeroDeDvdsParaCopiaDeSeguridad;
uses crt, math;

var disco_del_servidor, dvd, numero_de_dvds : real;
begin
    disco_del_servidor := 100;
    dvd := 4.7;
    numero_de_dvds := disco_del_servidor/dvd;
    if numero_de_dvds<>floor(numero_de_dvds) then
        begin
            numero_de_dvds := floor(numero_de_dvds)+1;
        end;
    writeln ('Valor de disco del servidor: ', disco_del_servidor:0:6);
    writeln ('Valor de dvd: ', dvd:0:6);
    writeln ('Valor de numero de dvds: ', numero_de_dvds:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.