Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Bruno l s Melo

Algoritmos (visualg)

Recommended Posts

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


Compartilhar este post


Link para o post
Compartilhar em outros sites
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

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.