Sistema Informação

1. Escreva um programa em Pascal para ler, calcular e escrever a mdia aritmtica entre dois nmeros. program ex1 uses crt var n1, n2, m real begin clrscr write(Informe um numero ) readln(n1) write(Informe outro numero ) readln(n2) m(n1n2)/2 writeln(A media ,m02) readkey end. 2. Escreva um programa em Pascal para ler um nmero 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 x0 then begin r sqrt(x) writeln(A raiz quadrada de , x, , r02) 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 mdia aritmtica, harmnica e geomtrica 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 (abc)/3 mh 3/(1/a 1/b 1/c) mg exp(ln(abc)(1/3)) writeln(Media Aritmetica ,ma02) writeln(Media Harmonica ,mh02) writeln(Media Geometrica ,mg02) readkey end. 4. Escrever um programa em Pascal que l o nmero de um funcionrio, seu nmero de horas trabalhadas, o valor que recebe por hora, e o nmero de filhos com idade menor do que 14 anos e calcula o salrio deste funcionrio. 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 , st02) readkey end. 5. Escrever um programa em Pascal que l o nmero de um vendedor, o seu salrio-fixo, o tota1 de vendas por ele efetuadas e o percentual que ganha