Nenhuma resposta neste tópico

[quelzinha]

Oi pessoal estou com uma duvida sera que alguem pode me ajudar fazendo favor?

Eu to tentando fazer um programa para criar os arquivos a seguir:

Clientes
Cod_Cli
Nome
Endereco
Fone

Recebimentos
Num_doc
Valor_doc
Data_Emissao
Data_Vencimento
Cod_ Cli


Ai tenho que fazer um programa para cadastrar os clientes no arquivo que vou criar

To fazendo assim, olhem por favor se ta certo

PROGRAM cadastro ;
USES CRT; {biblioteca}
TYPE cliente= RECORD { tipo registro}
cod_cli: INTEGER;{inteiro}
nome : STRING[20];{ caracter}
ende: integer; {inteiro}
fone: integer;
END;
classe = FILE OF cliente; {file of é arquivo de}
VAR cliente: classe;
A: cliente;
BEGIN
CLRSCR;{Limpa a tela}
ASSIGN(Cliente, 'C:\Cliente.DAT');{ variavelArquivo , nomeArquivo }
REWRITE(Cliente ); {arquivo do tipo texto }
CLOSE(Cliente);{Fecha um arquivo}
WRITELN('Arquivo de Clientescriado com sucesso!!!'); {quebra de linha}
READLN; {quebra de linha após a leitura }
END.


Obrigada