Pazcal

Disponível somente no TrabalhosFeitos
  • Páginas : 8 (1835 palavras )
  • Download(s) : 0
  • Publicado : 12 de dezembro de 2012
Ler documento completo
Amostra do texto
EXERCÍCIOS

1. Escrever um algoritmo que lê 5 valores para a, um de cada vez, e conta quantos destes valores são negativos, escrevendo esta informação.

Program contavalores;
Var
i,numero,conta,contb: integer;
Begin
conta:=0;
contb:=0;
for i:= 1 to 5 do
Begin
Writeln('Entre com um número');
Readln(numero);
if (numero<0) then
conta:=conta+1
end;
Writeln('Sãonegativos:', conta);
End.

2. A prefeitura de uma cidade fez uma pesquisa entre seus habitantes, coletando dados sobre o salário e número de filhos. A prefeitura deseja saber:
a) média do salário da população;
b) média do número de filhos;
c) maior salário;
d) percentual de pessoas com salário até R$100,00.
O final da leitura de dados se dará com a entrada de um salário negativo. (Useo comando ENQUANTO-FAÇA)

Program pesquisa;
Program Pzim ;
Var
salario,soma,somafilho,maior,sal: real;
filhos,c:integer;
resp:char;

Begin
c:=0;
soma:=0;
somafilho:=0;
maior:=salario;
sal:=0;
while resp <> 'N' do
Begin
Writeln('Entre com salário');
Readln(salario);
Writeln('Entre com o número de filhos');
readln(filhos);
soma:=soma+salario;somafilho:=somafilho+filhos;
c:=c+1;
if salario > maior then
maior:=salario;
if salario > 100 then
sal:=sal+1;
Writeln('Deseja continuar: S para sim e N para não');
readln(resp);
end;
Writeln('A média de salário é:', soma/c);
Writeln('A média de filhos é:', somafilho/c);
Writeln('O maior salário é:', maior);
writeln('Números de pessoas que recebem salários acimade R$100,00:',sal);
End.
3. Construir um algoritmo que calcule a média aritmética de vários valores inteiros positivos, lidos externamente. O final da leitura acontecerá quando for lido um valor negativo.

Program medianum ;
Var
numero:integer;
ac,cont:real;
Begin
ac:=0;
cont:=0;
while numero > 0 do
Begin
Writeln('Entre com com o número inteiro');
Readln(numero);ac:=ac+numero;
cont:=cont+1

end;
Writeln('A média aritmética será:',ac/cont);
End.

4. Escreva um algoritmo que calcule a média aritmética das 3 notas dos alunos de uma classe. O algoritmo deverá ler, além das notas, o código do aluno e deverá ser encerrado quando o código for igual a zero.
Program medialuno ;
Var
cod:integer;
nota1, nota2, nota3,soma:real;

BeginWriteln('Entre com o código do aluno');
Readln(cod);

while cod <> 0 do
Begin
Writeln('Entre com a nota 1');
Readln(nota1);
Writeln('Entre com a nota 2');
Readln(nota2);
Writeln('Entre com a nota 3');
Readln(nota3);
soma:=(nota1+nota2+nota3);
Writeln('A média do aluno será:',(soma/3):0:2);
writeln('');
writeln('');
Writeln('Entre com o código do aluno');Readln(cod);
end;
End.
5. Escreva um algoritmo que calcule a média dos números digitados pelo usuário, se eles forem pares. Termine a leitura se o usuário digitar zero (0).

Program media ;
Var
numero,cont:integer;
soma:real;

Begin
cont:=0;
soma:=0;
while numero <> 0 do
Begin
Writeln('Entre com o número');
readln(numero);
if numero mod 2=0 thensoma:= soma+numero;
cont:=cont+1
end;
Writeln('A média será:', soma/cont);
End.

OU
Program media ;
Var 
numero,cont:integer;
ac:real;
Begin
cont:=0;
ac:=0;

Writeln('Entre com o número');
readln(numero);

while numero <> 0 do

Begin 
if numero mod 2=0 then
ac:= ac+numero;
cont:=cont+1;
Writeln('Entre com o número');
readln(numero);
end;
Writeln('');Writeln('');
Writeln('A média será:',(ac/cont):0:2);
Writeln('');
Writeln('Entre com o número');
readln(numero);
End.

6. Escreva um algoritmo que leia 50 valores e encontre o maior e o menor deles. Mostre o resultado. Program maiormenor ;
Var
i:integer;
num,maior,menor:real;

Begin
For i:= 1 to 50 do
Begin
Writeln('Entre com o número');
readln(num);
if i=1 then...
tracking img