Question

Alguém pode me ajudar?
esse trabalho é pra terça-feira agora!
obs: o programa usado e o pascalzim!​​

Answer 1

Resposta:

Program Pzim ;

// Constantes

var metroGrama : real = 8.0; // Preço do metro da grama

var tapetesMetro : integer = 4; // Tapetes por metro de grama

var jardinPrecoMetro : real = 27.0; // Preço do jardineiro por metro quadrado

var nome : string;

var altura, largura, area, valorGrama,  

valorMaoObra, tapetes, total, valorMediaDia : real;

var dias : integer;

Begin

  // Recebe os valores necessários

  write('Informe seu nome: ');

  readln(nome);

   

  write('Informe a largura de seu terreno: ');

  readln(largura);

   

  write('Informe a altura de seu terreno: ');

  readln(altura);

   

  write('Informe em quantos dias o jardineiro terminará a obra: ');

  readln(dias);

   

  // Processa os valores recebidos

  area := altura * largura; // Área do terreno

  valorGrama := area * metroGrama; // Preço da grama

 tapetes := area * 4; // Quantidade de tapetes

 valorMaoObra := area * jardinPrecoMetro; // Mão de obra do jardineiro

  total := valorGrama + valorMaoObra; // Valor total da obra

 valorMediaDia := total / dias; // Valor médio diario da obra

   

  // Mostra os resultados

  writeln();

  writeln('Olá sr. ', nome, ', as especificações do seu trablhalho são:');

  writeln('Tamanho do terreno................ ', area, 'm2');

  writeln('Preço da grama..................R$ ', valorGrama);

  writeln('Quantida de tapetes............... ', tapetes);

  writeln('Mão de obra.....................R$ ', valorMaoObra);

  writeln('Total da obra...................R$ ', total);

  writeln('Valor médio diário..............R$ ', valorMediaDia);

End.