Ajuda com Exercicio

[Prestes]

Boa tarde pessoal, fiz um trabalho conforme o enuciado abaixo, e o professor disse que está incorreto o programa. Peço ajuda para verificar o que está incorreto.

=> Fazer um algoritmo que calcule as raízes de uma equação do segundo grau levando em consideração a análise do discriminante, isto é, a existência de raízes reais, imaginárias ou iguais.

Meu código.

-------------------------------------------------------------------

variaveis
        numerico a,b,c,delta,x1,x2
inicio
      limpar
      escrever "Coloque o valor de A."
      ler a 

      escrever " Coloque o valor de B."
      ler b 

      escrever "Coloque o valor de C."
      ler c 

      delta := (b^2) -4*a*c
      se delta > 0 então
             x1:=((- + Raiz(delta,delta)) / ( 2*a)
             x2:= ((- -  Raiz(delta,delta)) / ( 2*a)
             escrever "A equação apresanta duas raizes reais e diferentes!"
             escrever "As raizes são : X1 = (", x1,")  X2  = (",x2 ,")"
       senao
             se delta = 0  então
                   x1:= ((- +  Raiz(delta,delta)) / ( 2*a)
                   x2:= ((- -  Raiz(delta,delta)) / ( 2*a)
                   escrever "A equação apresanta duas raizes reais e iguais!"
                   escrever "As raizes são : X1 = (", x1,")  X2  = (",x2,  ")"
              fim_se
              se delta < 0 então
                   escrever "A equação apresanta duas raizes imaginárias!"
              fim_se
      fim_se
fim

-----------------------------------------------------------------------

[Henrique Werneck]

Prestes, fiz este algoritmo e agora preciso colocar uma repetição e que finalize digitando s e continue digitando c. Favor me orientar.

Obrigado

Fiz este algoritmo abaixo e preciso colocar o comando de repetição repita e colocar uma opção para o usuário digitar s para sair e c para continuar.Obrigado

algoritmo "Aluno"

// Função : Pedir ao usuário digitar nomes de alunos e suas idades e

// mostrar a quantidade de pessoas, o total das idades e a

// média das idades.

// Autor : Henrique

// Data : 2/5/2012

// Seção de Declarações

var

idade,i:inteiro

anodenascimento,anoatual:inteiro

media:real

inicio

// Seção de Comandos

escreval ("Digite o ano de nascimento do usuário:")

leia (anodenascimento)

escreval ("Digite o ano atual:")

leia (anoatual)

idade:=anoatual-anodenascimento

escreval ("Ele tem", idade, " anos")

se idade>=18 então

escreva("Ele é maior de idade")

senao

escreva ("Ele é menor de idade")

fimse

fimalgoritmo

[rubempaixao]

Henrique Werneck

Brother tem um erro no seu código, não sei se em portugol aceita, mas em visulag não aceita. O comando Se..Então não pode ser acentuado, ou seja, ficaria assim Se...então só pra constar.

Já o seu exercício se o que eu entendi está certo é muito simples de resolver, é só colocar o comando repita e criar uma variável para testar a continuação

Exemplo:

repita

...

//coloca o código que você quer que repita

...

//depois faz uma pergunta para saber se o usuário quer continuar com o teste

...

escreva ("Deseja continuar com o teste? ")

leia (teste)

...

//depois faz a condição

ate (teste <> "C")

Espero ter ajudado.