Mecanica geral

Centro Universitário do Leste de Minas Gerais

Curso de Engenharia Civil e Mecânica

Fundamentos da Computação I

Prof. Débora Pereira Coura

Trabalho 03

Aluno: ________________________________________________________ Turma: CEC e CEM

Valor: 5 pontos                                                                        Data: ___/___/___

Orientações:

• O trabalho é em dupla, deve ser entregue manuscrito no dia da avaliação.

1. (1,5 pontos) Analise o programa abaixo e faça o fluxograma correspondente.

program SeuNome;

   var  NOME : string;

        PRECO, NP, SOMA : real;

        X, QT : integer;

begin

X:=1;

QT := 0;

SOMA := 0;

while (X <= 4) do

begin

   write(‘ Informe o nome do ‘ , X , ‘ produto:’);

   read(NOME);

   write( ‘ Informe o preço do ‘, X , ‘  produto’);

   read(PRECO);

   NP = PRECO * 1.10;

   if (NP > 100 ) then

   begin

      SOMA := SOMA + NP;

      QT := QT + 1;

   end

   writeln(‘ O novo preco do produto ‘, NOME, ‘ é ‘, NP );

   X := X +1;

end;

if ( QT > 0 ) then

begin

    MEDIA := SOMA /QT

   Writeln ( ‘ A média de preço dos produtos que custam mais de R$ 100,00 é ‘ , MEDIA );

end

else

begin

   Writeln( ‘ Não existem produtos com preço maior que R$100,00 ‘);

end;

end.

1. (1,5 pontos) Faça o rastreio do programa acima.

1. (2 pontos) Elabore um programa que leia o nome, o salário, o número do departamento e o sexo de 100 funcionários de uma empresa e que calcula e escreva:

1. O maior salário do grupo;
2. A média de salário das mulheres;  
3. O menor salário e o nome do funcionário que o possui;  
4. A média de salário dos departamentos de número 03 e 04.

...