Visualg, problema com algoritmo.

[kenji zeno]

Olá, sou novo aqui e preciso de ajuda com um algoritmo para visualg, o exercício é o seguinte:

"

[PSyKoKiLLeR]

1 - os comandos "então" você colocou como "então" com '~' e não pode ser assim, deve ser sem acentos.

2 - No final você coloca a média somente de um aluno.

3 - O nome do aluno você coloca tudo em uma string sem tamanho determinado.

Coloque o nome como:

NOME : vetor [0..11] de caractere

Assim fica alocado 11 letras para o nome, se for pelo o que você colocou no programa para somar as strings ficaria assim:

resultado <- resultado + NOME

e lá no final você coloca assim:

escreva ("Aluno 1 - Nome: ", resultado[1..11], MEDIAAP, CLASSE)

escreva ("Aluno 2 - Nome: ",resultado[12..22], MEDIAAF, CLASSE)

cara eu ia fazer um exemplo pra você, mas mexi pouco com VisuAlg, e outra que ele não suporte muitas coisas, se quiser usar o código meu que ainda está incompleto segue:

algoritmo "Calcular media"

// Função :

// Autor :

// Data : 11/06/2011

// Seção de Declarações

var

Num_Alu : inteiro

N1, N2 : real

Nome : vetor [1..10] de caractere

N_M : vetor [0..10] de inteiro

Esc, Clas, Prof : caractere

MAT : vetor [0..10] de caractere

procedimento MENU

inicio

limpatela

escreval ("Programa para calculo de Media de Notas")

escreval

escreval ("Insira as informações a baixo;")

escreval

escreva ("Escola: ")

leia (Esc)

escreval

escreva ("Classe: ")

leia (Clas)

escreval

escreva ("Nome do Professor: ")

leia (Prof)

escreval

escreva ("Quantidade de Alunos para serem avaliados: ")

leia (Num_Alu)

escreval

escreval

ENTER

fimprocedimento

procedimento MATERIA

var

CONT,FLUX : inteiro

inicio

limpatela

MAT[1] := "PORTUGUÊS"

MAT[2] := "MATEMÁTICA"

MAT[3] := "GEOGRAFIA"

MAT[4] := "BIOLOGIA"

MAT[5] := "QUÍMICA"

MAT[6] := "FÍSICA"

MAT[7] := "ARTES"

MAT[8] := "INGLÊS"

MAT[9] := "FILOSOFIA"

MAT[10] := "E. FÍSICA"

MAT[0] := "TODAS"

escreval ("Escolhas as materias para avaliação: ")

escreval (" 0 - ", MAT[0])

escreval (" 1 - ", MAT[1])

escreval (" 2 - ", MAT[2])

escreval (" 3 - ", MAT[3])

escreval (" 4 - ", MAT[4])

escreval (" 5 - ", MAT[5])

escreval (" 6 - ", MAT[6])

escreval (" 7 - ", MAT[7])

escreval (" 8 - ", MAT[8])

escreval (" 9 - ", MAT[9])

escreval ("10 - ", MAT[10])

escreval

escreval

escreva ("Informe os números das matérias desejadas: ")

//enquanto FLUX <> 0 ou FLUX <> 11

repita

escreva ("N.: ")

leia (FLUX)

se FLUX = 0 ou FLUX = 11 então

interrompa

senao

N_M[1] -> FLUX

CONT <- CONT +1

ate CONT = 10

//,N_M[1],N_M[2],N_M[3],N_M[4],N_M[5],N_M[6],N_M[7],N_M[8],N_M[9],N_M[10])

escreval

escreval

escreval

ENTER

fimprocedimento

procedimento ENTER

var

Enter : caractere

inicio

escreva ("Pressione uma tecla para proseguir...")

leia (Enter)

fimprocedimento

procedimento NOTA

inicio

para Num_Alu ate 10 faca

escreval ("Aluno número 1")

escreva ("Nome: ")

//leia (Nome[1..10])

fimpara

fimprocedimento

inicio

MATERIA

ENTER

fimalgoritmo