Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 22.12.2019
Сообщений: 1
1

Напишите программу, нумерующую строки текстового файла

22.12.2019, 17:20. Показов 336. Ответов 0

Привет! Пытаюсь написать эту программу, вроде все работает, но мне надо, чтобы при выводе не создавалась последняя строка с признаком конца файла, дело во writeln (я так думаю), но и без него нельзя

Сам текст программы:

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
var f,f1:text;
  s:string;
  i,j: integer;
begin
assign(f,'test.txt');
assign(f1,'test1.txt');
reset(f); rewrite(f1);
begin
while not eof(f) do begin
   readln(f,s);
   inc(i);
end;
end;
writeln(i);
close(f);
reset(f);
j:=i;
for i:=1 to j-1 do begin
readln(f,s);
 writeln(f1,i,'. ',s);
end;
readln(f,s);
 write(f1,j,'. ',s);
close(f);
close(f1);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2019, 17:20
Ответы с готовыми решениями:

Напишите программу, осуществляющую чтение из исходного текстового файла input.txt
Напишите программу, осуществляющую чтение из исходного текстового файла input.txt вход- ных данных...

Напишите программу печати самой короткой строки файла
Решите с объяснением, пожалуйста. не понимаю я это программирование(((( Заранее спасибо! Создайте...

Напишите программу шифрования текстового сообщения.
помогите пожалуйста,очень надо,плиззззззз.... Задачка на записи. 1) Из множества латинских ...

Из одного текстового файла переписать строки с данными в другой, исключая строки, содержащие цифры
Из текстового файла name1 переписать строки с данными в файл name2, исключая строки содержащие цифры

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2019, 17:20

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Добавить в конец каждой строки текстового файла изображение соответствующего числа из файла целых чисел
Дан текстовый файл и файл целых чисел. Добавить в конец каждой строки текстового файла изображение...

Определить строки текстового файла
Дан текстовый файл. Определить строки, в которых заданный символ встречается наибольшее число раз....

Удаления строки из текстового файла
Вот я загружаю текстовый файл в программу, мне нужно из этого файла удалить одну строку, которую я...

Считать с текстового файла строки и перевернуть их
Привет всем...помогите пожалуйста написать такую программку: программа должна считывать с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.