Последний элемент при чтении из файла построчно всегда 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

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

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

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

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

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

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

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