Exercício Resolvido, Saco de Ração

Exercício Resolvido

"Saco de Ração"

Pedro comprou um saco de ração com peso em quilos. Pedro possui dois gatos para os quais fornece a quantidade de ração em gramas. Faça um algoritmo (Fluxograma) que receba o peso do saco de ração e a quantidade de ração fornecida para cada gato por dia.Calcule e mostre quanto restará de ração no saco após cindo dias.

program racaoGatos;

uses Crt;

var saco,quantcat, sacogram, sobra:real;

    z:integer;

begin

           for z:=1 to 70 do

           write('*');

           writeln(' ');

           writeln('Calculo de alimentação dos felinos de Pedro');

           writeln('Digite o peso do saco de ração em quilos');

           read(saco);

           writeln('Digite a quantidade de ração para cada gato em gramas');

           read(quantcat);

           sacogram:=saco*1000;

           sobra:=sacogram-(quantcat*2*5);

           writeln('A porção de ração restante no saco apos 5 dias e de: ',sobra:3:2);

           for z:=1 to 70 do

           write('*');

           writeln(' ');

           readkey;

           clrscr;

end.

The Schoolpedia 

2013