Pascal Registro

[DSR 0]

Pessoal estou com duvida no seguinte programa:

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

Por exemplo se o programa pedisse para elaborar o cadastro de dez contas bancarias seria assim: banco: array [1..10] of integer; como o programa pede cadastro de contas bancarias de estudantes, e não sei qual é o numero de estudante que vai cadastras as contas e nem a quantidade de contas que eles vão cadastrar como é que faço?, fiz assim mas acho que esta errado!

 

Código:

Program cadastro_contas;

uses crt;

type

t_contas = Record

num_conta : integer;

nome_aluno : string [60];

saldo : real;

banco: array [1..10] of integer;

End;

Var

reg_conta : t_contas

 

i ; Integer

 

Begin

clrscr;

 

write ('Digite o n°da conta: ');

readln (reg_conta.num_ conta);

 

write ('digite o nome do aluno: ');

readln(reg_conta. nome-aluno) ;

 

write('Digite seu saldo: ');

readln(reg_conta. saldo);

 

for i := to 10 do

 

Begin

 

write ('Digite a ',i' conta do aluno: ');

readln(reg_conta. banco) ;

End;

writeln ('*** Os dados do aluno são:***');

writeln

writeln ('conta..... ......... ......:', reg_conta. num_conta) ;

writeln ('Nome...... ......... ......:', reg_conta. nome-aluno) ;

writeln ('Saldo..... ......... ......:'; reg_conta. saldo);

End.

[quitZAUMMM 18]

Você vai ter q criar um array de t_contas;

Ou você cria um array "grande" ou algo do tipo:

Escreva("Qnts alunos ira cadastrar: ?");
Leia (qnt);
reg_conta: array [1..qnt] of t_contas;

[]s

[DSR 0]

Você vai ter q criar um array de t_contas;

Ou você cria um array "grande" ou algo do tipo:

Escreva("Qnts alunos ira cadastrar: ?");
Leia (qnt);
reg_conta: array [1..qnt] of t_contas;

[]s

 

Cará muito Obrigado, valeupela ajuda!

 

Será que você pode me ajudar neste também ?

 

Como eu faço para cadastrar os 8 funcionarios e os 15 cursos, fiz assim, mas não sei como iniciar o cadastro dos funcionarios?

 

Uma escola solicitou que você fizesse um programa para cadastrar seus 8 funcionários (professores) e os cursos ministrados (15 cursos). Na reunião de desenvolvimento foi dito que no arquivo de cadastro (registro) deveria conter os códigos dos funcionários (professores), os nomes dos professores, os nomes das disciplinas que o professor trabalha e a carga horária. Após a digitação dos dados o cliente deseja que, ao digitar um nome de professor, sejam informadas as disciplinas que ele trabalha e sua carga horária.

 

Program cadastro;
uses wincrt;

type 

t_professor = record

codigo : integer;
nome : string [60];
carga_horária [80];
funcionarios:array [1..8] of integer;
cursos:array [1..15]of string;

end;

var cod_prof: t_professor;

i           : integer;

Begin

clrscr;
write ('Digite o código do Professor:');
readl(cod_prof.codigo);

write ('Digite o nome do professor:');
readln(cod_prof.nome);

write ('Digite a disciplina do Professor:');
read  (cod_prof.disciplina);

write ('Digite a carga horária do Professor:');
read  (cod_prof.carga_horaria);

for i:=1 to 15 do

Begin

[quitZAUMMM 18]

Pelo que eu entendi você vai ter q criar 2 registros.

Um para cadastrar as disciplinas e um para cadastrar os funcionarios(professores);

 

Depois disso temos que ver como faremos a linkagem de um no outro.

 

[]s