Linguagem pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (553 palavras )
  • Download(s) : 0
  • Publicado : 18 de março de 2013
Ler documento completo
Amostra do texto
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;

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 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, ce 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('MediaAritmetica: ',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ê onú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;
usescrt;

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);...
tracking img