Дополнить строки их пробелами до размера самой длинной строки

@ButterflyOnAFir · Регистрация: 27.12.2011

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

В текстовом файле записаны строки произвольной длины. Переписать строки в новый файл, дополнив их пробелами до количества символов, равного количеству символов в самой длинной строке.

@КонецСвета · 14.06.2012, 01:22

поскольку не сказано, с какой стороны добавлять пробелы, я на свой вкус - слева =)

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
25
uses crt;
var f,g: text;
    s: string;
    i,dmax: byte;
begin
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
reset(f);
dmax:=0;
while not (eof(f)) do
      begin
      readln(f,s);
      if length(s)>dmax then dmax:=length(s);
      end;
reset(f); rewrite(g);
while not (eof(f)) do
      begin
      readln(f,s);
      for i:=1 to dmax-length(s) do
          s:=' '+s;
      writeln(g,s);
      end;
close(f);
close(g);
end.

@ButterflyOnAFir · 15.06.2012, 10:14 **[ТС]**

Спасибо большое :З

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@ButterflyOnAFir 1 / 1 / 0 Регистрация: 27.12.2011 Сообщений: 34

	Дополнить строки их пробелами до размера самой длинной строки 13.06.2012, 20:55. Показов 2863. Ответов 2 Метки нет (Все метки) В текстовом файле записаны строки произвольной длины. Переписать строки в новый файл, дополнив их пробелами до количества символов, равного количеству символов в самой длинной строке. 0

@ButterflyOnAFir 1 / 1 / 0 Регистрация: 27.12.2011 Сообщений: 34
	15.06.2012, 10:14 [ТС]
	Спасибо большое :З 0

Дополнить строки их пробелами до размера самой длинной строки

Решение