Linguagem pascal

Lista de Exercícios ( Resolvidos)

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);