Program logicander;
Uses WinCrt;
Var
miligramos, kilogramos, onzas, toneladas, gramos, opc : real;
Begin
WriteLn ( 'Menu para transformar de gramos alguna de las siguientes opciones' );
WriteLn ( 'Pulse 1 para transformar a Miligramos' );
WriteLn ( 'Pulse 2 para transformar a Kilogramos' );
WriteLn ( 'Pulse 3 para transformar a Onzas' );
WriteLn ( 'Pulse 4 para transformar a Toneladas' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Transformaremos de Gramos a Miligramos' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
miligramos:= gramos*1000;
WriteLn ( 'El resultado en miligramos seria: ', miligramos:5:5);
end;
If opc=2 then
Begin
WriteLn ( 'Transformaremos de Gramos a Kilogramos' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
kilogramos:= gramos*0.001;
WriteLn ( 'El resultado en kilogramos seria: ', kilogramos:5:5);
end;
If opc=3 then
Begin
WriteLn ( 'Transformaremos de Gramos a Onzas' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
onzas:= gramos*0.0352740;
WriteLn ( 'El resultado en Onzas seria: ', onzas:5:5);
end;
If opc= 4 then
Begin
WriteLn ( 'Transformaremos de Gramos a Toneladas' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
toneladas:= gramos*0.000001;
WriteLn ( 'El resultado en Toneladas seria: ', toneladas:5:5);
end;
end.
