rednemesis
Power Member
boas pessoal
tenho um trabalho para entregar urgentemente e ha uma parte do trabalho que me está a dar chatiçes por favor é urgente que alguem ajude
o problema é o seguinte
______________________________________________________________________________
(isto é um procedimento nao percebo o que é que está a falhar)
cumps
hurry please
tenho um trabalho para entregar urgentemente e ha uma parte do trabalho que me está a dar chatiçes por favor é urgente que alguem ajude
o problema é o seguinte
Código:
{Procedure}
type membroo = record
nome:string;
idd:integer;
ddn:string[8];
loc:string;
mor:string;
bi:longint;
end;
var fich: file of membroo;
key:char;
begin
assign(fich,'c:\membros.dat');
rewrite(fich);
key:='s';
repeat
writeln('introduza o nome do membro');
read(fich.nome); {<--- aqui diz "invalid qualifier"}
writeln('inroduza a idade do membro');
read(fich.idd);
writeln('introduza a data de nascimento do membro');
read(fich.ddn);
writeln('introduza a Localidade do membro');
read(fich.loc);
writeln('introduza a Morada do membro');
read(fich.mor);
writeln('introduza o numero de BI do membro');
read(fich.bi);
writeln('quer introduzir mais algum registo?')
read(key);
until(upcase(key))='n'
______________________________________________________________________________
(isto é um procedimento nao percebo o que é que está a falhar)
cumps
hurry please
Última edição pelo moderador: