Работа с текстовыми файлами в языке Паскаль - 27 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

27
{ Открытие выходного файла }
Rewrite(VFText);
{ Запись пустой строки }
WriteLn(VFText);
{ Запись остальных строк }
if N > 0 then { последовательность не пуста }
begin
for I := 1 to N do { для каждого числа послед-сти }
begin
{ Запись пробела, текстового представления }
{ числа в поле из 3 позиций и пробела }
Write(VFText, ' ', VA[I] : 3, ' ');
{ Запись нужного количества 'X' }
for J := 1 to VA[I] do
Write(VFText, 'X');
{ Запись перевода строки }
WriteLn(VFText)
end { for I := 1 to N do }
end; { if N > 0 }
{ Запись пустой строки }
WriteLn(VFText);
{ Закрытие выходного файла }
Close(VFText)
end; { WriteDiagramLR }
2 Задачи
1) Дан текстовый файл. Необходимо переписать его содержимое в другой
текстовый файл, добавляя в начало каждой строки её порядковый номер
(десятичную запись целого числа шириной в 5 символов, выровненную
по правой границе поля) и пробел.
2) Дан текстовый файл. Необходимо переписать в другой текстовый файл
все его непустые строки,
которые начинаются и оканчиваются
одинаковым символом.

Страницы