Exercício algoritmo básico e programação

Exercício Algoritmo Básico e Programação

1.Faça um algoritmo que receba dois números e mostre maior.

Algoritmo"Maior"

var n1,n2:real inicio escreva("Digite o primeiro número")

leia(n1)

escreva("Digite o segundo número")

leia(n2)

Se(n1>n2)Entao

escreva("O primeiro número é maior que o segundo")

Senao

escreva("Osegundo número é maior que o primeiro")

fim_se fim_algoritmo 2.Desenvolva um algoritmo que solicite a digitação do sexo.
Exiba uma mensagem dizendo feminino se o sexo for Igual F,
Masculino se for igual a M, caso contrario imprima a mensagem opção inválida.

Algoritma"Sexo"

var sexo,f,m:caracter inicio escreva("Digite o sexo")

leia(sexo)

Se(sexo=f)Entao

escreva("Feminino")

Senao

Se(sexo=m)Entao

escreva("Masculino")

Senao

escreva("Opção invalida")

fim_se fim_se fim_algoritmo

3.Desenvolva um algoritmo que receba um número e diga se esse e positivo, negativo ou neutro.

Algoritmo"Número"

var num:real inicio escreva("Digite um número")

leia(num)

Se(num>0)Entao

escreva("Positivo")

Senao

Se(num=0)Entao

escreva("Neutro")

Senao

escreva("Negativo")

fim_se fim_se fim_algoritmo

4.Desenvolva um programa que leia Nome, Disciplina e quatro notas de um aluno. Calcule a media, se a media for menor que 5 imprima a mensagem reprovado senão verifique se média e menor que 7 imprima mensagem aluno está de Final caso contrario o aluno está aprovado.

Algoritmo"Nome"

var nome,disc:caracter nt1,nt2,nt3,nt4,med:real

inicio escreva("Digite o nome do aluno")

leia(nome)

escreva("Digite a disciplina")

leia(disc)

escreva("Digite a primeira nota")

leia(nt1)

escreva("Digite a segunda nota")

leia(nt2)

escreva("Digite a terceira nota")

leia(n3)

escreva("Digite a quarta nota")

leia(nt4)

med:=(nt1+nt2+nt3+nt4)/4