Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 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.
Bloodya вне форума   Ответить с цитированием

Старый 28.10.2013, 19:43
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ранее на форуме были созданы похожие темы

Строки, Pascal. Нужна помощь
Чтение строк из текстового файла СИ
Pascal ABC, записи, нужен вывод отсортированной строки

Старый 28.10.2013, 20:26   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,265
Сказал(а) спасибо: 237
Поблагодарили 461 раз(а) в 145 сообщениях
Репутация: 79888
По умолчанию

Две ошибки и одна мелкая помарка.
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" (фрагмент):
sh_in.jpg
И, соответственно, файл "Out":
sh_out.jpg
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 19:14.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.