• Lenguaje

    Pascal

  • Descripción

    Ingresar la presión de un neumático en bares y devuelva el valor en psi (libra por pulgada cuadrada).
    Dato: 1 bar es aproximadamente 14.504 psi.

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

var presion_en_bares, presion_en_psi : real;
begin
    write ('Ingresa el valor de presion en bares: ');
    readln (presion_en_bares);
    presion_en_psi := presion_en_bares/14.504;
    writeln ('Valor de presion en psi: ', presion_en_psi:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.