programa utilizando o "seek"

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

programa utilizando o "seek"

Mensagem  Pinto em Seg Mar 16, 2009 4:35 am

Registar num ficheiro de numeros inteiros de 1 a 100.
Depois, utilizando o seek apresentar duas listagens:
- números pares;
- números ímpares.

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.
titititi

Pinto
Admin
Admin

Mensagens : 55
Data de inscrição : 03/03/2009
Idade : 26
Localização : Não tenx nada a ver com ixo !!!

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

Voltar ao Topo Ir em baixo

Re: programa utilizando o "seek"

Mensagem  Admin em Seg Mar 16, 2009 4:36 am

thanks pinto xD

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: programa utilizando o "seek"

Mensagem  Pinto em Seg Mar 16, 2009 4:56 am

sempre ás ordens !!! lol!

Pinto
Admin
Admin

Mensagens : 55
Data de inscrição : 03/03/2009
Idade : 26
Localização : Não tenx nada a ver com ixo !!!

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

Voltar ao Topo Ir em baixo

Re: programa utilizando o "seek"

Mensagem  JO$ em Seg Mar 16, 2009 4:51 pm

i isso ta bem pinto??

JO$
RankGod
RankGod

Mensagens : 263
Data de inscrição : 03/03/2009
Localização : no planeta Terra ou entao na Lua

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: programa utilizando o "seek"

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