Alunota11

Download de Livros, Apostilas e literatura em geral!


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

Admin

avatar
Admin
Uma companhia de pulverização utiliza aviões para pulverizar lavouras. Os custos de pulverização dependem do tipo de praga e da área contratada, conforme o esquema:

Tipo 1: pulverização contra ervas daninhas, R$ 50,00 por acre;

Tipo 2: pulverização contra gafanhotos, R$ 100,00 por acre;

Tipo 3: pulverização contra broca, R$ 150,00 por acre ;

Tipo 4: pulverização contra tudo acima, R$ 250,00 por acre.



Se a área a ser pulverizada é maior que 100 acres, o fazendeiro recebe um desconto de 10%. Em adição, qualquer fazendeiro cujo custo ultrapasse R$ 10000,00 recebe um desconto de 12% sobre o valor que ultrapassar R$ 10000,00. Se ambos os descontos se aplicam, aquele relacionado à área é calculado em primeiro lugar. 

Preparar um algoritmo que leia uma série de dados contendo as informações:

Numero de inscrição do fazendeiro, tipo de pulverização (código de 1 a 4) e a área a ser pulverizada ( inteiro).

Exemplo: 10201 3 950.

Calcular o custo total para cada fazendeiro.



O algoritmo termina quando o numero de inscrição 9999 for lido.

http://alunota11.blogspot.com.br

Admin

avatar
Admin
Resposta:
Mostrar/Ocultar:
Program Pzim ;
var inscr,tipo, area:integer;
total:real;
Begin

while(inscr<>9999)do
begin

writeln('Digite o seu número de inscrição');
readln(inscr);

writeln('Qual o tipo de pulverização desejada?');
readln(tipo);

writeln('Digite o valor da área em acre a ser pulverizada');
readln(area);

if(tipo=1)then
total:= area * 50;

if(tipo=2)then
total:= area * 100;

if(tipo=3)then
total:=area * 150;

if(tipo=4)then
total:=area * 250 ;

if(area>100)then
total:= total * 0.90;

if(total>10000)then
total:=total * 0.88;

writeln('O fazendeiro de inscrição ',inscr,' Selecionou o tipo', tipo, ', de ',area,' de medida, com o valor de ',total:1:2);
end;


End.

http://alunota11.blogspot.com.br

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum