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

  • Автор темы advokat92
  • Дата начала
A

advokat92

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

nayke

Well-known member
04.08.2010
310
0
#3
Код:
//объявили переменную файла
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

Well-known member
04.08.2010
310
0
#4
я бы еще использовал динамический массив..
 
0

0uzn

#5
Код:
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;
 
0

0uzn

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

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