Exercício algoritmo "consumo"

2 DESENVOLVIMENTO

2.1 Exercício 1

algoritmo "consumo"

// Função : calcula o consumo médio de combustível

// Data : 25/5/2011

// Seção de Declarações

var

DIST, VOL, CM: real

inicio

// Seção de Comandos

escreval("Algoritmo para calcular o consumo")

escreval("Distância total percorrida (km):")

leia(DIST)

escreval("Volume de combustível gasto (L):")

leia(VOL)

CM <- DIST/VOL

escreval("Consumo médio= ", CM, "km/l")

fimalgoritmo

2.2 Exercício 2

algoritmo "inss"

// Função : Calcula o percentual de desconto de um salário junto ao INSS

// Data : 24/5/2011

// Exercício 2

// Seção de Declarações

var

FUNC : caracter

SAL_BR, DESC : real

inicio

// Seção de Comandos

escreval("Cálculo de desconto INSS - Entrada de dados")

escreva("Nome do funcionário: ")

leia(FUNC)

escreva("Salário bruto: ")

leia(SAL_BR)

// calcula o valor do desconto

se (SAL_BR > 1000) entao

DESC <- (SAL_BR * 0.11)

senao

DESC <- (SAL_BR * 0.09)

fimse

// limpa a tela e exibe os dados calculados

limpatela

escreval("Cálculo de desconto INSS")

escreval("Nome do funcionário: ", FUNC)

escreval("Salário Bruto .... : R$ ", SAL_BR:8:2)

escreval("Salário Líquido .. : R$ ", (SAL_BR - DESC):8:2)

// escreval("Desconto INSS .....: R$ ", DESC:8:2)

fimalgoritmo

2.3 Exercício 3

algoritmo "Desconto Compra"

// Função : calcula o desconto ao cliente pelo do valor total da compra

// Data : 25/5/2011

// Seção de Declarações

var

valor_total, valor_desc : real

cliente : caracter

inicio

// Seção de Comandos

escreval ("Nome do Cliente:")

leia (cliente)

escreval ("Valor total da compra:")

leia (valor_total)

se valor_total < 1000 entao

(valor_desc 1000) e (valor_total < 5000) entao

valor_desc <- (valor_total *10)/100

senao

valor_desc <- (valor_total*15)/100

fimse

escreval ("Cliente: ", cliente)

escreval ("Valor do desconto: R$ ", valor_desc:8:2)

fimalgoritmo

2.4 Exercício 4

algoritmo "Calculando Média de 5 Notas"

// Função : Cálculo da média de alunos por turma

// Data : 25/5/2011

// Seção de Declarações

var

nota : vetor [1..450] de real

i, abaixo_media, n_alunos : inteiro

soma_notas, media : real

// Seção de Comandos

inicio

media <- 0 //armazena a media

soma_notas <- 0 //armazena a soma das notas

abaixo_media <- 0 // contador para os alunos abaixo da media

n_alunos <- 0 //inicializando tudo como 0. "na" vai armazenar o numero de alunos

escreval ("Informe o numéro de alunos da turma")

leia (n_alunos)

para i <- 1 ate n_alunos faca

escreval ("Insira a nota do ", i, "º aluno")

leia (nota[i])

soma_notas <- soma_notas + nota[i]

fimpara

media <-