Computação

Universidade Salgado de Oliveira
Curso: Engenharia Civil
Disciplina: Ciência da Computação II
Prof.: Jorge Luiz Abreu

Avaliação de VT (grupo de quatro alunos)
Data de entrega: Semana antes da V2 (digitalmente).

Elabore os programas descritos abaixo:

1) Faça um programa em Pascal para ler 20 valores reais e imprima o somatório e a média dos valores.

PROGRAM NUMEROS;
USES CRT;
Var
cont, soma, aux, media:real;
Begin
soma:=0; cont:=1; aux:=0; Media:=0; while(cont= 0 THEN BEGIN WRITELN('O NUMERO',VECTOR[K],'NA POSIÇÃO',K,'É POSITIVO'); END; END; WRITELN('A MÉDIA DOS NUMEROS É: ', MEDIA);
END;

3) Dado uma relação de 100 carros faça um programa que imprima quantos são da cor azul. Sendo que para cada carro tem-se uma ficha contento o nome e a cor.

Program frota; var modelocarro:array[1..100] of string; corcarro:array[1..100] of string; contazul, i:integer;
Begin
contazul := 1; for i:=1 to 100 do begin writeln('Digite o modelo do carro: ',i); readln(modelocarro[i]); writeln('Digite a cor: '); readln(corcarro[i]); if ((corcarro[i] = ‘AZUL’) or (corcarro[i] = ‘azul’)) then contazul := contazul + 1; end; clrscr; end; wirteln (‘Quantidade de carros da cor Azul: ‘,contazul); end. 4) Dado um número indeterminado de funcionários (nome = “zzzz”), onde é fornecido o seu nome, número de dependentes e o número de horas trabalhadas. Pede-se que seja impresso, para cada funcionário, o seu nome, salário bruto, salário líquido e o valor descontado. A empresa, paga R$ 200,00 por hora de trabalho, e R$ 120,00 por dependente, e ainda faz um desconto de 10% sobre o salário bruto. Pede-se ainda que seja impresso o total de funcionários da empresa, o total gasto com salários e o total descontado. Faça o programa em Pascal.

5) Construa um programa em Pascal para calcular as raízes de