Acessar o Zé Moleza
ou
O que você está pesquisando?
Banco.pas
1534 visualizações
2618 palavras
Adicionar aos favoritos
Loading...- | |
Banco.pas
Program banco; uses crt,dos; const max_ movimentacoes=5; type moviment = record tipo:char;{Tipo da movimentacao podendo ser Saque('S') ou ('D')} data:string[10];{Data da movimentacao formato:dd/mm/aaaa} valor:real;{valor da movimentacao} end; conta = record numero:integer;{n£mero da conta} nome:string[50];{Nome do cliente} cpf:string[14];{CPF do cliente no formato xxx.xxx.xxx-xx} movs:array[1..max_movimentacoes] of moviment;{Movimentacoes feitas na conta} saldo:real;{Saldo da conta} nmovimentacoes:integer;{Armazena o numero de movimenta‡oes} end; arquivo= file of conta; {**************************************************************************************} Procedure abre_arq(var arq:arquivo);{Procedimentos para abrir o arquivo} begin assign(arq,'c:banco.bin');{associacao do arquivo e depois abre o arquivo} {$I-}reset(arq);{$I+} if ioresult<>0 then rewrite(arq);{Se o arquivo nao existir este comando cria outro} end; {*****************************************************************************************} function encontre(var arq:arquivo; seg:integer; var pos:longint; var conto:conta):boolean; {Esta funcao serve para encontrar o numero da conta,esta funcao retorna true or false} {Ela necessita do arquivo a ser pesquizado,do numero da conta que voce procura} {E retorna a posi‡ao que encontra o registro, e uma variavel do tipo registro,que volta} {por parametro para ser impresso na tela} var cont:conta;achoe:boolean;{A variavel cont, serve para ler localmente o arquivo e so vai guardar em conto, quando o numero procurado for igual ao numero referente ao parametro do registro} begin achoe:=false; seek(arq,0); while not(eof(arq)) and not(achoe) do begin{Enquanto nao acabar o arquivo e a funcao for falsa} read(arq,cont); if (seg=cont.numero)then begin conto:=cont; achoe:=true; end; end; encontre:=achoe;{Se for verdade volta verdade, senao retorna falso} pos:=filepos(arq)-1;{A posicao recebe a posicao…
É esse o conteúdo que você precisa?
Faça seu login e saiba como ver o trabalho completo
Institucional
Saiba como fazer
Trabalhos Acadêmicos
O Zé Moleza facilita sua vida acadêmica ajudando você em suas pesquisas, e a economizar o seu tempo e o seu dinheiro nos seus trabalhos de faculdade. São mais de 26144 pesquisa acadêmicas entre elas, monografia, temas de monografias, TCC, modelos de monografias, trabalhos de universidades, resenha, Paper, Ensaio, Bibliografia, Trabalhos Escolares.
Dicas de como fazer: Capa de Monografia, capa de TCC, Regras da ABNT, como fazer monografia, como fazer Projeto Final, como fazer seminário, como fazer capas, referências bibliográficas, modelo de monografia.
O Zé Moleza NÃO faz a venda de monografia e É TOTALMENTE CONTRA a compra de monografia pronta e trabalhos prontos. O Zé Moleza NÃO auxilia a quem compra monografia, NÃO apóia a quem quer comprar Trabalhos Prontos, e NÃO APROVA a quem quer comprar TCC prontos, dando dicas de formatação, regras da ABNT, dando sugestões de temas para monografia, resumo de livros, projeto de pesquisa, projeto de mestrado, projeto de pós-graduação, trabalhos acadêmicos, incentivando o usuário a desenvolver por conta própria sua monografia.
