-
Lenguaje
Pascal
-
Descripción
Permite ingresar un valor en libras y lo convierte en quintales, miligramos y toneladas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program LibrasAQuintalesMiligramosYToneladas;
uses crt;
var libras, miligramos, quintales, toneladas : real;
begin
write ('Ingresa el valor de libras: ');
readln (libras);
quintales := libras/100;
miligramos := libras*453.62;
toneladas := libras*0.00045362;
writeln ('Valor de miligramos: ', miligramos:0:6);
writeln ('Valor de quintales: ', quintales:0:6);
writeln ('Valor de toneladas: ', toneladas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var libras, miligramos, quintales, toneladas : real;
begin
write ('Ingresa el valor de libras: ');
readln (libras);
quintales := libras/100;
miligramos := libras*453.62;
toneladas := libras*0.00045362;
writeln ('Valor de miligramos: ', miligramos:0:6);
writeln ('Valor de quintales: ', quintales:0:6);
writeln ('Valor de toneladas: ', toneladas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.