Помогите, пожалуйста, с задачей:
Описать и проверить процедуру triangl(t), формирующую текстовый файл t из 27 строк, в первой из которых 27 литер ‘а’, во второй – 26 литер ‘b’ и т.д., в 27-й одна литера ‘z’.
Файлы |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Файлы |
mitz |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 48 Пол: Мужской Репутация: 0 |
Помогите, пожалуйста, с задачей:
Описать и проверить процедуру triangl(t), формирующую текстовый файл t из 27 строк, в первой из которых 27 литер ‘а’, во второй – 26 литер ‘b’ и т.д., в 27-й одна литера ‘z’. |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
27 строк врятли получится А вот 26 легко.
function BuildString(const ch: char; const len: byte): string; Код aaaaaaaaaaaaaaaaaaaaaaaaaa bbbbbbbbbbbbbbbbbbbbbbbbb cccccccccccccccccccccccc ddddddddddddddddddddddd eeeeeeeeeeeeeeeeeeeeee fffffffffffffffffffff gggggggggggggggggggg hhhhhhhhhhhhhhhhhhh iiiiiiiiiiiiiiiiii jjjjjjjjjjjjjjjjj kkkkkkkkkkkkkkkk lllllllllllllll mmmmmmmmmmmmmm nnnnnnnnnnnnn oooooooooooo ppppppppppp qqqqqqqqqq rrrrrrrrr ssssssss ttttttt uuuuuu vvvvv wwww xxx yy z -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 29.04.2024 7:04 |