Algoritmos (visualg)

[Bruno l s Melo 1]

por favor me ajude nao estou conseguindo fazer e e a reta final por favor :upset:

Atividades para o Trabalho Final

1) Dado o pseudocódigo abaixo substitua pelos comandos lógicos onde

houver “???”:

algoritmo "Exercício1"

// Função : ???

var

nome : literal

horas, depen : ???

vh, vd,???, inss, ir, salario_liq: real

inicio

escreval("FICHA DO FUNCIONÁRIO")

????

leia(nome)

escreva("Digite o números de horas trabalhadas.:")

leia(horas)

escreva("Digite a Qtde de dependentes..........:")

???

vh <- horas*20.00

vd <- depen*40.00

sal_bruto <- vh+vd

inss <- (sal_bruto *8.5)/100

ir <- (sal_bruto*0.5)/100

salario_liq <- sal_bruto - inss - ir

escreval("Funcionário .:",???)

escreval("Salário bruto.:",sal_bruto)

????

escreval("Desconto IR .:",ir)

escreval("Slario liquido.:",salario_liq)

???

2) Nomeie o algoritmo ao que realmente ele faz a sua função e corrija os erros

que estão ocultos no mesmo:

algoritmo "Exercício_2"

// Função : ????

// Autor : ????

var i,num_inicial, num_final, numpares, num_impares: literal

inicio

num_paes<-0

num_impares<-1

i -> num_inicial

2

escreva ("Digite o número inicial ")

leia(numinicial)

escreva ("Digite o número final que seja maior que o numero inicial ")

??? (i <= num_final) faca

se (i mod 2 0) ENTAO

num_pares<-num_pares+1

num_impares>-num_impares,1

fimse

i<-i+???

escreva("Qtde de números pares = "(num_pares-1)

escreval("Qtde de números impares = ",num_impares)

Fimalgoritmo

3) Coloque os devidos comentários onde se encontram os sinais de “???”

//Proposta do Algoritmo: ????

algoritmo "Exercício_3"

// Função : ???

// Autor :

Var

A:vetor [1..15] de inteiro // ???

i, j, aux :inteiro // ???

Inicio

A[1] <-9

A[2] <-3

A[3] <-6

A[4] <-21

A[5] <-50

A[6] <-45

A[7] <-36

A[8] <-2

A[9] <-8

A[10] <-7

A[11] <-9

A[12] <-42

A[13] <-32

A[14] <-18 //???

3

Para i de 1 ate 15 faca //???

escreval("O valor Original de A[",i,"] =",A) //???

fimpara

Para j de 1 ate 14 faca //???

Para i de 1 ate 14 faca

Se A < A[i+1] entao

Aux <-A

A <- A[i+1] //???

A[i+1]<- aux //???

fimse

fimpara

fimpara

escreval()

escreval()

Para i de 1 ate 15 faca // ???

escreval("O valor atualizado de A[",i,"] =",A)// ???

Fimpara // ???

Fimalgoritmo

4) Dado o pseudocódigo abaixo (exemplo da página 83 da apostila)

Implemente e complemente-o com:

“Digite c para Continuar ou s para Sair” dica: a solução proposta está no

laço de repetição repita...ate ou de sua preferência.

algoritmo "Uso do Procedimento"

var //variaveis globais

a,b,c,d :inteiro

procedimento Troca (var x, y :inteiro)

var //variaveis do procedimento

aux :inteiro

Inicio //comandos do procedimento

aux <- x

x <- y

y <- aux

fimprocedimento

inicio

4

// Seção de Comandos Globais

leia (a,b,c,d)

enquanto nao ((a<=b) e (b<=c) e (c<=d)) faca

se (d<c) entao

Troca (d,c)

fimse

se c<b entao

Troca (c,b)

fimse

se b<a entao

Troca (a,b)

fimse

fimenquanto

escreval (a, " ",b," ",c," ",d," ")

Fimalgoritmo

[SergioCavalcante 0]

var

nome : literal

horas, depen : inteiro

vh, vd,sal_bruto, inss, ir, salario_liq: real

inicio

Escreval("FICHA DO FUNCIONÁRIO")

Escreval("")

Escreval("_____________________________________")

Escreval("")

Escreval("INFORME O NOME DO FUNCIONARIO")

leia(nome)

Escreval("Digite o números de horas trabalhadas.:")

leia(horas)

Escreval("Digite a Qtde de dependentes.:")

leia(depen)

vh <- horas*20.00

vd <- depen*40.00

sal_bruto <- vh+vd

inss <- (sal_bruto *8.5)/100

ir <- (sal_bruto*0.5)/100

salario_liq <- sal_bruto - inss - ir

Escreval("Funcionário .:",nome)

Escreval("Salário bruto.:",sal_bruto)

Escreval("Desconto IR .:",ir)

Escreval("Salario liquido.:",salario_liq)

fimalgoritmo

var

i,num_inicial, num_final, num_pares, num_impares:inteiro

inicio

num_pares <-0

num_impares<-0

Escreva ("Digite o número inicial: ")

leia(num_inicial)

Escreva ("Digite o número final que seja maior que o numero inicial ")

leia(num_final)

enquanto (num_final >= num_inicial) faca

se( num_inicial mod 2=0)entao

num_pares<-num_pares+1

senao

num_impares <-num_impares+1

fimse

num_inicial <- num_inicial +1

fimenquanto

Escreval("Qtde de números pares = ",num_pares)

Escreval("Qtde de números impares = ",num_impares)

Fimalgoritmo

var

i,j,aux:inteiro

A:vetor[1..15]de inteiro

inicio

Para i de 1 ate 15 faca

escreval("O valor Original de A : ",i,"º posicão")

leia(A)

fimpara

Para j de 1 ate 14 faca

Para i de 1 ate 14 faca

Se A < A[i+1] entao

Aux <-A

A <- A[i+1]

A[i+1]<- aux

fimse

fimpara

fimpara

escreval()

escreval()

Para i de 1 ate 15 faca

escreval("O valor atualizado de A[",i,"] =",A)

Fimpara

Fimalgoritmo

NÃO ADIANTA COPIAR E COLAR SE NÃO ENTENDER O CÓDIGO.....OS COMENTARIOS FICA POR SUA CONTA