mallu cunha

Boa tarde pessoal

Eu estou com dúvidas sobre esse exercício, gostaria de saber onde estou errando nesse algoritmo:

Um curso deseja saber se existem alunos cursando simultaneamente as disciplinas de “POO” e “Lógica 2”. Deverá ser informado quantos alunos cursam “POO”, lendo a seguir seus nomes e o número de suas matrículas e quantos alunos cursam “Lógica 2”, lendo a seguir seus nomes e suas matrículas. Usando conceito de vetores e registros, faça um algoritmo que mostre o nome e número de matrícula dos alunos que estão cursando simultaneamente estas duas disciplinas.

Inicio
DISC:vetor[2]ficha
tipo:FICHA:registro
NOME:literal
NMATRICULA:numérico
fim-registro

QDPOO,QDLOG2,i:numérico
i{variável para laço de repetição}
i←0

escreva “ Digite a quantidade de alunos matriculados na disciplina POO”
leia QDPOO
enquanto (i < = QDPOO) faça
escreva “ Digite o nome do aluno”
leia DISC[1].NOME
escreva “digite o numero de matricula do aluno”
leia DISC[1].NMATRICULA
i← i + 1
fim-enquanto

escreva “digite a quantidade de alunos matriculados na disciplina Logica2”
leia QADLOG2
enquanto (i < = QDLOG2) faça
escreva “digite o nome do aluno”
leia DISC[2].NOME
escreva “digite o numero de matricula do aluno”
leia DISC[2].NMATRICULA
Para i de 1 até QDPOO passo 1 faça
Para j de 1 até QDLOG2 passo 1 faça
se DISC[i].NMATRICULA = DISC[j].NMATRICULA então
escreva “o aluno:”, DISC[i].NOME, “está matriculado nas duas disciplinas”
fim-se
fim-para
fim-para

fim


eu já achei uma solução aqui, eu na verdade tive que corrigir algumas falhas pois testei usando o VisuAlg...

Boa tarde pessoal,
Eu tenho dúvidas sobre um erro que ocorre no meu algoritmo de cardápio, eu fiz esse algoritmo enquanto estudava tratamento de arquivos, na verdade era um algoritmo que eu já havia feito há semanas, mas usei para exercitar tratamento de arquivos...Acho que eu não peguei legal vetores e estutura de repetição, contatores. Enfim, vou postar meu algoritmo e gostaria que alguém pudesse me mostrar onde estou errando, inclusive eu já compilei esse algoritmo mas na hora de imprimir no arquivo, o arquivo sempre repete as mesmas opções do cardápio para cada cliente.
ahhh... eu já ia me esquecendo, usei o Pzim ou pascalzim.

Program Cardapio ;var cliente:array[1..6] of string; opcao:real; i:integer; arq:text; Begin  i:=1;  for i:=1 to 6 do  Begin    writeln('Cardápio');    writeln;    writeln;    writeln('1- Big Super Burger');    writeln('2- Burger Normal');    writeln('3- Misto Simples');    writeln;    writeln('Digite o nome do cliente');    read(cliente[i]);    writeln('Digite a opção escolhida');    read(opcao);    writeln('cliente');         if opcao = 1 then    Begin      writeln('Big super burger');      writeln('com 2 hamburgeres, queijo, batata frita e refrigerante');      writeln('R$ 5,00');    End    else if opcao = 2 then     Begin      writeln('Burger normal');      writeln('1 hamburger, batata frita e refrigerante');      writeln('R$ 3,00');     End    else if opcao = 3 then     Begin 	   writeln('Misto simples');	   writeln('1 misto quente e um refrigerante');	   writeln('R$ 1,50');	   	End;               	            End;          assign(arq,'D:\pascal\arquivos\pedido.txt');     rewrite(arq);    for i:= 1 to 6 do    Begin     writeln(arq,cliente[i]);     if opcao = 1 then    Begin      writeln(arq,'Big super burger');      writeln(arq,'com 2 hamburgeres, queijo, batata frita e refrigerante');      writeln(arq,'R$ 5,00');    End    else if opcao = 2 then     Begin      writeln(arq,'Burger normal');      writeln(arq,'1 hamburger, batata frita e refrigerante');      writeln(arq,'R$ 3,00');     End    else if opcao = 3 then     Begin 	   writeln(arq,'Misto simples');	   writeln(arq,'1 misto quente e um refrigerante');	   writeln(arq,'R$ 1,50');	   	End;                       End;   close(arq);   clrscr;   readkey;  End.

Eu gostaria de dizer que depois que eu fiquei aqui a tarde toda tentando achar o problema, encontrei finalmente o erro, eu devia ter criado um vetor para a variável opcao também, eu tinha criado vetor só para a variavel cliente. Apesar de ninguém aqui ter me ajudado, eu agradeço mesmo assim e agradeço especialmente àquelas pessoas que pensaram que eu queria que alguém refizesse o meu trabalho. Não! Eu não queria que refizessem meu trabalho, eu queria apenas que alguém me mostrasse onde eu estava errando. E eu descobri que era algo simples. Muito obrigada mesmo.