Создать текстовый файл, состоящий из 5 стpок: в пеpвой стpоке шесть букв 'A', во втоpой - пять букв B' и т.д. - Free Pascal
Формулировка задачи:
23. Создать текстовый файл, состоящий из 5 стpок: в пеpвой стpоке шесть букв 'A', во втоpой - пять букв B' и т.д.
Решение задачи: «Создать текстовый файл, состоящий из 5 стpок: в пеpвой стpоке шесть букв 'A', во втоpой - пять букв B' и т.д.»
textual
Листинг программы
uses StrUtils;
var i : integer;
// ...
for i := 1 to 5 do
writeln(DupeString(chr(ord('A') + i - 1), 6 - i));
Объяснение кода листинга программы
- В этом коде используется заголовочный файл StrUtils, который содержит набор функций для работы со строками.
- Объявлена переменная i типа integer, которая используется в цикле.
- В цикле for происходит запись в файл от 1 до 5 раз.
- Функция DupeString используется для создания строки, которая состоит из указанного количества повторяющихся символов.
- В качестве символа используется значение, полученное с помощью функции ord, которая возвращает числовое представление символа в кодировке Windows.
- Код в цикле выводит в файл строки, состоящие из 6 символов 'A', 5 символов 'B', 4 символа 'C', 3 символа 'D' и 2 символа 'E'.