Libras por vaca en lenguaje Pascal

Lenguaje

Pascal
Descripción

En una finca hay 5 vacas las cuales defecan 5 veces al día (3 veces en la mañana y 2 en la tarde) 2 libras de heces, pero en la mañana hacen 2.5% más que en la tarde. Pero dos de ellas que están embarazadas hacen 1.8 % más en la tarde que en la mañana. Desarrollar un algoritmo que determine la cantidad de heces que defecan las embarazadas, las que no están embarazadas. Total de heces que defecan en la mañana y la tarde; además el total de ambas (embarazadas y no embarazadas) en 4 días.

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
28
29
30
31
32
33

program LibrasPorVaca;

uses crt;

var dias, libras_de_embarazadas, libras_de_no_embarazadas, libras_en_la_manana, libras_en_la_tarde : real;

var libras_por_vaca, total_de_ambas, vacas_embarazadas, vacas_no_embarazadas, veces_en_la_manana : real;

var veces_en_la_tarde : real;

begin

    dias := 4;

    libras_por_vaca := 2;

    vacas_embarazadas := 2;

    vacas_no_embarazadas := 3;

    veces_en_la_manana := 3;

    veces_en_la_tarde := 2;

    libras_de_embarazadas := (1.025*veces_en_la_manana+veces_en_la_tarde)*vacas_embarazadas*libras_por_vaca*dias;

    libras_de_no_embarazadas := (1.025*veces_en_la_manana+1.018*veces_en_la_tarde)*vacas_no_embarazadas*libras_por_vaca*dias;

    libras_en_la_manana := 1.025*veces_en_la_manana*(vacas_embarazadas+vacas_no_embarazadas)*libras_por_vaca*dias;

    libras_en_la_tarde := (1.018*vacas_no_embarazadas+vacas_embarazadas)*veces_en_la_tarde*libras_por_vaca*dias;

    total_de_ambas := libras_de_embarazadas+libras_de_no_embarazadas;

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

    writeln ('Valor de libras de embarazadas: ', libras_de_embarazadas:0:6);

    writeln ('Valor de libras de no embarazadas: ', libras_de_no_embarazadas:0:6);

    writeln ('Valor de libras en la manana: ', libras_en_la_manana:0:6);

    writeln ('Valor de libras en la tarde: ', libras_en_la_tarde:0:6);

    writeln ('Valor de libras por vaca: ', libras_por_vaca:0:6);

    writeln ('Valor de total de ambas: ', total_de_ambas:0:6);

    writeln ('Valor de vacas embarazadas: ', vacas_embarazadas:0:6);

    writeln ('Valor de vacas no embarazadas: ', vacas_no_embarazadas:0:6);

    writeln ('Valor de veces en la manana: ', veces_en_la_manana:0:6);

    writeln ('Valor de veces en la tarde: ', veces_en_la_tarde:0:6);

    writeln;

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

    readkey;

end.