newbie7
Nowy
Dołączył: 24 Cze 2012
Posty: 1
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
 Wysłany: Nie 16:29, 24 Cze 2012 Temat postu: Problem z odczytywaniem i zapisywaniem tekstu do pliku |
|
|
Witam serdecznie 
Mam napisać program, który będzie odczytywać tekst z jednego pliku i będzie zapisywać go w odwrotnej kolejności do drugiego pliku. Problem polega na tym, że program tego nie robi 
Zadanie:
Zrób program, który odczytuje cały tekst z jednego pliku i zapisuje go do drugiego w odwrotnej kolejności (wskazówka - skorzystaj z tablic)
Kod
| Kod: |
uses crt;
var t1,t2:text;
i,k:integer;
tablica:array[1..50] of string;
begin
clrscr;
assign (t1, 'D:\tekst1.txt');
assign (t2, 'D:\tekst2.txt');
reset(t1);
repeat
i:=i+1;
read(t1, tablica [i]);
until eof (t1);
reset(t2);
for k:=i downto 0 do write (t2, tablica[i]);
close(t1);
close(t2);
delay (3000);
end. |
Co trzeba poprawić ? Z góry dziękuję za pomoc
Post został pochwalony 0 razy
|
|
