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

Imágen de perfil
Val: 29
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Conversion de ATMgráfica de visualizaciones


Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(1)
Actualizado el 16 de Septiembre del 2018 por Maurico (Publicado el 10 de Septiembre del 2018)
873 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

Requerimientos

DEBE CONTAR CON PASCAL/PASCAL TURBO

1.0
estrellaestrellaestrellaestrellaestrella(1)

Actualizado el 18 de Septiembre del 2018 (Publicado el 10 de Septiembre del 2018)gráfica de visualizaciones de la versión: 1.0
874 visualizaciones desde el 10 de Septiembre del 2018
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Este programa calcula de Torriceles - Atmósferas - Pascales
Dependiendo el tipo de calculo que el usuario requiera.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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.



Comentarios sobre la versión: 1.0 (1)

Imágen de perfil
16 de Septiembre del 2018
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s4798