Bitácora 04: PROGRAMACIÓN Y COMPUTACIÓN-B2014 (ULA)

Buenas noches

Saludos a todos, según lo acordado en clase les dejo el código fuente de algunos de los programas vistos en clase.

Código Fuente 1:

{

   Calcula el precio de un boleto de viaje, tomando en cuenta el número

   de kilómetros que se van a recorrer, siendo el precio Bs/.10,50 por Km.

}

program Boleto_viaje;

uses crt;

var
         cantkm,PBV : REAL;

BEGIN

         CLRSCR;

         writeln('Int cantidad de Kilometros');

         readln(cantkm);

         PBV:=cantkm*10.50;

         writeln('El precio del boleto de viaje es: ', PBV:5:2);

         readln;

END.

Código Fuente 2: 

{

   Una persona recibe un préstamo de Bs. 10.000,00 de un banco y

   deseasaber cuánto pagará de interés, si el banco le cobra

   una tasa del 27% anual.

}

program Prestamo;

uses crt;

var

         P,TI,PI : REAL;

BEGIN

         CLRSCR;

         P:=10000;

         TI:=0.27;

         PI:=P*TI;

         writeln('El Pago por Interes es de:',PI:5:2 );

         readln;

END.

Código Fuente 3: 

{

   Calcular el descuento y el monto a pagar por un medicamento

   cualquiera en una farmacia si todos los medicamentos tienen un

   descuento del 35%..

}

program Boleto_viaje;

uses crt;

var

         costob,d,Mp : REAL;

BEGIN

         CLRSCR;

         writeln('Int costo del medicamento: ');

         readln(costob);

         d:=costob*0.35;

         Mp:=costob-d;

        writeln('El descuento es de:',d:5:2);

        writeln('El monto a pagar es: ', Mp:5:2);

         readln;

END.

Éxitos!!!