Pascal/Turbo Pascal - Ayuda en trabajo importante

   
Vista:

Ayuda en trabajo importante

Publicado por Keft (1 intervención) el 20/05/2017 01:27:24
117) El monto de las ventas es la cantidad por el precio. El descuento es del 1% del
monto de las ventas si la cantidad es superior a 100 unidades, de lo contrario el descuento es
cero porciento. El precio neto es el monto de las ventas menos el descuento. La comisión es el
3% del precio neto si este es menor que c$ 250.00, el 5% si es de c$ 250.00 o más. El
programa deberá leer la cantidad de artículos y el precio. Calculará el monto de las ventas,
descuento, precio neto, la tasa de la comisión y la comisión.

35)Escriba un programa que obtenga cada uno de los siguientes resultados de productos
de forma independiente:
a) 2/1 * 4/3 * 6/5 * 8/7 *...* 22/21

123) Calcule el pago que tiene que hacer un cliente por cierto pedido de un producto.
Suponemos que solo se dispone de cuatro productos y poseen los siguientes códigos:

CODIGO DEL PRODUCTO...............PRECIO UNITARIO C$
116 ----------------------------------------------------- 24.03
117--------------------------------------------------105.00
240--------------------------------------------------- 10.35
247-------------------------------------------------- 16.00

Se puede hacer un descuento en un pedido grande según lo siguiente: Si el pago
total está entre C$ 6,500.00 y C$ 9,999.99 se hace un descuento del 1% sobre el pago total y si el
pago total es de C$ 10,000.00 o más se hace un descuento del 2% sobre el pago total.
Suponga que van a llegar una gran cantidad de clientes por lo tanto
crear un menú de dos opciones. La primera para realizar el cálculo y la impresión del resultado o pago total. La
segunda opción es una de salida.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda en trabajo importante

Publicado por dario (31 intervenciones) el 20/05/2017 05:05:27
Ejercicio Nro 35. Eso es lo que entendi.
Saludos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
    a,b:integer;
    p:real;
begin
    clrscr;
    a:=2;
    b:=1;
    p:=1;
    while b <= 21 do begin
        p:=p*(a/b);
        a:=a+2;
        b:=b+2;
    end;
    writeln('Resultado = ',p:4:2);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad