• Lenguaje

    Pascal

  • Descripción

    Una persona ha comprado una cierta cantidad de oro en gramos y desea saber su equivalencia tanto en kilos como en onzas, para lo cual se le ha pedido que diseñe un algoritmo que de respuesta al problema.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program GramosAKilosYOnzas;
uses crt;

var gramos, kilos, onzas : real;
begin
    write ('Ingresa el valor de gramos: ');
    readln (gramos);
    kilos := gramos/1000;
    onzas := gramos/28.349523125;
    writeln ('Valor de kilos: ', kilos:0:6);
    writeln ('Valor de onzas: ', onzas:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.