Arquivo

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Arquivo

Mensagem  Admin em Ter Mar 10, 2009 7:48 am

Definir um ficheiro de dados

[list][*]Inteiro
Type Arquivo: File of integer;
Var
F:Arquivo; Type
inteiro:integer;
var
Ou I:inteiro


Var
F:file of integer

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Arquivo

Mensagem  Admin em Ter Mar 10, 2009 8:00 am

Registos

Type aluno=record
Nome:string;
Turma:string;
Numero:integer;
end;
var
F:file of aluno;

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Arquivo

Mensagem  Admin em Ter Mar 10, 2009 8:08 am

Abertura

assign (variavel, 'nome do ficheiro');
ex:
assign(f,'exemplo.dat');

Leitura/escrita

Rewrite(variavel) ____
EX: Rewrite(f) ____Fixeiro é rinicializado_____

Reset(variavel)
ex:
Reset(f) ---------- Ficheiro aberto para leitura/ escrita, se o ficheiro nao existir dá erro

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Arquivo

Mensagem  Admin em Ter Mar 10, 2009 8:19 am

Escrita

Write(variavel,conteudo);
ex:
write(F,2);

Leitura


Read(variavel,variavel de recepçao);
Ex:
read(f,abc); Aluno
Nome
Numero
Turma
A:aluno



Posicionamento
seek(variavel, numero de registo);
ex:
seek(f,19); o seek começa no zero

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Arquivo

Mensagem  Admin em Ter Mar 10, 2009 8:24 am

Fechar

close(variavel);
ex:
close(f);

ex:
program testar_ficheiros;
type
ficheiro:file of integer;
var
f:ficheiro;
A:integer;
begin
assign(f,'numeros.dat');
rewrite(f);
for I:= 1 to 100 do
write(f,I);
close(f);
reset(f);
For I:= 1 to 100 do
begin
read(f,a);
writeln('na posiçao',I,'do ficheiro esta',A);
end;
close(f);
end.

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Arquivo

Mensagem  Admin em Ter Mar 10, 2009 8:40 am

Exercicio

Calcular e Guardar em ficheiro o quadrado dos numeros de 1 a 50.
De seguida apresentam estes valores no ecra.

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Arquivo

Mensagem  Admin em Ter Mar 10, 2009 9:26 am

Program testar_ficheiros;
Type
Ficheiro:file of integer;
Var
F:ficheiro;
Square:integer;
I, A:integer;
Begin
Assign(F, ‘numeros.dat’);
Rewrite(F);
For I:= 1 to 50 do
Begin
Square:= sqr(A);
Read(F,A);
Write(F, square);
End;
Close(F);
Reset(F);
For I:=1 to 50 do
Begin
Read(F, A);
Writeln(‘o numero’, I ,’ o seu quadrado é:’,A);
End;
Close(F);
End.

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Arquivo

Mensagem  Admin em Ter Mar 10, 2009 9:28 am

Exercicio
Registar num ficheiro os numeros inteiros de 1 a 100.
Depois, utilizando o seek apresentar duas listagens:
-numeros pares
-numeros impares

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Arquivo

Mensagem  Admin em Ter Mar 10, 2009 10:26 am

Program ex;
Type
Ficheiro:file of integer;
Var
F:ficheiro;
L, H, I, O:integer;
Begin
Assign(F,’exemplo.txt’);
Rewrite(I);
For I:=1 to 100 do
Begin
Write(F, I);
End;
Close(F);
Reset(F);
For I:=1 to 100 do
Begin
Seek(F, I);
O:=I+1;
O:=Omod2;
If O:=0 then
begin
Seek(F, O);
Read(F, H);
Writeln(F, H);
End;
End;
For I:=0 to 50 do
Begin
O:=I*2;
Seek(F, O);
Read(F,L);
Write(F, L);
End;
End.

Admin
1337-soldier
1337-soldier

Mensagens : 752
Data de inscrição : 02/03/2009
Idade : 26
Localização : Hell

Ver perfil do usuário http://skill-time.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Arquivo

Mensagem  Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum