Jump to content


quelzinha

Member Since 21/11/2005
Offline Last Active 06/12/2005, 13:53
-----

Topics I've Started

Duvida Registro

01/12/2005, 12:01

oi pessoal ,estou com uma duvida,sera que alguem pode me ajudar?
É o seguinte:

Escreva um programa que armazene um cadastro de 50 pessoas com os seguintes dados: nome, telefone e data de nascimento (dia, mês, ano) e realize consultas da seguinte forma:

Leia o número de um determinado mês (1 a 12). Obs: a leitura do mês 0 encerra as consul-tas.
Exiba o nome, o telefone e o dia do aniversário das pessoas daquele respectivo mês.


eu to fazendo assim,mas ta surgindo muitas duvidas,to desesperada tenho prova hoje por isso peço a ajuda de vcs

Program cadastro;
Uses Crt;
Type Registro:= Record { Tipo registro que é seguida por uma serie de declaracao de campos}
nome: string[30]; { tipo caracter}
fone: integer;
datanasc: integer;

end;
var TAB array: [1..50] of record;

Obrigada

Duvida

25/11/2005, 10:57

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

IPB Skin By Virteq