Programa para exercício.

[glauco_bso 0]

Entao tenho que fazer o seguinte :

1. Tarefa

Você trabalha no comitê responsável pelo vestibular em uma faculdade e deve escrever um

programa que, dado o gabarito e as respostas de um dos candidatos, determina o número

de acertos daquele candidato.

2. Entrada de Dados

A entrada contém um único conjunto de testes, que deve ser lido do dispositivo de entrada

padrão (normalmente o teclado). A primeira linha da entrada contém um único inteiro N,

representando o número de questões na prova. A segunda linha da entrada contém uma

cadeia de N caracteres, indicando o gabarito da prova. A terceira linha da entrada contém

outra cadeia de N caracteres, indicando as opções marcadas pelo candidato. Ambas as

cadeias contém apenas os caracteres ‘A’, ‘B’, ‘C’, ‘D’ e ‘E’ (sempre em letra maiúscula).

3. Saída de Dados

Seu programa deve imprimir na saída padrão uma única linha contendo um único inteiro,

indicando o número de acertos do candidato.

Exemplo de Entrada

7

AEDBCCE

ADDCCBE

5

ABCDE

ABCDE

10

ABCDEABCDE

BCDEABCDEA

Exemplo de saída

4

5

10

0

(esta saída corresponde ao exemplo de entrada acima)

4. Restrições

1≤N≤80

A cadeia deverá conter somente as letras A,B,C,D,E

 

 

Eu consegui faze a grande parte mas a hora de compara letra por letra da variaveis para vver o numero de acertos nao consigo. De uma olhada ae como que tá !

 

algoritmo "semnome"

// Função :

// Autor : Glauco Brito

// Data : 8/10/2009

// Seção de Declarações

var

q,cont,a,p,i: inteiro

z,resp,gab,y: caracter

 

inicio

cont<-0

Escreva ("Digite o numero de questoes:")

Leia (q)

Escreva ("Digite o gabarito:")

leia(gab)

a<-compr(gab)

p<-1

y<-Copia(gab,p,q)

enquanto a <> q faca

limpatela

escreval ("ERRO: O numero de respostas esta incorreto")

Escreval ("Digite ás",q," questoes solicitadas:")

leia(gab)

a<-compr(gab)

p<-1

y<-Copia(gab,p,q)

fimenquanto

Escreva ("Digite a resposta:")

leia(resp)

a<- compr(resp)

p<-1

z<- copia(resp,p,q)

enquanto a <> q faca

limpatela

escreval ("ERRO: O numero de respostas esta incorreto")

Escreval ("Digite novamente a resposta:")

leia(resp)

a<- compr(resp)

p<-1

z<- copia(resp,p,q)

fimenquanto

para i de 1 ate q faca

se gab=resp entao

cont<- cont+1

senao

se gab<>resp entao

cont<- cont+0

fimse

fimse

fimpara

escreva( "acertos foi",cont)

 

fimalgoritmo

[Claudio Neto 3]

Olá Glauco, seja bem vindo ao fórum.

 

Procure utilizar títulos relativos com sua dúvida em seus tópicos.

Leia nossas regras para se familiarizar com o fórum.

 

Algumas perguntas quanto ao seu tópico.

 

1. O que deseja conseguir no fórum? Ninguém irá fazer seu trabalho para você.

2. Porque postou em VB? Tem que construir o programa nessa linguagem?

3. Tem alguma coisa de seu código (fora a lógica) pronta que pode postar?