Cobro por tacos, quesadillas y refrescos en lenguaje Pascal

Lenguaje

Pascal
Descripción

Imagina que eres el encargado de cobros de una empresa, que pasos consideras que debes incluir en el algoritmo para calcular cuanto va a pagar el cliente por su cuenta. Supón que sólo se venden 3 clases: tacos, quesadillas y refrescos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

program CobroPorTacosQuesadillasYRefrescos;

uses crt;

var costo_por_quesadilla, costo_por_refresco, costo_por_taco, pago, quesadillas_consumidas : real;

var refrescos_consumidos, tacos_consumidos : real;

begin

    write ('Ingresa el valor de costo por quesadilla: ');

    readln (costo_por_quesadilla);

    write ('Ingresa el valor de costo por refresco: ');

    readln (costo_por_refresco);

    write ('Ingresa el valor de costo por taco: ');

    readln (costo_por_taco);

    write ('Ingresa el valor de quesadillas consumidas: ');

    readln (quesadillas_consumidas);

    write ('Ingresa el valor de refrescos consumidos: ');

    readln (refrescos_consumidos);

    write ('Ingresa el valor de tacos consumidos: ');

    readln (tacos_consumidos);

    pago := tacos_consumidos*costo_por_taco+quesadillas_consumidas*costo_por_quesadilla+refrescos_consumidos*costo_por_refresco;

    writeln ('Valor de pago: ', pago:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.