Fórum Arquivos Tipados - Pascal #456804
26/09/2013
0
Fala galera...sou novo em pascal e preciso de uma ajuda para desenvolver o seguinte programa.
Um programa em Pascal que leia um arquivo do tipo string (apenas palavras), exiba o conteúdo do arquivo em tela, e logo depois inverta as linhas, e por fim inverta também os caracteres de cada linha.
Por exemplo:
Escrever o Arquivo Original em tela:
Linha A
Linha B
Linha C
Logo Depois Inverter as linhas:
Linha C
Linha B
Linha A
E por fim inverter as linhas e as palavras:
C ahniL
B ahniL
A ahniL
Cheguei até aqui:
Type
Palavra = string[60];
Arquivo = File of Palavra;
Var
Dados : Arquivo;
Imprimir o arquivo original:
assign(Texto, 'c:\1.txt');
reset(Texto);
while not eof(Texto) do
begin
read(Texto, Linha);
writeln(Linha);
end;
Para imprimir as linhas ao contrario tentei assim(Mas não consegui, o programa nem roda, compila mas dá erro e não roda):
assign(Texto, 'c:\1.txt');
reset(Texto);
for i:=filesize(Texto) downto 1 do
begin
seek(Texto, i);
read(Texto,Linha);
writeln(Linha);
end;
Para inverter as linhas e palavras não consegui nada, pq nem consegui inverter as linhas.
PS: Utilizo o Dev-Pascal.
Obrigado Galera.
Um programa em Pascal que leia um arquivo do tipo string (apenas palavras), exiba o conteúdo do arquivo em tela, e logo depois inverta as linhas, e por fim inverta também os caracteres de cada linha.
Por exemplo:
Escrever o Arquivo Original em tela:
Linha A
Linha B
Linha C
Logo Depois Inverter as linhas:
Linha C
Linha B
Linha A
E por fim inverter as linhas e as palavras:
C ahniL
B ahniL
A ahniL
Cheguei até aqui:
Type
Palavra = string[60];
Arquivo = File of Palavra;
Var
Dados : Arquivo;
Imprimir o arquivo original:
assign(Texto, 'c:\1.txt');
reset(Texto);
while not eof(Texto) do
begin
read(Texto, Linha);
writeln(Linha);
end;
Para imprimir as linhas ao contrario tentei assim(Mas não consegui, o programa nem roda, compila mas dá erro e não roda):
assign(Texto, 'c:\1.txt');
reset(Texto);
for i:=filesize(Texto) downto 1 do
begin
seek(Texto, i);
read(Texto,Linha);
writeln(Linha);
end;
Para inverter as linhas e palavras não consegui nada, pq nem consegui inverter as linhas.
PS: Utilizo o Dev-Pascal.
Obrigado Galera.
Junior Silva
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)