Тrabalho de Programação

Trabalho de Programação

1-Ler um número e informar a metade do numero lido

algoritmo "semnome"

var

N2:Real

inicio

escreva("Digite o primeiro numero:")

Leia(N2)

N2:=N2/2

Escreva("o resultado da conta e:",N2)

Fimalgoritmo

2-Ler um número e informar a metade e o dobro do numero lido.

algoritmo "semnome"

var

N2:Real

inicio

escreva("Digite o primeiro numero:")

Leia(N2)

N2:=N2/2

Escreval("A metade do numero lido e:",N2)

N2:=N2*4

escreva ("O dobro do numero lido e:",N2)

fimalgoritmo

3-Ler dois números e informar o produto dos números lidos.

algoritmo "semnome"

var

Valor1,valor2,Produto:Real

inicio

escreva("Digite o Valor1:")

Leia(Valor1)

escreva("Digite o Valor2:")

Leia(Valor2)

Produto:=valor1*valor2

Escreva("O Produto dos valores e:",Produto)

fimalgoritmo

6-Ler um número qualquer e informar se o dobro do numero é maior ou igual a 50 ou não.

var

valor,Dobro:inteiro

inicio

escreva("forneca o valor:")

leia(valor)

Dobro:=valor*2

escreva("O resultado da conta e:",Dobro)

Se(valor>=50)entao

escreva("Maior ou igual a 50")

fimse

se(valor<50)entao

escreva("Menor que 50")

fimse

fimalgoritmo

7-Ler dois números e informar se o primeiro é maior ou menor que o segundo

var

valor1,valor2:inteiro

inicio

escreva("Dgite o valor1")

Leia(valor1)

Escreva("Digite o valor2")

Leia(valor2)

Se(valor1>Valor2)entao

escreva("Valor1 Maior que valor2")

fimse

Se(Valor2>valor1)entao

escreva("Valor1 Menor que valor2")

fimse

fimalgoritmo

8-Ler dois números e informar se o primeiro é maior, menor ou igual ao segundo

var

valor1,valor2:inteiro

inicio

escreva("Dgite o valor1")

Leia(valor1)

Escreva("Digite o valor2")

Leia(valor2)

Se(valor1>Valor2)entao

escreva("Valor1 Maior que valor2")

fimse

Se(Valor2>valor1)entao

escreva("Valor1 Menor que valor2")

fimse

Se(valor1=Valor2)entao

escreva("Valor1 igual a valor2")

fimse

fimalgoritmo

10-Em uma serie de três números digitados, informar qual é o maior entre eles. Caso exista valores iguais, escrever uma mensagem informando: "Existe valores iguais"

var

valor1,valor2,valor3:inteiro

inicio

escreva("Dgite o valor1")

Leia(valor1)

Escreva("Digite o valor2")

Leia(valor2)

Escreva("Digite o valor3")

Leia(valor3)

Se(valor1=Valor2) ou (valor1=valor3)ou(valor3=valor2)entao

escreva("existe pelo menos dois valores iguais")

fimse

Se(Valor1>valor2) e (valor1>valor3)entao

escreva("Valor1 é o maior")

fimse

Se(valor2>Valor1) e (Valor2>valor3)entao

escreva("Valor2 é o maior")

fimse

Se(valor3>Valor1) e (Valor3>valor2)entao

escreva("Valor3 é o maior")

fimse

fimalgoritmo

11-