Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
DSR1

[Resolvido] Dúvida com Array

Recommended Posts

Pessoal, gostaria de saber se neste caso que eu não sei quantos cadastro de contas bancárias vai ser feita e quantos estudantes vão se cadastrar, eu posso usar duas arrays tipo assim:

contas_banc: Array [1..N] OF real;

reg_contas: Array [1..Z] OF cadastro;

o que eu faço?

Fiz o programa abaixo e não copila:

Elabore um programa que realize o cadastro de contas bancárias de estudantes com as seguintes informações:

• número da conta;

• nome do aluno/cliente;

• saldo.

Program conta_corrente;
const
N = 3;
Z = 3;
Type cadastro = Record
nome : String[60];
num_conta : integer;
saldo : real;
contas_banc: Array [1..N] OF real;

End;
Var reg_contas: Array [1..Z] OF cadastro;
i,j : integer;
Begin
clrscr;
for i:=1 to Z do
begin
WRITE(' Digite o numero da conta do ',i, ' º Estudante: ‘);
Readln(reg_contas[i].num_conta);
WRITE(' Digite o nome do ',i, ' º Estudante: ‘);
Readln(reg_contas[i].nome);
WRITE(' Digite o Saldo da conta do ',i, ' º Estudante: ‘);
Readln(reg_contas[i].saldo);
for j:= 1 to N do
Begin
WRITE(‘Digite a ', j, ' ª conta do ',i,' º Estudante: ’);
READLN(reg_contas[i].contas_banc[j]);
end;
END;
FOR i:=1 TO Z DO
BEGIN
WRITELN('Contas Bancárias .............: ');
WRITELN('N° da Conta .............: ', reg_contas[i].contas_banc[N]);
WRITELN('Nome do Cliente .........: ', reg_contas[i].contas_banc[N]);
WRITELN('Saldo ...................: ', reg_contas[i].contas_banc[N]);
end;
End.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×