Выравнивание
текста по левому краю.
|
|
|
Program
Pro_50 (Input, Output);
|
Объявление
имени программы |
|
Var
|
Блок
объявления глобальных переменных |
|
T
: Array [1..100] Of String;
|
T
- массив строк текста |
|
i,
N : Integer;
|
i
- переменная цикла, N - число строк текста |
|
|
|
|
Begin
|
Начало
тела программы |
|
|
|
|
WriteLn
('PASCAL: Выравнивание текста по левому краю.');
|
Формулировка
цели алгоритма |
|
WriteLn
('Введите текст (окончание ввода - пустая
строка): ');
|
Запрос
ввода исходного текста |
|
i
:= 0; |
Номер
вводимой строки |
|
Repeat
|
Повторять
тело цикла... |
|
i
:= i + 1; |
Увеличиваем
номер вводимой строки на 1 |
|
ReadLn
(T [i] ); |
Считываем
очередную строку |
|
Until
T [i] = '';
|
Пока
очередная введенная строка не является
пустой строкой |
|
N
:= i - 1;
|
Заносим
в N число строк текста |
|
|
|
|
For
i := 1 To N Do
|
Цикл
для i
от 1 до N |
|
While
Copy (T [i], 1, 1) = ' ' Do Delete
(T [i], 1, 1);
|
Пока
первый символ i-ой строки является
пробелом, удаляем его |
|
|
|
|
WriteLn;
|
Перевод
строки |
|
For
i := 1 To N Do
|
Цикл
для i
от 1 до N |
|
WriteLn
(T [i] ); |
Выводим
построчно строки преобразованного
текста |
|
|
|
|
ReadLn;
|
Ожидание
нажатия клавиши Enter для завершения |
|
End.
|
Конец
программы. |
