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) / 5, sendo F a
temperatura em Fahrenheit e C a temperatura em Celsius.
Program ********;
var
C, F: real;
Begin
writeln ('Temperatura em Celsius: ');
read (C);
F:= ( 9 * C+ 160) / 5;
write ('A temperatura em Fahrenheit é ', F);
end.
8.
Elaborar um algoritmo que efetue a apresentação do valor da
conversão em real (R$) de um valor lido em dólar (US$). O
algoritmo deverá solicitar o valor da cotação do dólar e também a
quantidade de dólares disponíveis com o usuário.
Program ********;
var
dolar, cotacao, conversao: real;
Begin
writeln ('Informe a quantidade de dólar para conversão: US$ ');
read (dolar);
writeln ('Informe o valor da cotação do dólar: R$ ');
read (cotacao);
conversao:= dolar * cotacao;
writeln ('A quantidade de dólar convertido em real é: R$ ', conversao);
end.
9.
Faça um algoritmo que receba um valor que foi depositado e exiba o
valor com rendimento após um mês. Considere fixo o juro da poupança em
0,70% a. m.
Program ********;
var
deposito, rendimento: real;
Begin
writeln (‘Valor depositado: ');
read (deposito);
rendimento:= deposito * 1.7;
writeln ('O rendimento após um mês é: ', rendimento);
end.
10.
A Loja Mamão com Açúcar está vendendo seus produtos em 5 (cinco)
prestações sem juros. Faça um algoritmo que receba um valor de uma
compra e mostre o valor das prestações.
Program ********;
var
val_compra, prestacoes: real;
Begin
writeln ('Informe o valor da compra: ');
read (val_compra);
prestacoes:= val_compra / 5;
writeln ('A prestação é: R$ ', prestacoes);
end.
11.
Faça um algoritmo que receba o preço de custo de um produto e mostre o
valor de venda. Sabe-se que o preço de custo receberá um acréscimo de
acordo com um percentual informado pelo usuário.
Program ********;
var
custo, venda, percentual: real;
Begin
writeln (‘Custo do produto: R$ ');
read (custo);
writeln ('Percentual que será acrescido no custo: ');
read (percentual);
venda:= percentual / 100;
writeln ('O valor do produto é: ', (venda*custo) + custo);
end.
12.
O custo ao consumidor de um carro novo é a soma do custo
de fábrica com a percentagem do distribuidor e dos impostos
(aplicados, primeiro os impostos sobre o custo de fábrica, e depois a
percentagem do distribuidor sobre o resultado). Supondo que a
percentagem do distribuidor seja de 28% e os impostos 45%. Escrever um
algoritmo que leia o custo de fábrica de um carro e informe o custo ao
consumidor do mesmo.
Program ********;
var
custo_fab, vr_final, impostos: real;
Begin
writeln ('Informe o custo de fábrica do carro: ');
read (custo_fab);
impostos:= custo_fab * 1.45;
vr_final:= impostos * 1.28;
writeln ('O valor do automóvel para o consumidor é: R$ ', vr_final);
end.
13. Faça um algoritmo que receba um número e mostre uma mensagem caso este número seja maior que
Program ********;
var
n1: integer;
Begin
writeln ('Escreva um número: ');
read (num);
if num > 10 then
writeln ('O número ', n1, ' é maior do que 10')
End.
14. Escrever um algoritmo que leia dois valores inteiro distintos e informe qual é o maior.
Program ********;
var
a, b: integer;
Begin
writeln ('Primeiro valor: ');
read (a);
writeln ('Segundo valor: ');
read (b);
if a > b then
writeln ('O valor ', a, ' é maior que o valor ', b)
else
writeln ('O valor ', b, ' é maior que o valor ', a);
end.
15. Faça um algoritmo que receba um número e diga se este número está no intervalo entre 100 e 200.
Program ********;
var
n1: integer;
Begin
writeln ('Informe um numero: ');
read (n1);
if (n1 >= 100) and (n1 <= 200) then
writeln ('O número está entre 100 e 200')
end.
16.
Escrever um algoritmo que leia o nome e as três notas
obtidas por um aluno durante o semestre. Calcular a sua média
(aritmética), informar o nome e sua menção aprovado (media >= 7),
Reprovado (media <= 5) e Recuperação (media entre 5.1 a 6.9).
Program ********;
var
nome: string;
n1, n2, n3, media: real;
Begin
writeln ('Nome do aluno: ');
read (nome);
writeln ('Informe a primeira nota: ');
read (n1);
writeln ('Informe a segunda nota: ');
read (n2);
writeln ('Informe a terceira nota: ');
read (n3);
media:= (n1 + n2 + n3) / 3;
if media >= 7 then
writeln ('O aluno está aprovado. A média foi: ', media);
if media <= 5 then
writeln ('O aluno está reprovado. A média foi: ', media);
if (media >= 5.1) and (media <= 6.9) then
writeln ('O aluno está de recuperação. A média foi: ', media);
end.
Nenhum comentário:
Postar um comentário