A FUNDAÇÃO NOKIA

LISTA DE EXERCICIOS 02 1) Escreva um algoritmo para ler um valor inteiro (do teclado) e escrever (na tela) o seu antecessor. Program Questao01; Var Num: integer; Begin Writeln (‘digite um numero’); Readln (num); Writeln (‘o antecessor de ‘, num, ‘ eh: ‘, num-1); End. 2) Faça um algoritmo que leia três notas de um aluno, calcule e escreva a média final deste aluno. Considerar que a média é ponderada e que o peso das notas é 2, 3 e 5. Program Questao2; var nota1, nota2, nota3, media: real; Begin Writeln ('digite nota1'); readln (nota1); Writeln ('digite nota2'); readln (nota2); Writeln ('digite nota3'); readln (nota3); media:= (nota1*2 + nota2*3 + nota3*5)/10; Writeln(' a media final eh ',media:4:2); End. 3) Elabore um algoritmo que leia a quantidade de chuva em polegadas e imprima a equivalente em milímetros (25,4 mm = 1 polegada). Program Questao03; Var pol, mm: real; Begin Writeln (‘Digite a quantidade de chuva em polegadas: ‘); Readln(pol); mm := pol * 25.4; Writeln(pol,’ em polegadas corresponda a ‘, mm, ‘ quantidade de chuva em milímetros’); End. 4) Dado o seu ano de nascimento e o ano atual elaborar um algoritmo que calcule e escreva a sua idade. Program Questao04; Var anoNascimento, anoAtual: integer; Begin Writeln(‘Digite o ano do seu nascimento: ‘); Readln(anoNascimento); Writeln (‘Digite o ano atual: ‘); Readln (anoAtual); Writeln (‘Sua idade é: ‘, anoAtual – anoNascimento); End. 5) 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 Questao05; Var distancia, combustivel, media: real; Begin Writeln('Digite a distancia: '); readln(distancia); Writeln ('Digite o combustivel gasto: '); readln (combustivel); media:= distancia/combustivel; Writeln ('O consumo médio é: ', media,' km/L'); End. 6) Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e escreva a idade dessa pessoa expressa apenas em dias. Considerar ano com 365 dias e mês com 30 dias. Program Questao06; Var anos, meses, dias: integer; Begin Writeln('Digite a iadde de uma pessoa expressa em anos, meses e dias: '); Readln(anos, meses, dias); anos := anos * 365; meses := meses * 30; dias := anos + meses + dias; Writeln('A idade dessa pessoa é ', dias, ' dias.'); End. 7) Elaborar um algoritmo para armazenar dois números em variáveis e trocar os valores das variáveis. Program Questao07; var a, b, aux: integer; Begin Writeln ('digite a'); readln (a); Writeln ('digite b'); readln (b); writeln ('a = ', a, ' b = ', b); aux:= a; a:= b; b:= aux; writeln ('a = ', a, ' b = ', b); End. 8) Dado as seguintes informações de um funcionário: Nome, idade cargo e o seu salário bruto considere: a) O salário bruto teve um reajuste de 38%. a) O funcionário receberá uma gratificação de 20% do salário bruto. a) O Salário total é descontado em 15% Faça um algoritmo para: • Imprimir Nome, idade e cargo. • Imprimir o salário bruto. • Imprimir o salário líquido. Program Questao08; Var nome, cargo: string; idade: integer; salarioB, salario: real; Begin Writeln('Digite seu nome: '); Readln(nome); Writeln('Digite seu cargo: '); Readln(cargo); Writeln('Digite sua idade: '); Readln(idade); Writeln('Digite seu salário bruto: '); Readln(salarioB); salarioB := salarioB * 1.38; salarioB := salarioB * 1.2; salario := salarioB * 0.85; Writeln('Seu nome: ', nome); Writeln('Seu cargo: ', cargo); Writeln('Sua idade: ', idade) ; Writeln('Seu salário bruto: ', salarioB); Writeln('Seu salário líquido: ', salario); End. 9) Escreva um algoritmo para ler o número total de eleitores de um município, o número de votos brancos, nulos e válidos, calcular e escrever o percentual que cada um representa em relação ao total de eleitores. Program Questao09; Var tot, brancos, nulos, validos: integer; Begin Writeln (‘Digite o numero total de eleitores do municipio’); Readln (tot); Writeln (‘Digite o numeo de votos em branco’); Readln (brancos); Writeln (‘Digite o numeo de votos nulos’); Readln (nulos); escreval (‘Digite o numeo de votos validos’) Readln (validos); Writeln (‘Percentual para brancos = ‘, brancos/tot*100); Writeln (‘Percentual para nulos = ‘, nulos/tot*100); Writeln (‘Percentual para validos = ‘, validos/tot*100); End. 10) Elabore um algoritmo que leia um número com três dígitos e imprima-o na ordem inversa, ou seja, se o número for 453 imprima 354. Program Questao10; Var n1, n2, dez, cent, unid : integer; Begin Writeln(‘digite um numero com três dígitos’); Readln(n1); unid := n1 mod 10; dez := n1 div 10 mod 10; cent := n1 div 100; n2 := unid * 100 + dez * 10 + cent; Writeln (‘numero lido = ‘, n1); Writeln (‘numero invertido = ‘, n2); End. 11) Dado um número real positivo, determinar sua parte inteira e sua parte fracionária. Program Questao11; Var numero, fracao: real; numeroInt: integer; BEGIN Writeln ('Digite um número: '); Readln(numero); numeroInt := int(numero); fracao := numero - numeroInt; Writeln('A parte inteira é: ', numeroInt); Writeln('A parte fracionária é: ', fracao); End.

...