-
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
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.
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.