Arroz con pollo en lenguaje Pascal

Lenguaje

Pascal
Descripción

Suponiendo que un arroz con pollo se puede cocinar exclusivamente con arroz y pollo, y que para cada cuatro personas se utiliza medio kilo de arroz y medio kilo de pollo, escribir un programa que pida por pantalla el número de comensales para el arroz con pollo, el precio por kilo de los ingredientes y muestre las cantidades de los ingredientes necesarios y el coste de la misma.

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

program ArrozConPollo;

uses crt;

var comensales, costo, kilos_de_arroz, kilos_de_pollo, precio_del_kilo_de_arroz : real;

var precio_del_kilo_de_pollo : real;

begin

    write ('Ingresa el valor de comensales: ');

    readln (comensales);

    write ('Ingresa el valor de precio del kilo de arroz: ');

    readln (precio_del_kilo_de_arroz);

    write ('Ingresa el valor de precio del kilo de pollo: ');

    readln (precio_del_kilo_de_pollo);

    kilos_de_pollo := comensales/8;

    kilos_de_arroz := comensales/8;

    costo := kilos_de_pollo*precio_del_kilo_de_pollo+kilos_de_arroz*precio_del_kilo_de_arroz;

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

    writeln ('Valor de kilos de arroz: ', kilos_de_arroz:0:6);

    writeln ('Valor de kilos de pollo: ', kilos_de_pollo:0:6);

    writeln;

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

    readkey;

end.