Pascal

é-visualização

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;