Lista de exercícios (permitido) - Pascal

Lista de Exercícios (Resolvidos) - Pascal

1. Escreva um programa em Pascal para ler, calcular e escrever a média aritmética entre dois números.

program ex1;

uses crt;

var n1, n2, m: real;

begin

clrscr;

write('Informe um numero: ');

readln(n1);

write('Informe outro numero: ');

readln(n2);

m:=(n1+n2)/2;

writeln('A media ‚: ',m:0:2);

readkey;

end.

________________________________________

2. Escreva um programa em Pascal para ler um número positivo qualquer, calcular e escrever o quadrado e a raiz quadrada do mesmo.

program ex2;

uses crt;

var x, q: integer;

r: real;

begin

clrscr;

write('Informe um numero: ');

readln(x);

q:= sqr(x);

writeln('O quadrado de ', x, ' ‚ ', q);

if x>=0 then

begin

r:= sqrt(x);

writeln('A raiz quadrada de ', x, ' ‚ ', r:0:2);

end

else

begin

writeln('Nao existe raiz de ',x);

end;

readkey;

end.

________________________________________

3. Escrever um programa em Pascal que leia 3 valores: a, b, c e calcule e escreva a média aritmética, harmônica e geométrica correspondente.

program ex3;

uses crt;

var a, b, c, ma, mg, mh: real;

begin

clrscr;

write('Informe o primeiro numero: ');

readln(a);

write('Informe o segundo numero: ');

readln(b);

write('Informe o terceiro numero: ');

readln(c);

ma:= (a+b+c)/3;

mh:= 3/(1/a + 1/b +1/c);

mg:= exp(ln(a*b*c)*(1/3));

writeln('Media Aritmetica: ',ma:0:2);

writeln('Media Harmonica: ',mh:0:2);

writeln('Media Geometrica: ',mg:0:2);

readkey;

end.

________________________________________

4. Escrever um programa em Pascal que lê o número de um funcionário, seu número de horas trabalhadas, o valor que recebe por hora, e o número de filhos com idade menor do que 14 anos e calcula o salário deste funcionário.

program ex4;

uses crt;

var

nf, nfil: integer;

nht, vph, sf, st: real;

begin

clrscr;

write('Informe o numero do funcionario: ');

readln(nf);

write('Informe o numero de horas trabalhadas: ');

readln(nht);

write('Informe o valor que recebe por hora: ');

readln(vph);

write('Informe o numero de filhos: ');

readln(nfil);

write('Informe o valor do salario familia: ');

readln(sf);

st:= nht * vph + nfil * sf;

writeln('O funcionario ', nf, ' recebe um salario total de R$ ', st:0:2);

readkey;

end.

________________________________________

5. Escrever um programa em Pascal que lê o número de um vendedor, o seu salário-fixo, o tota1 de vendas por ele efetuadas e o percentual que ganha sobre o total de vendas. Calcular o salário tota1 do vendedor. Escrever número do vendedor e o salário total.

program ex5;

uses crt;

var

nv: integer;

sf, tv, per, st: real;

begin

clrscr;

write('Informe o numero do vendedor: ');

readln(nv);

write('Informe o salario fixo: ');

readln(sf);

write('Informe o total de vendas: ');

readln(tv);

write('Informe o percentual sobre as vendas: ');

readln(per);

st:= sf + tv * per / 100;

writeln('O vendedor ', nv, ' recebe um salario total de