Pascal. Скопировать все строки текстового файла

Bloodya · 28.10.2013, 19:43

Скопировать все строки текстового файла F в текстовый файл G, добавляя после каждой строки число, равное ее длине (количество символов, включая пробелы).
вот что вышло,но программа видит только 1 строку,и работает до той степени пока ее не остоновишь.

var
f, g: text;
str: string;
len: byte;
begin
Assign(f, 'in.txt');
Assign(g, 'out.txt');
Reset(f);
Rewrite(g);
while not eof(f) do
begin
raed(f, str);
len:=length(str);
Write(g, str);
WriteLn(g, len);
end;
Close(f);
Close(g);
end.

Vladimir_S · 28.10.2013, 20:26

Две ошибки и одна мелкая помарка.
1. Это что еще такое за "raed" (12-я строка)?!!!
2. Запомните: строки считываются ТОЛЬКО оператором "readln", никаких "read"!!!
3. Перед выводом длины строки желательно вставить пробел. Чтобы красиво было.
Итак, исправленная программа:

Код:

var
 f,g: text;
 str: string;
 len: byte;
begin
 Assign(f, 'in.txt');
 Assign(g, 'out.txt');
 Reset(f);
 Rewrite(g);
 while not eof(f) do
  begin
   readln(f, str);
   len:=length(str);
   Write(g, str);
   WriteLn(g, ' ',len);
  end;
 Close(f);
 Close(g);
end.

Теперь проверяем. Как говорил один герой Бертольда Брехта, "Шекспир! Только Шекспир!". Полагаю, монолог Марка Антония подойдёт.
Итак, файл "In" (фрагмент):

И, соответственно, файл "Out":

28.10.2013, 19:43	#1 (permalink)
Bloodya Новичок Регистрация: 28.10.2013 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal. Скопировать все строки текстового файла Скопировать все строки текстового файла F в текстовый файл G, добавляя после каждой строки число, равное ее длине (количество символов, включая пробелы). вот что вышло,но программа видит только 1 строку,и работает до той степени пока ее не остоновишь. var f, g: text; str: string; len: byte; begin Assign(f, 'in.txt'); Assign(g, 'out.txt'); Reset(f); Rewrite(g); while not eof(f) do begin raed(f, str); len:=length(str); Write(g, str); WriteLn(g, len); end; Close(f); Close(g); end.

28.10.2013, 20:26	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Две ошибки и одна мелкая помарка. 1. Это что еще такое за "raed" (12-я строка)?!!! 2. Запомните: строки считываются ТОЛЬКО оператором "readln", никаких "read"!!! 3. Перед выводом длины строки желательно вставить пробел. Чтобы красиво было. Итак, исправленная программа: Код: var f,g: text; str: string; len: byte; begin Assign(f, 'in.txt'); Assign(g, 'out.txt'); Reset(f); Rewrite(g); while not eof(f) do begin readln(f, str); len:=length(str); Write(g, str); WriteLn(g, ' ',len); end; Close(f); Close(g); end. Теперь проверяем. Как говорил один герой Бертольда Брехта, "Шекспир! Только Шекспир!". Полагаю, монолог Марка Антония подойдёт. Итак, файл "In" (фрагмент): И, соответственно, файл "Out":

28.10.2013, 19:43
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ранее на форуме были созданы похожие темы Строки, Pascal. Нужна помощь Чтение строк из текстового файла СИ Pascal ABC, записи, нужен вывод отсортированной строки

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070