Algoritimo

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (547 palavras )
  • Download(s) : 0
  • Publicado : 17 de outubro de 2012
Ler documento completo
Amostra do texto
TÉCNICAS DE PROGRAMAÇÃO II Prof. MSc. Alan Carvalho

LISTA DE ALGORITMOS PARA TRADUÇÃO PARA LINGUAGEM PASCAL RECAPITULAÇÃO DE TÉCNICAS DE PROGRAMAÇÃO I PARTE I

1. Crie um programa que peça aousuário as duas notas bimestrais de um aluno, calcule e exiba sua nota final. A nota final é a média aritmética simples das duas notas bimestrais. algoritmo CalculaMedia variáveis N1, N2, NF: real inícioleia N1, N2 NF  (N1 + N2) / 2 escreva NF fim program CalculaMedia; var N1, N2, NF: real; { N1 - primeira nota N2 - segunda nota NF - nota final } begin writeln('*** CÁLCULO DA MÉDIA ***'); writeln; {entrada de dados } write('Digite a primeira nota: '); readln(N1); writeln; write('Digite a segunda nota: '); readln(N2); { cálculo da nota final } NF := (N1 + N2) / 2; { exibição da nota final }writeln; write('A nota final é: ', NF:0:2); end.

2. Uma empresa paga uma determinada quantia em reais por km rodado para seus vendedores. Crie um programa que permita saber qual será o valor total a pagarpara um vendedor. algoritmo CalculaReembolso variáveis km, valorKm, valorPagar: real início leia km, valorKm valorPagar  km * valorKm escreva valorPagar fim program CalculaReembolso; var km, valorKm,valorPagar: real; begin writeln('CÁLCULO DO REEMBOLSO DE QUILOMETRAGEM'); writeln; write('Qual a quilometragem percorrida? '); readln(km); write('Qual o valor em R$ pago por km rodado? ');readln(valorKm); valorPagar := km * valorKm; writeln('Valor a pagar: R$ ', valorPagar:0:2); end.

3. Crie um programa que permita saber qual a quantia em reais equivalente a uma determinada quantia em dólares.algoritmo ConverteDolarReais variáveis dolares, cotacao, reais: real início leia dolares, cotacao reais  dolares * cotacao escreva reais fim program ConverteDolarReais; var dolares, cotacao, reais:real; begin writeln('CONVERTENDO DÓLARES EM REAIS'); writeln; write('Qual a quantia em US$? '); readln(dolares); write('Qual o valor da cotação do US$ em R$? '); readln(cotacao); reais := dolares *...
tracking img