Последний элемент при чтении из файла построчно всегда 0, почему ?

@LeDep · Регистрация: 12.02.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте, подскажите, почему при чтении из файла у меня все время 0 является последним элементом, в чем ошибка ?
В файле находится 4 элемента в столбик и нуля нету.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
const
n=5;
var i,j,k,c:integer;
    z,r,a:array[1..n] of integer;
    f,f1:text;
begin
  assign(f,'c:/input.txt');
  rewrite(f);
  for i:=1 to n do
   begin
    writeln('Enter ','a[',i,']: ');
    readln(a[i]);
    writeln(f,a[i]);
   end;
   close(f);
 
  assign(f1,'c:/output.txt');
  rewrite(f1);
   for i:=2 to n do
    begin
     r[i]:=a[i]+a[i-1];
     writeln(f1,r[i]);
    end;
  reset(f1);
  while not eof(f1) do
   begin
    read(f1,r[i]);
    writeln('Result: ',r[i]);
    writeln;
   end;
  close(f1);
  readln;
end.

@Valenth · 05.11.2013, 19:03

Delphi
1
writeln(f1,r[i]);

При записи в файл оставляет после себя символ конца строки, который в дальнейшем при чтении тоже учитывается. В итоге в выходном файле у вас в конце пустая строка, отсюда и ноль.

Сделайте так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
...
  assign(f1,'c:/output.txt');
  rewrite(f1);
   for i:=2 to n do
    begin
     r[i]:=a[i]+a[i-1];
     if (i<n) then
      writeln(f1,r[i])
     else
      write(f1,r[i]);
    end;
  reset(f1);
...

В итоге последняя строчка будет без символа конца строки.

@LeDep · 05.11.2013, 19:09 **[ТС]**

Почему то нету кнопки, чтобы плюсануть к репутации.
Все равно спасибо, понял.

@кот Бегемот · 05.11.2013, 19:18

Фигня это всё. дело в том, что цикл до 5, а считывается 4 числа. Пятое автоматически равно нулю. Исправь n на 4 и ошибка исчезнет

@Valenth · 05.11.2013, 19:22

Сообщение от кот Бегемот

Фигня это всё. дело в том, что цикл до 5, а считывается 4 числа. Пятое автоматически равно нулю. Исправь n на 4 и ошибка исчезнет

А мне кажется, что Вы ошибаетесь.

@кот Бегемот · 05.11.2013, 19:26

Ну, перекрестись, если кажется.

@Valenth · 05.11.2013, 19:28

Сообщение от кот Бегемот

Ну, перекрестись, если кажется.

Достойный и очень предсказуемый ответ. А Вы всегда даёте советы налево и направо, не попробовав их хотя бы проверить (это я про n=4)?

@LeDep · 05.11.2013, 19:29 **[ТС]**

Если n=4, то тоже 0 последним выводит. Щас проверил. Все равно спасибо всем!

@кот Бегемот · 05.11.2013, 19:49

Нет я не даю советы направо и тем более налево. Я просто мельком глянул программу и подумал, что он считывает данные из файла, а они записываются. И я согласен с тобой. Но раз в программе известно количество записанных чисел, можно было не применять команду

Pascal
1
while not eof(f1) do

заменив её командой

Pascal
1
for i:=1 to 4 do

и прочиталось бы ровно 4 числа.
или

Pascal
1
for i:=1 to n-1 do

если n=5

@Valenth · 05.11.2013, 19:53

кот Бегемот, можно и так, но я предпочитаю указывать на допущенные ошибки и показывать "как надо" тем же образом, каким написан код. Так усвояемость материала лучше, и понимание нюансов.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@LeDep 74 / 74 / 44 Регистрация: 12.02.2011 Сообщений: 380
	05.11.2013, 19:09 [ТС]
	Почему то нету кнопки, чтобы плюсануть к репутации. Все равно спасибо, понял. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	05.11.2013, 19:18
	Фигня это всё. дело в том, что цикл до 5, а считывается 4 числа. Пятое автоматически равно нулю. Исправь n на 4 и ошибка исчезнет 1

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	05.11.2013, 19:26
	Ну, перекрестись, если кажется. 0

@LeDep 74 / 74 / 44 Регистрация: 12.02.2011 Сообщений: 380
	05.11.2013, 19:29 [ТС]
	Если n=4, то тоже 0 последним выводит. Щас проверил. Все равно спасибо всем! 0

@Valenth 120 / 110 / 19 Регистрация: 04.11.2013 Сообщений: 471
	05.11.2013, 19:53
	кот Бегемот, можно и так, но я предпочитаю указывать на допущенные ошибки и показывать "как надо" тем же образом, каким написан код. Так усвояемость материала лучше, и понимание нюансов. 0