GAECHKA
Твоя помощница в решении задач

Выравнивание текста в текстовом файле

Мне нужно создать программу, которая считывает текстовый файл и выравнивает его по правому краю и выводит текст в другой текстовый файл. Подскажите пожалуйста как в паскале можно выравнять текст по правому краю, по центру?
0
вопрос задан

Источник


4 ответа
1.Найти максимальную длину строки.
2.Во всех строках меньше максимальной добавлять пробелы в начало строки в количестве
Length(max)-Length(s);
Но ведь если мы найдем длину максимальной строки, а у нас допустим текстовый файл состоит всего из двух коротких предложений, которые начинаются с разных строк, то текст будет выровнен не по центру текстового документа. Тогда как поступить?
Какая разница что с чего начинается если надо просто выровнять пробелами всю строку относительно самой длинной строки.
И - с чего что не будет выровнено по центру, приведите более конкретный пример.
По центру так.
из длины максимальной строки вычитаем длину данной строки, дели пополам и добавляем это количество пробелов в начало и в конец.

Добавлено через 1 минуту
Строки считывать так.
readln(f,s);
s:=trim(s);