Работа с файлами и записями

[Евгений000]

Здравствуйте, помогите пожалуйста с задачей.
Есть файл M1.txt. с элементами массива целых чисел. Нужно отсортировать запись в файле и записать в этот же файл.

Заранее спасибо!!!

[whatever]

Только за то, что выделился на общем фоне и написал "Здаравствуйте" и "Спасибо":

type
  arr=array of integer;
var
  T:textfile;
  i,j,res:integer;
  m:arr;
begin
  assignfile(t,'C:\M1.txt');
  reset(T);
  setlength(m,0);
  while not EOF(T) do
    begin
      setlength(m,length(m)+1);
      read(T,i);
      m[high(m)]:=i;
    end;
  close(T);
  for i:=0 to high(m) do
    for j:=0 to high(m) do
      if m[i]<m[j] then
        begin
          res:=m[i];
          m[i]:=m[j];
          m[j]:=res;
        end;
  rewrite(T);
  for i:=0 to high(m) do
    write(T,m[i],' ');
  close(t);
end.

В следующий раз показывай наработки, иначе никто не поможет.

[Евгений000]

Спасибо за ответ. Загнать данные из файла в массив у меня получилось. А вот загнать данные в запись нет. Вот поэтому пришлось к вам обращаться.

[whatever]

Сообщение от Евгений000

Спасибо за ответ. Загнать данные из файла в массив у меня получилось. А вот загнать данные в запись нет. Вот поэтому пришлось к вам обращаться.

Я так и не понял, проблема решена? Что понимать под "записью"? Record? Если так, то задача решается вообще подругому.

[Евгений000]

Подскажите пожалуйста, почему при сортировке массива с файла выдаёт не отсортированный массив, а все нули. Не могу понять.

uses crt;
type
  arr=array [0..19] of integer;
var
  T:text;
  i,res:integer;
  m:arr;
  s:string;
begin
writeln('                          Отсортированный массив А');
writeln;
  assign(t,'E:\Инна 2\11 задание\M3.txt');
  reset(T);
  while not EOln(t) do
    begin
      readln(T,m[i]);
    end;
  close(T);
  for i:=0 to 18 do
      if m[i]<m[i+1] then
        begin
          res:=m[i];
          m[i]:=m[i+1];
          m[i+1]:=res;
        end;
  rewrite(T);
  for i:=0 to 18 do
    write(T,m[i],' ');
  close(t);
  for i:=0 to 18 do
  write(' ',m[i]);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

'E:\Инна 2\11 задание\M3.txt'

если Вы задачу выполняете в TurboPascal, то файлы с подобными именами не могут обрабатываться! TP (точнее MS DOS) понимает только короткие имена файлов формата 8.3
А вот если компилятор под Win, например, FreePascal, тогда можно такие имена использовать.

while not EOln(t) do

так Вы только одну строчку из файла сможете прочитать, думаю, что предполагалось:

while not Eof(t) do

дальше, вы в цикле читаете m[i]. а i при этом не меняется. (да и начального присвоения, т.н. иницилизации, у Вас тоже нет. в переменной i может быть вообще всё, что угодно!

Теперь цикл сортировки.

for i:=0 to 18 do

а с чего Вы решили, что в цикле из файла прочиталось ровно 19 значений (с нуля по 18) ? Не два числа, не 10, а именно 19? Программа обладает навыками ясновидения?!!

ну и окончательно. Сортировка у Вас написана неверно!!!

Неужели на форуме трудно найти работающий пример сортировки и адаптировать под себя?!

Короче. Всё неправильно. Не зачёт!

p.s. Вам в пост #2 whatever дал нормальные рабочий код. Почему Вы им не воспользовались?!!