Código de Pascal/Turbo Pascal

Código de Pascal/Turbo Pascal - Conversion de ATM

Val: 29

Conversion de ATM

Actualizado el 16 de Septiembre del 2018 por Maurico (3 códigos) (Publicado el 10 de Septiembre del 2018)

1.823 visualizaciones desde el 10 de Septiembre del 2018

El programa busca que el usuario pueda convertir fácilmente estas tres medidas:
mm de HG
Torriceles
Pascales

DEBE CONTAR CON PASCAL/PASCAL TURBO

Actualizado el 18 de Septiembre del 2018 (Publicado el 10 de Septiembre del 2018)

1.824 visualizaciones desde el 10 de Septiembre del 2018

Este programa calcula de Torriceles - Atmósferas - Pascales
Dependiendo el tipo de calculo que el usuario requiera.

program ConversionesATM;

uses crt;

var

C1,C2,C3,C4,C5,C6: real;

C: integer;

begin

clrscr;

writeln(' (1) TORRICELES.   (2) ATMÓSFERA.   (3) PASCALES');

readln(C);

if C= 1 then

begin

writeln(' Escribe La cantidad a convertir: ');

readln(C1);

C2:= C1*760;

writeln('El resultado es: ',C2);

readkey;

end;

if C = 2 then

begin

writeln('Escribe el valor de atmósferas: ');

Readln(C3);

C4:= C3*760;

writeln('El resultado es: ',C4);

readkey;

end;

if C = 3 then

begin

writeln('Inserta un valor: ');

readln(C5);

C6:= C5*101325;

writeln('El resultado es: ',C6);

readkey;

end;

readln;

end.

16 de Septiembre del 2018

No ha dejado ningún comentario

Responder


Nombre

Correo (no se visualiza en la web)

Valoración

Comentarios...

CerrarCerrar

Es necesario revisar y aceptar las políticas de privacidad

Acepto las políticas de privacidad

http://lwp-l.com/s4798

Tabla Periódica

F.Gral Cuadrática