-
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
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.
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.