• Lenguaje

    Pascal

  • Descripción

    La langosta ahumada es una empresa dedicada a ofrecer banquetes; sus tarifas son las siguientes: el costo de platillo por persona es de $55.00, pero si el número de personas es mayor a 100 y menor o igual a 200, el costo es de $45.00, si el número de personas es mayor a 200 y menor o igual a 300, el costo es de $35.00. Para más de 300 personas el costo por platillo es de $25.00. Determinar el presupuesto que se debe presentar a los clientes que deseen realizar un evento.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program LaLangostaAhumada2;
uses crt;

var costo_del_platillo, numero_de_personas, presupuesto : real;
begin
    write ('Ingresa el valor de numero de personas: ');
    readln (numero_de_personas);
    costo_del_platillo := 55;
    if (numero_de_personas>100) and (numero_de_personas<=200) then
        begin
            costo_del_platillo := 45;
        end;
    if (numero_de_personas>200) and (numero_de_personas<=300) then
        begin
            costo_del_platillo := 35;
        end;
    if numero_de_personas>300 then
        begin
            costo_del_platillo := 25;
        end;
    presupuesto := costo_del_platillo*numero_de_personas;
    writeln ('Valor de costo del platillo: ', costo_del_platillo:0:6);
    writeln ('Valor de presupuesto: ', presupuesto:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.