lista resolvida algoritmo

Prévia do material em texto

Calcular e apresentar o volume de uma lata de óleo, utilizando a fórmula VOLUME ¬ 3.14159 * R ­ 2 * ALTURA
Program vol_lata;
var
 volume: real;
 raio: real;
 altura: real;
begin
 write('entre com valor do raio:'); 
 readln(raio); 
 write('entre com altura:');
 read(altura);
 volume:=3.1416*raio*raio*altura;
 write('o volume da lata seria:',volume;
End.
o cálculo da quantidade de litros de combustível gasta em uma viagem, utilizando um automóvel que faz 12 Km por litro. Para obter o cálculo, o usuário deve fornecer o tempo gasto e a velocidade média durante a viagem. Desta forma, será possível obter a distância percorrida com a fórmula DISTÂNCIA ¬ TEMPO * VELOCIDADE. Tendo o valor da distância, basta calcular a quantidade de litros de combustível utilizada na viagem com a fórmula LITROS_USADOS ¬DISTÂNCIA / 12. O programa deve apresentar os valores da velocidade média, o tempo gasto na viagem, a distância percorrida e a quantidade de litros gasta na viagem.
Program litros_usados; // questao b
var
 distancia:real;
 tempo:real;
 quantidade_litros:real;
 velocidade:real;
begin
 write('Informe o tempo gasto.:');
 read(tempo);
 write('Informe a velocidade media.:');
 read(velocidade);
 distancia:=tempo*velocidade;
 writeln('A distancia percorrida é:',distancia);
 quantidade_litros:=distancia/12;
 writeln('A quantidade de litros gasto foi:',quantidade_litros);
end.
Ler dois valores para as variáveis A e B e efetuar a troca 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 a_b;
var
 a:integer;
 b:integer;
 troca:integer;
begin
 write('Informe um valor para A.:');
 read(a);
 write('informe um valor para B.:');
 read(b);
 troca:=a;
 a:=b;
 b:=troca; 
 writeln('O novo valor de A é:',a);
 writeln('O novo valor de B é;',b);
end.
 Ler quatro valores numéricos inteiros e apresentar os valores das adições e das multiplicações utilizando a propriedade distributiva para a máxima combinação possível entre as quatro variáveis. Considerando-se o uso das variáveis A, B, C e D, devem ser feitas seis adições e seis multiplicações, ou seja, de forma geral deve ser combinada a variável A com a variável B, a variável A com a variável C, a variável A com a variável D. Depois será necessário combinar a variável B com a variável C, e a variável B com a variável D e, por fim, a variável C será combinada com a variável D.
Program algoritmo troca;
Var
 a,b,c,d:integer;
Begin
 Write(‘entre com valor de a,b,c,d:’);
 Read(a,b,c,d);
 Write(‘as somas são a+b, a+c, a+d, b+c, b+d, c+d);
 Write(	‘os produtos são a*b, a*c, a*d, b*c, b*d, c* d);
End.
 Elaborar um programa que apresente o valor da conversão em real (R$) de um valor lido em dólar (US$). O programa deve solicitar o valor da cotação do dólar e também a quantidade de dólares disponível com o usuário
Program valor_conversao;
var
 dolar:real;
 cotacao:real;
 conversao:real;
Begin
 write('informe o valor do dolar para conversao:US$');
 read(dolar);						
 write('informe o valor da cotaçao do dolar:R$');
 read(cotacao);
 conversao:=dolar*cotacao;
 write('O valor do dolar convertido em real é:R$',conversao);
End.
Construir um programa que leia três valores inteiros (representados pelas variáveis A, B e C) e apresente como resultado final o valor da soma dos quadrados dos três valores lidos.
Program soma_variaveis; // questao f
var
 A,B,C,soma_quadrados:integer;
begin
 write('Digite um valor para A.:');
 read(a);
 write('Digite um valor para B.:');
 read(b);
 write('Digite um valor para C.:');
 read(c);
 soma_quadrados:=a*a + b*b + c*c;
 writeln('A soma dos quadrados é:',soma_quadrados);
end.
 Elaborar um programa que faça a leitura de quatro valores inteiros (variáveis A, B, C e D). Ao final o programa deve apresentar o resultado do produto (variável P) do primeiro com o terceiro valor, e o resultado da soma (variável S) do segundo com o quarto valor.
Program variaveis_ps; //questao g
var
A,B,C,D,variavel_p,variavel_s:integer;
begin
 write('Entre com valor de A:');
 read(a);
 write('Entre com valor de B:');
 read(b);
 write('Entre com valor de C:');
 read(c);
 write('Entre com valor de D:');
 read(d);
 variavel_p:= a * c;
 variavel_s:= b + d;
 writeln('O valor do produto variavel P:',variavel_p);
 writeln('O Valor da soma variavel S:',variavel_s);
end.
 
Em uma eleição sindical concorreram ao cargo de presidente três candidatos (variáveis A, B e C). Durante a apuração dos votos foram computados votos nulos e votos em branco, além dos votos válidos para cada candidato. Deve ser criado um programa de computador que faça a leitura dos votos válidos para cada candidato, além de efetuar também a leitura da quantidade dos votos nulos e dos votos em branco. Ao final o programa deve apresentar o número total de eleitores, considerando votos válidos, votos nulos e votos em branco; o percentual correspondente de votos válidos em relação à quantidade de eleitores; o percentual correspondente de votos válidos para o candidato A em relação à quantidade de eleitores; o percentual correspondente de votos válidos para o candidato B em relação à quantidade de eleitores; o percentual correspondente de votos válidos para o candidato C em relação à quantidade de eleitores; o percentual correspondente de votos nulos em relação à quantidade de eleitores; e por último o percentual correspondente de votos em branco em relação à quantidade de eleitores
Program contagem_votos;
var
 A,B,C:integer;
 percA,percB,percC,percNL,percNB,nb,nl,total:real;
begin
write('informe os votos de A.:');
read(a);
write('informe os votos de B.:');
read(b);
write('informe os votos de C.:');
read(c);
write('informe os votos NL.:');
read(percNL);
write('informe os votos NB.:');
read(percNB);
total:=A + B + C + percNL + percNB;
percA:=A / total * 100;
percB:=B / total * 100;
percC:=C / total * 100;
percNL:=NL / total * 100;
percNB:=NB / total * 100;
writeln('total de votos:',total);
writeln('percentual de A:',percA);
writeln('percentual de B:',percB);
writeln('percentual de C:',percC);
writeln('percentual de votos nulos:',percNL);
writeln('percentual de votos brancos:',percNB);
END..
Elaborar um programa que leia dois valores desconhecidos representados pelas variáveis A e B.Calcular e apresentar o resultado das quatro operações aritméticas básicas
Program operacoes_aritmeticas;
var
 A,B:real;
OPERACAO_ADICAO,OPERACAO_PRODUTO,OPERACAO_DIVISAO,OPERACAO_SUBTRACAO:real;
begin
 write('informe o valor de A.:');
 read(A);
 write('informe o valor de B.:');
 read(B);
 OPERACAO_ADICAO:=A + B;
 OPERACAO_PRODUTO:=A * B;
 OPERACAO_DIVISAO:=A / B;
 OPERACAO_SUBTRACAO:=A - B;
 writeln('O resultado da operaçao adicao:',OPERACAO_ADICAO);
 writeln('O resultado da operacao produto:',OPERACAO_PRODUTO);
 writeln('O resultado da operacao divisao:',OPERACAO_DIVISAO);
 writeln('O resultado da operação subtracao:',OPERACAO_SUBTRACAO);
END.
 
Construir um programa que calcule e apresente em metros por segundo o valor da velocidade de um projétil que percorre uma determinada distância em quilômetros a um determinado espaço de tempo em minutos. Utilize a fórmula VELOCIDADE ¬ (DISTÂNCIA * 1000) / (TEMPO * 60).
Program projetil;
var
 velocidade_projetil,distancia,tempo:real;
begin
 write('inform o tempo gasto:');
 read(tempo);
 write('informe a distancia:');
 read(distancia);
 velocidade_projetil:=distancia * 1000 / tempo * 60;
 write('a velocidade q o projetil atingiu foi:',velocidade_projetil);
end.