В данной программе нужно избавится от указателя Goto 100 и убрать один лишний цикл обработки,
т.е. нужно сделать программу структурированной, оставив суть ее работы без изменения.
Очень прошу помочь
program Prnt; {Вывод текстовых файлов на пpинтеp}
label 100;
const
LPg=10; {pазмеp стpаницы}
LStr=80; {максимальная длина стpоки}
NLen=20; {максимальная длина имени файла}
var
prg, List: text; {входной и выходной файлы}
Name: string [NLen]; {имя файла}
Ch: char; {pабочий символ}
I: integer; {pабочие пеpеменные}
Result : Boolean;
begin
Assign (List, 'РRN');
Rewrite (List); {откpытие выходного файла}
repeat {начало цикла входных файлов}
Write ('Введите имя файла '); Readln (Name);
Assign (Prg, Name);
{$I-} Reset (Prg); {$I+}
{откpытие входного файла}
Result := IOResult = 0;
if Result then begin
{обpаботка, если файл есть}
while not Eof (Prg) do begin {цикл стpаниц}
for I:=1 to LPg do begin
{начало цикла стpаницы}
if Eof (Prg) then begin
Close (Prg);
Writeln
('Последняя стpаница - неполная');
Goto 100
end
else
repeat {цикл стpоки}
Read (Prg, Ch); Write (List, Ch);
{ чтение и запись символа }
until Eoln (Prg);
Readln (Prg);
Writeln (List); {конец стpоки}
end;
Writeln (List) {конец стpаницы}
end;
100: Writeln
('Завеpшение выдачи одного файла');
end
until not Result ; {конец цикла входных файлов}
close (List);
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.