Lista De Exercicos Resolvidos Pascalzim

1. Faça um algoritmo que receba dois números e exiba o resultado da sua soma.

Program ********;

var

n1, n2, total: real;

Begin

writeln ('Informe o primeiro número: ');

read (n1);

writeln ('Informe o segundo número: ');

read (n2);

total:= n1 + n2;

writeln ('A soma é: ', total);

end.

2. Faça um algoritmo que receba dois números e ao final mostre a soma, subtração, multiplicação e a divisão dos números lidos.

Program ********;

var

n1, n2, soma, subtracao, divisao, multiplicacao: real;

Begin

writeln ('Informe o primeiro número: ');

read (n1);

writeln ('Informe o segundo número: ');

read (n2);

soma:= n1 + n2;

subtracao:= n1 - n2;

divisao:= n1 / n2;

multiplicacao:= n1 * n2;

writeln ('A soma é: ', soma);

writeln ('A subtração é: ', subtracao);

writeln ('A multiplicação é: ', multiplicacao);

writeln ('A divisão é: ', divisao);

end.

3. Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo automóvel e o total de combustível gasto.

Program ********;

var

tot_comb, tot_dist, cons: real;

Begin

writeln (‘Distância percorrida: ');

read (tot_dist);

writeln ('Combustível gasto: ');

read (tot_comb);

cons:= tot_dist / tot_comb;

writeln ('O consumo médio é de: ', cons);

end.

4. Escrever um algoritmo que leia o nome de um vendedor, o seu salário fixo e o total de vendas efetuadas por ele no mês (em dinheiro). Sabendo que este vendedor ganha 15% de comissão sobre suas vendas efetuadas, informar o seu nome, o salário fixo e salário no final do mês.

Program ********;

var

nome: string;

sal_fixo, sal_final, tot_vendas: real;

Begin

writeln ('Nome do vendedor: ');

read (nome);

writeln ('Salário fixo desse vendedor: ');

read (sal_fixo);

writeln ('Total de vendas (em R$) desse vendedor: ');

read (tot_vendas);

sal_final:= (tot_vendas * 0.15)+sal_fixo;

writeln ('Vendedor: ', nome);

writeln ('Salário fixo: R$ ', sal_fixo);

writeln ('Salário com comissão: R$ ', sal_final);

end.

5. Escrever um algoritmo que leia o nome de um aluno e as notas das três provas que ele obteve no semestre. No final informar o nome do aluno e a sua média (aritmética).

Program ********;

var

aluno: string;

n1, n2, n3, media: real;

Begin

writeln (‘Nome do aluno: ');

read (aluno);

writeln ('Primeira nota: ');

read (n1);

writeln ('Segunda nota: ');

read (n2);

writeln ('Terceira nota: ');

read (n3);

media:= (n1 + n2 + n3) / 3;

writeln ('A média do aluno é: ', media);

end.

6. Ler dois valores para as variáveis A e B, e efetuar as trocas dos valores de forma que a variável A passe a possuir o valor da variável B e a variável B passe a possuir o valor da variável A. Apresentar os valores trocados.

Program ********;

var

a, b, troca: integer;

Begin

writeln ('Valor da variável A: ');

read (a);

writeln ('Valor da variável B: ');

read (b);

troca:= a;

a:= b;

b:= troca;

writeln ('O novo valor de A é: ', a);

writeln ('O novo valor de B é: ', b);

end.

7. Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit. A fórmula de conversão é: F=(9*C+160)