PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

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.

Junior Silva

Junior Silva

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar