Запись в конец строки ? Опции

[unic]

//

Сообщение отредактировано: unic - 11.03.2011 4:51

[volvo]

собстно почему она возникает ?

Потому что until c='#13'; и until c=#13; - это очень разные вещи... Ну, и не забывай, конечно, память под T выделять, а то ошибка будет другая...

[unic]

Всем огромное спасибо , нашел проблемы .

1) используя функцию setlength , я брал переменную i:=2 , тк отсчет в массивах начинается с 0 , получался массив размером 1 , эту же переменную использовал и при записи данных t[i] , те записывал во вторую ячейку , которой не существовало .

2) Избавился от while not eof(f) , оставив только repeat until eof(f);

и еще раз спасибо что нашли время для ответов на мои глупые вопросы .


Рабочая версия :

uses crt;

var t:array of string;
    n:array of integer;
    f:text;
    i,h,a,b,z:integer;
    s:string;
    m:char;
begin

// Заносим строки в массив //

i:=2;
 assign(f,'data.txt');
  reset(f);
   repeat
    setlength(t,i);
     readln(f,t[i-1]);
      inc(i);
     until eof(f);
   setlength(n,i);

// Собираем среднее арифметическое

reset(f);
 i:=i-2;
  for h:=1 to i do
   begin
    repeat
       read(f,m);
     until m=' ';
    repeat
       read(f,m);
     until m=' ';
readln(f,a,b,z);
 n[h]:=round((a+b+z)/3);
  end;
   close(f);
//Начинаем записывать в файл
rewrite(f);
  for h:=1 to i do begin
  str(n[h],s);
  writeln(f,t[h],' Средний балл :',' ',s);
  end;
  close(f);
  writeln('Программа успешно выполнена');
  readkey;
end.

Текстовый файл:

Вася Васильев 33 55 22
Иван иванов 67 22 88
Петр Петров 11 13 66

Сообщение отредактировано: unic - 11.03.2011 4:40