Calculo de Grados Centigrados a Grados Kelvin y Fahrenheit

Program logicander;


Uses WinCrt;
var
centigrados, kelvin, fahrenheit : real;
Begin


WriteLn ( 'Ingrese centigrados' );
ReadLn (centigrados);


kelvin:= centigrados+273.15;
fahrenheit:= (centigrados*1.8)+32;


WriteLn ( 'El resultado de Centigrados a Kelvin es: ', kelvin:3:3);
WriteLn ( 'El resultado de Centigrados a Fahrenheit es: ', fahrenheit:3:3);


end.

Calculo de Horas Diurnas, Nocturnas y Totales

Program logicander;


Uses WinCrt;
Var
horas, horastotal, diurnas, nocturas : real;
Begin


WriteLn ( 'Ingrese las horas' );
ReadLn (horas);


diurnas:= horas*10.11;
nocturas:= horas*13.45;
horastotal:= (horas*10.11)+(horas*13.45);


WriteLn ( 'El resultado por Horas diurnas es: ', diurnas:3:3);
WriteLn ( 'El resultado por Horas nocturas es: ', nocturas:3:3);
WriteLn ( 'El resultado de Horas es: ', horastotal:3:3);


end.

Bolívares a USD, Euros y Real Brasileño

Program logicander;


Uses WinCrt;
Var
bs, euros, usd, rb : real;
Begin


WriteLn ( 'Ingrese la cantidad de bolivares que desea convertir' );
ReadLn (bs);


usd:= bs/0.23256;
euros:= bs/0.17815;
rb:= bs/0.488;


WriteLn ( 'El resultado de Bolivares a Dolares Estadounidenses es: ', usd:3:3);
WriteLn ( 'El resultado de Bolivares a Euros es: ', euros:3:3);
WriteLn ( 'El resultado de Bolivares a Real Brasileño es: ', rb:3:3);


end.

Volumen de un Cilindro

Program logicander;


Uses WinCrt;
Var
cilindro, volumen, radio, altura : real;
Begin


WriteLn ( 'Ingrese el Radio' );
ReadLn (radio);
WriteLn ( 'Ingrese la Altura' );
ReadLn (altura);


volumen:= 3.1416*(radio*radio)*altura;


WriteLn ( 'El volumen de El Cilindro es: ', volumen:3:3);


end.

Área de una Circunferencia

program logicander;


Uses WinCrt;
Var
    area, radio : real;
Begin


WriteLn ( 'Ingrese el Radio' );
ReadLn (radio);


Area:= 3.1416*(radio*radio);


WriteLn ( 'El resultado es: ', Area:3:3);


end.

x r y z

program logicander;


Uses WinCrt;
Var
    x, r, y, z : real;
Begin


WriteLn ( 'Ingrese r' );
ReadLn (r);
WriteLn ( 'Ingrese y' );
ReadLn (y);
WriteLn ( 'Ingrese z' );
ReadLn (z);


x:= (r*r)*(y*y*y)/(z*z);


WriteLn ( 'El resultado es: ', x:3:3);


end.

km mts millas cm mm

program logicander;


Uses WinCrt;
Var
    km, mts, millas, cm, mm : real;
Begin


WriteLn ( 'Ingrese metros' );
ReadLn (mts);


km:= mts*1000;
millas:= mts*2000;
cm:= mts/100;
mm:= mts/1000;


WriteLn ( 'El resultado en kilometros es: ', km:3:3);
WriteLn ( 'El resultado en millas es: ', millas:3:3);
WriteLn ( 'El resultado en centimetros es: ', cm:3:3);
WriteLn ( 'El resultado en milimetros es: ', mm:3:3);


end.

Área de un Triangulo

program logicander;


Uses WinCrt;
Var
    at, a, l : real;
Begin


WriteLn ( 'Ingrese el lado' );
ReadLn (l);
WriteLn ( 'Ingrese la altura' );
ReadLn (a);


at:= (l*a)/2;


WriteLn ( 'El area del triangulo es: ', at:3:3);


end.

Área de un cuadrado

program logicander;


Uses WinCrt;
Var
    ac, lado : real;
Begin


WriteLn ( 'Ingrese el lado' );
ReadLn (lado);


ac:= (lado*lado);


WriteLn ( 'El area del cuadrado es: ', ac:3:3);


end.

Área de un Circulo

program logicander;


Uses WinCrt;
Var
    a, b : real;
Begin


WriteLn ( 'Ingrese el primer valor' );
ReadLn (a);


b:= 3.14*(a*a);


WriteLn ( 'El area del circulo es: ', b:3:3);


end.

Calculo de Masa Corporal

Program logicander;


Uses WinCrt;
Var    
    IMC, altura, peso : real;
Begin


WriteLn ( 'Ingrese su peso' );
ReadLn (peso);
WriteLn ( 'Ingrese su altura' );
ReadLn (altura);


IMC:= peso/(altura*altura);


WriteLn ( 'Su IMC es: ', IMC:3:3);


end.

Multiplicación

Program logicander;

Uses WinCrt;

Var

    Multi, a, b : integer;

Begin

WriteLn ( 'Ingrese el primer valor' );

ReadLn (a);

WriteLn ( 'Ingrese el segundo valor' );

ReadLn (b);

Multi:= a*b;

WriteLn ( 'El resultado es: ', Multi);

end.

Suma

Program logicander;


Uses WinCrt;
Var
  Suma, a, b : integer;
Begin


WriteLn ( 'logicander para sumar' );
WriteLn ( 'Ingrese el primer valor' );
ReadLn (a);
WriteLn ( 'Ingrese el segundo valor' );
ReadLn (b);


Suma:= a+b;


WriteLn ( 'El resultado es: ', Suma);


end.