Peso y su longitud de un dinosaurio en lenguaje Pascal

Lenguaje

Pascal
Descripción

Dado como datos el nombre de un dinosaurio, su peso y su longitud, expresados estos dos últimos en toneladas y pies respectivamente; escriba el nombre del dinosaurio, su peso expresado en kilogramos y su longitud expresada en metros.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

program PesoYSuLongitudDeUnDinosaurio;

uses crt;

var longitud_en_metros, longitud_en_pies, peso_en_kilogramos, peso_en_toneladas : real;

var nombre_del_dinosaurio : string;

begin

    write ('Ingresa el nombre del dinosaurio: ');

    readln (nombre_del_dinosaurio);

    write ('Ingresa el valor de longitud en pies: ');

    readln (longitud_en_pies);

    write ('Ingresa el valor de peso en toneladas: ');

    readln (peso_en_toneladas);

    peso_en_kilogramos := peso_en_toneladas*1000;

    longitud_en_metros := longitud_en_pies*0.3048;

    writeln ('Nombre del dinosaurio: ', nombre_del_dinosaurio);

    writeln ('Valor de longitud en metros: ', longitud_en_metros:0:6);

    writeln ('Valor de peso en kilogramos: ', peso_en_kilogramos:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.