Lista de Exercicios (Resolvidos)- Pascal1. Escreva um programa em Pascal para ler, calcular eescrever a media aritmetica entre dois numeros.program ex1;uses crt; var n1, n2, m: real; beginclrscr;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 numeropositivo qualquer, calcular e escrever o quadrado e a raiz quadrada do mesmo.program ex2;uses crt; var x, q: integer; r: real; beginclrscr;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); endelse 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 media aritmetica, harmonica e geometricacorrespondente.program ex3;uses crt; var a, b, c, ma, mg, mh: real; beginclrscr;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 le o numero de umfuncionario, seu numero de horas trabalhadas, o valor que recebe porhora, e o numero de filhos com idade menor do que 14 anos e calcula o salariodeste funcionario.program ex4;uses crt; varnf, nfil: integer;nht, vph, sf, st: real; beginclrscr;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 le o numero de umvendedor, o seu salario-fixo, o tota1 de vendas por ele efetuadas e opercentual que ganha sobre o total de vendas. Calcular o salario tota1 dovendedor. Escrever numero do vendedor e o salario total.program ex5;uses crt; varnv: integer;sf, tv, per, st: real; beginclrscr;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 R$ ', st:0:2);readkey;end. 6. Escrever um programa em Pascal que le 3 valores a, b,c que sao lados de um triangulo e calcule a area deste triangulo. program ex6;uses crt; var a, b, c, s, at: real; beginclrscr;write('Informe o primeiro numero: ');readln(a);write('Informe o segundo numero: ');readln(b);write('Informe o terceiro numero: ');readln(c);s:= (a+b+c)/2;at:=sqrt(s*(s-a)*(s-b)*(s-c));writeln('Area do triangulo: ',at:0:2);readkey;end. 7. Uma revendedora de carros usados paga a seusfuncionarios vendedores, um salario fixo por mes, mais uma comissaotambem fixa para cada carro vendido e mais 5% do valor das vendas por eleefetuadas. Escrever um programa em Pascal que le o numero do vendedor, o numerode carros por ele vendidos, o valor tota1 de suas vendas, o salario fixo e o valor que recebe por carro vendido e calcula o salario mensaldo vendedor, escrevendo-o juntamente com o seu numero de identificacao.program ex7;uses crt; varnv, ncv: integer;sf, tv, vpcv, st: real; beginclrscr;write('Informe o numero do vendedor: ');readln(nv);write('Informe o numero de carros vendidos: ');readln(ncv);write('Informe o total de vendas: ');readln(tv);write('Informe o salario fixo: ');readln(sf);write('Informe o valor por carro