Algoritmo de Prova

[Tigger 0]

Fala galera!!

 

Segue minha contribuicao para o Forum.

um algoritmo de prova...onde e informado ao usuario se ele acertou ou nao.

 

...bem simpleszinho, mais foi eu que fiz.

PHP

[*]

[*]algoritmo "prova"

[*]// Função : CODIGO DE PROVA

[*]// Autor : ProgramadorASP

[*]// Data : 15/06/2005

[*]// Seção de Declarações

[*]var

[*]I,RESPOSTA1, RESPOSTA2: INTEIRO

[*]RESPOSTAS: VETOR[1..2] DE INTEIRO

[*]DADOS: VETOR[1..2] DE INTEIRO

[*]

[*]inicio

[*]ESCREVAl("Informe a pergunta certa?")

[*]ESCREVAL(" ----------------------- ")

[*]ESCREVAL("Para cada alternativa segue os numeros para resposta")

[*]ESCREVAL(" ----------------------- ")

[*] ESCREVAL("a) Resposta1 ( Digite o numero 1 ) ")

[*] ESCREVAL(" B)  Resposta2 ( Digite o numero 2 ) ")

[*]PARA I DE 1 ATE 2 FACA

[*]  LEIA(RESPOSTAS)

[*]  DADOS <- RESPOSTAS

[*]FIMPARA

[*]

[*]SE ( ( DADOS[1] <> 1 ) E ( DADOS[2] <> 2 ) ) ENTAO

[*] ESCREVAL(" ---------------------- ")

[*]  ESCREVAL("O SISTEMA ESTÁ PROCESSANDO OS DADOS...")

[*]  ESCREVAL(" ---------------------- ")

[*]  PARA I DE 1 ATE 200 FACA

[*] ESCREVA("")

[*]  FIMPARA

[*]  ESCREVAL("RESULTADO DO TESTE..")

[*]  ESCREVAL("você errou todas as questoes")

[*]SENAO

[*]SE ( ( DADOS[1] <> 1 ) OU ( DADOS[2] <> 2 ) ) ENTAO

[*] ESCREVAL(" ---------------------- ")

[*]  ESCREVAL("O SISTEMA ESTÁ PROCESSANDO OS DADOS...")

[*]  ESCREVAL(" ---------------------- ")

[*]  PARA I DE 1 ATE 999999999999999999 FACA

[*] ESCREVA("")

[*]  FIMPARA

[*]  ESCREVAL("RESULTADO DO TESTE..")

[*]  ESCREVAL("você errou todas as questoes")

[*]FIMSE

[*]FIMSE

[*]

[*]

[*]

[*]SE ( ( DADOS[1] = 1 ) E ( DADOS[2] = 2 ) ) ENTAO

[*]  ESCREVAL(" ---------------------- ")

[*]  ESCREVAL("O SISTEMA ESTÁ PROCESSANDO OS DADOS...")

[*]  ESCREVAL(" ---------------------- ")

[*]  PARA I DE 1 ATE 200 FACA

[*] ESCREVA("")

[*]  FIMPARA

[*]  ESCREVAL("RESULTADO DO TESTE..")

[*]  ESCREVAL("Voce acertou as questoes do teste")

[*]  ESCREVAL("NOTA = 10")

[*]SENAO

[*]  SE ( ( DADOS[1] = 1 ) E ( DADOS[2] <> 2 ) ) ENTAO

[*] ESCREVAL(" ---------------------- ")

[*] ESCREVAL("O SISTEMA ESTÁ PROCESSANDO OS DADOS...")

[*] ESCREVAL(" ---------------------- ")

[*] PARA I DE 1 ATE 2000 FACA

[*]  ESCREVA("")

[*] FIMPARA

[*] ESCREVAL("RESULTADO DO TESTE..")

[*] ESCREVAL("você ACERTOU APENAS UMA QUESTAO")

[*] ESCREVAL("NOTA = 5")

[*]

[*] SE ( ( DADOS[1] <> 1 ) E ( DADOS[2] = 2 ) ) ENTAO

[*]  ESCREVAL(" ---------------------- ")

[*]  ESCREVAL("O SISTEMA ESTÁ PROCESSANDO OS DADOS...")

[*]  ESCREVAL(" ---------------------- ")

[*]  PARA I DE 1 ATE 2000 FACA

[*] ESCREVA("")

[*]  FIMPARA

[*]  ESCREVAL("RESULTADO DO TESTE..")

[*]  ESCREVAL("você ACERTOU APENAS UMA QUESTA")

[*]  ESCREVAL("NOTA = 5")

[*] FIMSE

[*]  FIMSE

[*]FIMSE

[*]

[*]fimalgoritmo

[*]

[Mário Monteiro 179]

Obrigado pela contribuição tigger

[Giovani 104]

Mandou super bem Tigger http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

Muito sucesso para você!