Работа с файлами

[advokat92]

Создать файл P, компонентами которого являются элементы массива M. Переписать из файла P в файл G все компоненты в обратном по-рядке. Прочитать файл G.
M=(0,4; 6,1; 2,3; 0,7; 6,2; 3,1; 0,9; 10,1)

 

[flashkpi]

Пиши, сделаю
icq: 588002847
email: flash_1989@ukr.net

 

[nayke]

//объявили переменную файла
var f:text;
begin //открыли файл
AssignFile(f,Filename);
//для чтения
Reset(f);
i:=1;
//читаем до конца и записываем в массив
While not eof(f) do
begin read(f,a[i]);//или readln(f,s); а потом разбирать строку
inc(i);
end;
n=i-1;
//закрыли
CloseFile(f);
//теперь записываем во второй в обратном порядке
AssignFile(f,Filename2);
rewrite(f);
for i:=n downto 1 do
write(f,a[i]+' ');
CloseFile(f);
end;

код примерный остальное найдешь сам.. я надеюсь..

 

[nayke]

я бы еще использовал динамический массив..

 

[0uzn]

my @m = ('0,4','6,1','2,3','0,7','6,2','3,1','0,9','10,1');
open P,'>file1.txt' or die $!;
print P $_,"\n" for(@m);		#записываем в файл P массив M
close P;
open P,'<file1.txt' or die $!;
open G,'>file2.txt' or die $!;
my @a = <P>;					#считываем файл P в массив
close P;
my @r = reverse @a;			 #переписываем элементы в обратном порядке
print G for(@r);				#записываем в файл G элементы в обратном порядке
close G;
open G,'<file2.txt' or die $!;
print while(<G>);			  #читаем и печатаем файл G
close G;

 

[0uzn]

Извиняйте,только сейчас прочитал,что задачку на дельфях надо было решить. B)

Добавлено: Извиняйте,только сейчас прочитал,что задачку на дельфях надо было решить.