Переписать текст в новый файл со строками длиной 60 символов, добавив до конца каждой строки символ «!» (где ошибка?)

@artem10 · Регистрация: 30.09.2015

Студворк — интернет-сервис помощи студентам

Дан текстовый файл, разбитый на строки длиной не более 60 символов. Переписать текст в новый файл со строками длиной 60 символов, добавив до конца каждой строки символ «!»

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
PROGRAM K2L3;
VAR in_file, out_file:text;
    i,j:Integer; ss:Char;
BEGIN
   Assign(in_file,'K2L3.txt');
   Assign(out_file,'K2L3_.txt');
   Reset(in_file);
   Rewrite(out_file);
   While Not Eof(in_file) Do Begin
      Read(in_file,ss);
      Write(out_file,ss);
      Inc(i);
      If EOLN (in_file) And (i<60) Then Begin
         For i:=i+1 To 60 Do
             Write(out_file,'!');
         i:=-2;
      End;
   End;
   Close(in_file);
   Close(out_file);
END.

@Puporev · 22.03.2018, 09:07

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
var in_file, out_file:text;
     s,s1:string;
begin
assign(in_file,'K2L3.txt');
assign(out_file,'K2L3_.txt');
reset(in_file);
rewrite(out_file);
s1:='';
while not Eof(in_file) do
 begin
  readln(in_file,s);
  s1:=s1+s;
  if length(s1)=59 then writeln(out_file,s1,'!')
  else if length(s1)>59 then
   begin
    writeln(out_file,copy(s1,1,59),'!');
    delete(s1,1,59);
   end;
 end;
//последняя строка может быть меньше 60 символов
if eof(in_file)and(s1<>'') then writeln(out_file,s1,'!');
close(in_file);
close(out_file);
end.

@artem10 · 22.03.2018, 09:24 **[ТС]**

программа просто добавляет по одному (!) в конце строки, а должна дополнять строку до 60 символов с троку

@Puporev · 22.03.2018, 09:26

У меня так.
Исходный файл
ророл орпаа лриилл рлириор орморморморр
укук оршпш панан мгпгн
иоиииро оииооллил оииилоол оодтд
664+6+64+4+6+89+89+8989899+8+98+98+9+98+
лллдтлдтлддл дььльльлдьлд толтот
465564+6 лдлдллжжжлжд

Получилось
ророл орпаа лриилл рлириор орморморморрукук оршпш панан мгп!
гниоиииро оииооллил оииилоол оодтд664+6+64+4+6+89+89+898989!
9+8+98+98+9+98+лллдтлдтлддл дььльльлдьлд толтот465564+6 лдл!
дллжжжлжд!

@artem10 · 22.03.2018, 09:32 **[ТС]**

было так:
Файл - это логический блок информации определенный
в соответствии с требованиями используемой
в ОС файловой системы и представленный
в одном из допустимых форматов,
определяемым программой,
в которой образован
данный блок
информации
а должно стать так:
Файл - это логический блок информации определенный!!!!!!!!!!
в соответствии с требованиями используемой!!!!!!!!!!!!!!!!!!!
в ОС файловой системы и представленный!!!!!!!!!!!!!!!!!!!!!!
в одном из допустимых форматов,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
определяемым программой,!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!
в которой образован!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!
данный блок!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!
информации!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!

@Puporev · 22.03.2018, 09:35

Извини, не правильно понял задание, это вообще просто

Pascal
1
2
3
readln(f,s);
while length(s)<60 do s:=s+'!';
writeln(g,s);

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@artem10 0 / 0 / 0 Регистрация: 30.09.2015 Сообщений: 19
	22.03.2018, 09:24 [ТС]
	программа просто добавляет по одному (!) в конце строки, а должна дополнять строку до 60 символов с троку 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.03.2018, 09:26
	У меня так. Исходный файл ророл орпаа лриилл рлириор орморморморр укук оршпш панан мгпгн иоиииро оииооллил оииилоол оодтд 664+6+64+4+6+89+89+8989899+8+98+98+9+98+ лллдтлдтлддл дььльльлдьлд толтот 465564+6 лдлдллжжжлжд Получилось ророл орпаа лриилл рлириор орморморморрукук оршпш панан мгп! гниоиииро оииооллил оииилоол оодтд664+6+64+4+6+89+89+898989! 9+8+98+98+9+98+лллдтлдтлддл дььльльлдьлд толтот465564+6 лдл! дллжжжлжд! 0

@artem10 0 / 0 / 0 Регистрация: 30.09.2015 Сообщений: 19
	22.03.2018, 09:32 [ТС]
	было так: Файл - это логический блок информации определенный в соответствии с требованиями используемой в ОС файловой системы и представленный в одном из допустимых форматов, определяемым программой, в которой образован данный блок информации а должно стать так: Файл - это логический блок информации определенный!!!!!!!!!! в соответствии с требованиями используемой!!!!!!!!!!!!!!!!!!! в ОС файловой системы и представленный!!!!!!!!!!!!!!!!!!!!!! в одном из допустимых форматов,!!!!!!!!!!!!!!!!!!!!!!!!!!!!! определяемым программой,!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!! в которой образован!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!! данный блок!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!! информации!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!! 0