Problem z odwróceniem kolejności DEV Pascal

0

Witajcie,
Potrzebuję pomocy w zadaniu:
" Dany jest plik tekstowy słowa.txt, zawierający nie więcej niż 100 słów, każde zapisane w jednym wierszu. Napisz program, który odczyta zawartość pliku słowa.txt a następnie utworzy plik słowa2.txt, zawierający te same słowa, zapisane w odwrotnej kolejności."

Kompletnie nie wiem, jak zrobić by w pliku słowa2.txt zapisały się te słowa w odwrotnej kolejności : /
Oto kod jaki udało mi się stworzyć do tej pory:

" Program zadanie1;

var
t:word;
plik1:text;
plik2:text;
slowo:string;
begin
Assign(plik1,'plik1.txt');
Rewrite(plik1);
for t:=1 to 99 do
Writeln(plik1,'slowo numer ',t);
close(plik1);
Assign(plik1,'plik1.txt');
Reset(plik1);
Assign(plik2,'plik2.txt');
rewrite(plik2);

REPEAT
readln(plik1,slowo);
writeln(plik2,slowo);
UNTIL EOF(plik1);
close(plik1);
close(plik2);
end. "

Czy byłby ktoś w stanie pomóc mi w jego dokończeniu ?
Z góry dziękuję za szybką odpowiedź

0

Możesz każdą linijkę odczytywać do tablicy, a potem zapisywać od końca tablicy (for I := High(Tab) downto 0)
Masz na PW ;-)

0

Wczytują możesz robić pętle

for I := 1 to 100 do

a przypisując do pliku słowa2.txt., zadeklaruj dwie zmienne TStrings albo TStringList i:

var TS, TS2 : TStrings;
begin
TS := TStrings.Create;
TS2 := TStrings.Create;

TS.LoadFromFile('slowa1.txt');
TS2.Add(TS[100 - I]);
end;

Albo baw się w tablice

OOP

0
procedure wiersz;
var s:string;
begin
        if not eof then begin
                readln(s);
                wiersz;
                writeln(s)
        end;
end;
 
begin wiersz end. 

1 użytkowników online, w tym zalogowanych: 0, gości: 1