• Lenguaje

    Pascal

  • Descripción

    Calcule el costo que tendrá pintar un área rectangular considerando que el costo del litro de pintura es de $32.00, la pintura rinde 5 metros cuadrados por litro, de mano de obra se cobran $40.00 el metro cuadrado. Deberán proporcionarse la base y la altura de la superficie. Dar a conocer un desglose de tamaño de la superficie, cantidad necesaria de pintura, el costo de la pintura, el cobro de mano de obra y el costo total.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program CostoPorPintarUnaSuperficie;
uses crt;

var altura_en_m3, base_en_m3, costo, litros_de_pintura, superficie_en_m3 : real;
begin
    write ('Ingresa el valor de altura en m3: ');
    readln (altura_en_m3);
    write ('Ingresa el valor de base en m3: ');
    readln (base_en_m3);
    superficie_en_m3 := base_en_m3*altura_en_m3;
    litros_de_pintura := superficie_en_m3/5;
    costo := litros_de_pintura*32+superficie_en_m3*40;
    writeln ('Valor de costo: ', costo:0:6);
    writeln ('Valor de litros de pintura: ', litros_de_pintura:0:6);
    writeln ('Valor de superficie en m3: ', superficie_en_m3:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.