Editpad - c:\documents and sett

1) Apresente o seguinte algoritmo:Ler 2 valores, no caso variáveis A e B.
Efetuar a soma das variáveis A e B implicando seu resultado na variável X.
Apresentar o valor da variável X após a soma dos dois valores indicados.
var a,b,x: realler (a)ler (b)x = a+bescrever (x) 2) A fórmula para calcular a área de uma circunferência é: A = PiR2. Sendo que o valor de Pi= 3.14159 basta estabelecer:Ler um valor para raio, no caso a variável R.
Efetuar o cálculo da área, elevando o valor de R ao quadrado emultiplicando por Pi.
Apresentar o valor da variável A.
var a,r: realler (r)a = 3.1415926*r*rescrever (a) 3) Leia duas variáveis A e B. Calcule a soma entre elas e atribua à variável SOMA. Escreva o valor desta variável.
var a,b,soma: realler (a)ler (b)soma = a+bescrever (soma) 4) Leia duas variáveis A e B. A seguir, calcule o produto entre elas e atribua à variável PROD. A seguir mostre a variável PROD com mensagem correspondente.
var a,b,prod: realler (a)ler (b)prod = a*bescrever (“O produto de a e b é: “, prod) 5) Leia 2 variáveis A e B, que correspondem a 2 notas de um aluno. Calcule a média do aluno, sabendo que a nota A tem peso 3,5 e a nota B tem peso 7,5.
var a,b,media: realler (a)ler (b)media = ( (a*3,5) + (b*7,5) ) / 11escrever (media) 6) Leia 3 variáveis A e B e C, que são as notas de um aluno. Calcule a média do aluno, sabendo que a nota A tem peso 2, a nota B tem peso 3 e a nota C tem peso 5.
var a,b,c,media: realler (a)ler (b)ler (c)media = ( (a*2) + (b*3) + (c*5) ) / 10escrever (media) 7) Leia 4 variáveis A,B,C e D. Calcule e mostre a diferença do produto de A e Bpelo produto de C e D (A*B-C*D).
var a,b,c,d,res: realler (a)ler (b)ler (c)ler (d)res = (a*b) – (c*d)escrever (res) 8) Escreva um algoritmo que leia o número de um funcionário, seu número de horas trabalhadas, o valor que recebe por hora e calcula o salário desse funcionário.
A seguir, mostre o número e o salário do funcionário.
var num : intvar horas,valor,salario: realler (num)ler (horas)ler (valor)salario = horas * valorescrever (“O funcionário”,num, “ tem o salário de:”, salario) 9) 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 (emdinheiro).
Sabendo que este vendedor ganha 15% de comissão sobre suas vendasefetuadas, informar o seu salário no final do mês.
var nome : stringvar fixo,vendas,salario: realler (nome)ler (fixo)ler (vendas)salario = fixo + (0,15 * vendas)escrever (“O funcionário ”,nome, “ tem o salário de:”, salario) 10)Escrever um algoritmo que calcule e mostre o fatorial de 5.
var n, fat: intfat = 1n = 5enquanto ( n>1 ) fat = fat*n n = n-1fim enquantoescrever (fat) 11)Escrever um algoritmo que escreve os números ímpares entre 10 e 20.
var n: intn = 10enquanto ( n<=20 ) se (n%2 == 1) escrever (n) n = n+1fim enquanto 12)Escrever um algoritmo que leia o código de uma peça 1, o número de peças1, o valor unitário de cada peça 1, o código de uma peça 2, o número de peças2, o valor unitário de cada peça 2 e calcula e mostra o valor a ser pago.
var cp1, np1, cp2, np2 : intvar vu1, vu2, valor : realler (cp1)ler (np1)ler (vu1)ler (cp2)ler (np2)ler (vu2)valor = ( np1*vu1 ) + ( np2*vu2 ) escrever (valor) 13)Escrever um algoritmo para calcular o volume de uma esfera sendo fornecido o valor de seu raio. (4/3 * pi * R^3) var vol,r: realler (r)vol = (4 * 3,1415926 * r * r * r) / 3escrever (vol) 14)Escrever um algoritmo que leia três valores: A, B e C. A seguir, calcule e mostre:a) a área do triângulo que tem A por base e C por altura.
b) a área do círculo de raio C.
c) A área do trapézio que tem a e b por bases e c por altura.
d) A área do quadrado que tem lado b.
e) a área do retângulo que tem lados a e b.
var a,b,c,aux: realler (a)ler (b)ler (c)aux = (a * c)/2escrever (“A área do triângulo é: “, aux)aux = 3,1415926 * c * cescrever (“A área do círculo é: “, aux)aux = ( ( a + b) * c ) / 2escrever (“A área do trapézio é: “, aux)aux = b * bescrever (“A área do quadrado é: “, aux)aux = a * bescrever (“A área do retângulo é: “, aux) 15)Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecidos a distância total percorrida pelo automóvel e o total de combustível gasto.
var consumo,distancia,cobustivel : realler (distancia)ler (combustivel)consumo = distancia / combustívelescrever(“ O consumo foi de: “, consumo, “kilometros por litro”) 16)Escrever um algoritmo que leia dois pontos quaisquer no plano, p1(x1,y1) e p2(x2,y2) e calcule a distância entre eles.
var x1,y1,x2,y2,d : realler (x1)ler (y1)ler (x2)ler (y2)d = sqrt( (x2 - x1)*(x2 - x1) + (y2 - y1)*(y2 - y1) )escrever (d) 17)Escrever um algoritmo que calcule e mostre a quantidade de litros decombustívelgastos em uma viagem, utilizando-se um automóvel que faz 12 KM/L. Deve-se fornecer o tempo gasto na viagem e a velocidade média durante amesma. Assim pode-se obter distância percorrida:Distância = Tpo * velLitros_usados = distância/12.
var tpo,vel, aux : realler (tpo)ler (vel)aux = ( tpo * vel) / 12escrever (aux) 18)Escrever um algoritmo que leia o tempo de duração em segundos de umdeterminado evento em uma fábrica e informe-o expresso no formatohoras:minutos:segundos.
var tempo,hora,min,seg,aux : intler (tempo)aux = tempo%3600hora = (tempo – aux) / 3600min = (aux – aux%60) / 60seg = aux%60escrever (hora, “:”,min,“:”, seg) 19)Escrever um algoritmo que leia a idade de uma pessoa em dias e informe-a em anos, meses e dias.
var idade,dia,mes,ano,aux : intler (idade)aux = idade%365ano = (idade – aux) / 365mes = (aux – aux%30) / 30dia = aux%30escrever (ano, “ano(s) ”,mes, “mês(es) “, dia “dia(s)”)

Source: http://www.dcc.ufrj.br/~leandro/mat/xbt236/Aula1.pdf