Lista de exercícios 1 programação pascalzim

Prévia do material em texto

//Lista de exercícios 1 
1)Escreva um algoritmo que calcule o diâmetro, a área e a circunferência de um círculo, sabendo que o único dado disponível é o seu raio.
Program Ex1 ;
var
raio, diametro, circunferencia:real;
const
pi=3.14;
Begin
write('Entre com o valor do raio: ');
read(raio);
diametro:=2*raio;
writeln('O diâmetro é: ', diametro);
circunferencia:=2*pi*raio;
writeln('O valor da circunferência é: ',circunferencia);
End.
2) Faça um algoritmo para entrar com dois números inteiros e imprimir a soma.
Program Ex2 ;
var
A,B,soma:integer;
Begin
write('Entre com um valor inteiro: ');
read(A);
write('Entre com outtro valor inteiro: ');
read(B);
soma:=A+B;
write('A soma dos números inteiros ',A,' + ',B, ' é: ', soma);
End.
3) Entrar com dois números e imprimir a média aritmética
Program Ex3 ;
var
A,B,media:real;
Begin
write('Entre com um número: ');
read(A);
write('Entre com outro número: ');
read(B);
media:=(A+B)/2;
writeln('A média dos valores inseridos ',A, ' e ',B, ' é: ', media);
End.
4) Criar um algoritmo que solicite e imprima os valores da diagonal maior, diagonal menor e calcule a área de um losango.
Program Ex4 ;
var
Dmaior,Dmenor, area: real;
Begin
write('Entre com a diagonal maior: ');
read(Dmaior);
write('Entre com a diagonal menor: ');
read(Dmenor);
writeln('A diagonal maior é: ',Dmaior, ' e a diagonal menor é: ',Dmenor);
area:= (Dmaior*Dmenor)/2;
write('A área do losângo é: ',area);
End.
5) Elaborar um algoritmo para calcular e apresentar o volume de uma lata de óleo, utilizando a fórmula: Volume = 3.14159 * (r*r) * Altura
Program Ex5 ;
var
r,h,volume: real;
const
pi=3.14159;
Begin
write('Entre com o valor do raio da lata: ');
read(r);
write('Entre com o valor da altura da lata: ');
read(h);
volume:= pi*r*r*h;
writeln('O volume da lata de raio ',r, ' e altura ',h, ' é ',volume);
End.
6) Escreva um programa em Pascal que pergunte o nome a altura (em metros) e a massa (em Kg) do usuário. Em seguida o programa deverá exibir uma mensagem dizendo o nome do usuário e a sua densidade corporal. - Densidade = Peso / Altura2
Program Ex6 ;
var
nome:string;
altura, massa, densidade:real;
const
g=9.81;
Begin
write('Entre com seu nome: ');
read(nome);
write('Entre com sua massa em quilogramas: ');
read(massa);
write('Entre com sua altura em metros: ');
read(altura);
densidade:=(massa*g)/(altura*altura);
writeln(nome,', a sua densidade corporal é: ',densidade);
End.
7) Entrar e ler um número inteiro e imprimir seu sucessor e seu antecessor.
Program Ex7 ;
var
n,s,a:integer;
Begin
write('Entre com um número inteiro: ');
read(n);
s:=n+1;
a:=n-1;
writeln('O antecessor e o sucessor de ',n, ' é respectivamente ',a, ' e ' ,s);
end.
8) Entrar e ler dois números inteiros e imprimir o produto
Program Ex8 ;
var
A,B,produto: integer;
Begin
write('Entre com um valor inteiro: ');
read(A);
write('Entre com outro valor inteiro: ');
read(B);
produto:= A*B;
writeln('O valor do produto ',A,'*',B,' é: ',produto);
end.
9) Entrar com dois números inteiros e imprimir o dividendo, divisor, quociente (div) e o resto (mod). 
Program Ex9 ;
var
dividendo, quociente, resto,divisor: integer;
Begin
write('Entre com um valor (dividendo) inteiro: ');
read(dividendo);
write('Entre com um valor (divisor) inteiro: ');
read(divisor);
resto:=dividendo mod divisor;
quociente:= dividendo div divisor;
writeln('O dividendo é ', dividendo, ' e o divisor é ',divisor);
writeln('O quociente é ',quociente, ' e o resto é ',resto);
end.