Algoritmos

Redes de Computadores 1º Periodo

Andrey de Sousa Gomes RA: 7297605309

Algoritmos

Algoritmo_troca_numero

declare aux,A,B:real

escreva ("Digite o primeiro numero: ")

leia (A)

escreva ("Digite o segundo numero: ")

leia (B)

aux<-A

A<-B

B<-aux

escreva ("O valor do primeiro numero agora e: ",A , " O valor do segundo numero agora e: ",B)

fimalgoritmo

Algoritmo_venda_produto

declare custo,venda,acres:real

escreva ("Digite o preco de custo do produto: ")

leia (custo)

escreva ("Digite a porcentagem de acrescimo para venda do produto: ")

leia (acres)

venda<-(custo+custo*(acres/100))

escreva ("O valor de venda e: ", venda)

fimalgoritmo

Algoritmo_num_maior_10

n1:real

escreva ("Digite um numero: ")

leia (n1)

se (n1>10) entao

escreva ("Numero maior que 10.")

fimse

fimalgoritmo

Algoritmo_100_200

declare num:real

escreva ("Digite um numero: ")

leia (num)

se (num>=100) e (num<=200) entao

escreva ("Numero entre 100 e 200.")

fimse

fimalgoritmo

Algoritmo_aluno

declare nome:caracter

declare n1,n2,n3,media:real

escreva ("Digite o nome do aluno: ")

leia (nome)

escreva ("Digite as 3 notas: ")

leia (n1,n2,n3)

media<-((n1+n2+n3)/3)

se (media>=7) entao

escreva (nome, " Aprovado.")

fimse