• Lenguaje

    Pascal

  • Descripción

    Un restaurante vende sólo desayunos y almuerzos. El costo de cada desayuno es de $ $4,500 y de un almuerzo es de $ 6,800, y al dueño de restaurante para producir un desayuno tiene un costo de $1,850 y un almuerzo de $3,800. Al final del día se ingresa la cantidad de almuerzos y desayunos vendidos. El dueño del restaurante le ha solicitado que le presente el análisis del problema para calcular la venta total del día, lo mismo que la ganancia obtenida.

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

var cantidad_de_almuerzos, desayunos_vendidos, ganancia_obtenida, venta_total : real;
begin
    write ('Ingresa el valor de cantidad de almuerzos: ');
    readln (cantidad_de_almuerzos);
    write ('Ingresa el valor de desayunos vendidos: ');
    readln (desayunos_vendidos);
    venta_total := cantidad_de_almuerzos*6800+desayunos_vendidos*4500;
    ganancia_obtenida := venta_total-cantidad_de_almuerzos*3800+desayunos_vendidos*1850;
    writeln ('Valor de ganancia obtenida: ', ganancia_obtenida:0:6);
    writeln ('Valor de venta total: ', venta_total:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.