• Lenguaje

    Pascal

  • Descripción

    La Conagua requiere determinar el pago que debe realizar una persona por el total de metros cúbicos que consume de agua al llenar una alberca. (Tomar en cuenta el alto, largo y ancho, calcular el volumen de la alberca). Realice un algoritmo y represéntelo mediante un pseudocodigo que permita determinar ese pago.

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

var alto_en_m, ancho_en_m, largo_en_m, pago, precio_por_m3 : real;
var volumen_en_m3 : real;
begin
    write ('Ingresa el valor de alto en m: ');
    readln (alto_en_m);
    write ('Ingresa el valor de ancho en m: ');
    readln (ancho_en_m);
    write ('Ingresa el valor de largo en m: ');
    readln (largo_en_m);
    write ('Ingresa el valor de precio por m3: ');
    readln (precio_por_m3);
    volumen_en_m3 := alto_en_m*largo_en_m*ancho_en_m;
    pago := volumen_en_m3*precio_por_m3;
    writeln ('Valor de pago: ', pago:0:6);
    writeln ('Valor de volumen en m3: ', volumen_en_m3:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.