Здравствуйте! Помогите,пожалуйста, решить задачу
4.Дан текстовый файл,содержащий некоторые пояснения,заключенные
в скобки. Убрать эти пояснения вместе со скобками. Выровнять
измененный файл по левому и правому краю,равномерно добавив прбелы.
4.Дан текстовый файл,содержащий некоторые пояснения,заключенные в скобки. Убрат
Первое делается так
while (pos('(', s) >0) do
s:= copy(s, 1, pos('(', s)-1) + copy (s, pos(')', s), length(s);
Второе - устанавливаете нужную длину строки (например, 80 символов). Находите количество символов, которые нужно добавить в начало и конец строки, чтобы выровнять ее по центру:
x:= (80-length(s)) div 2;
Дальше
for i:=1 to x do s:=' '+s+' ';
Самостоятельно разберитесь, что делать, если length(s) нечетная
while (pos('(', s) >0) do
s:= copy(s, 1, pos('(', s)-1) + copy (s, pos(')', s), length(s);
Второе - устанавливаете нужную длину строки (например, 80 символов). Находите количество символов, которые нужно добавить в начало и конец строки, чтобы выровнять ее по центру:
x:= (80-length(s)) div 2;
Дальше
for i:=1 to x do s:=' '+s+' ';
Самостоятельно разберитесь, что делать, если length(s) нечетная
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.