Вывод букв в две колонки - Turbo Pascal
Формулировка задачи:
Суть такова: вывожу заглавные буквы латинского алфавита от А до Z используя их ASCII-коды.
При выводе на экран их нужно разбить в две колонки. С этой целью использовал четность/нечетность ASCII-кода. Вот что получилось.
Одно "но" - на первой итерации цикла i=65, соответственно идет сначала проверка условия, а потом запись - в новую строку. Дальше все идет нормально, но как сделать, чтобы в самый первый раз эта первая строчка не оставалась пустой? Чтобы начиналось оттуда, откуда должно начинаться. Тут дело в самом цикле с его предпроверкой условия? И как использовать постпроверку в первой итерации "без последствий" для всей остальной части?
P.S. знаю вопрос тупенький но я полное днище, пару дней как начал. Спасибо всем, кто отзовется
Решение задачи: «Вывод букв в две колонки»
textual
Листинг программы
var i: Byte; begin for i:=65 to 90 do begin Write(Chr(i)); if i mod 2=0 then WriteLn; end; Write('Нажмите Enter...'); ReadLn; end.
Объяснение кода листинга программы
- Объявляется переменная i типа Byte.
- Запускается цикл for, который проходит по всем символам от 65 до 90 (это буквы английского алфавита).
- Внутри цикла выводится символ, соответствующий переменной i, с помощью функции Write(Chr(i)).
- Если i делится на 2 без остатка, то выводится символ новой строки с помощью функции WriteLn.
- После завершения цикла выводится сообщение
Нажмите Enter...
. - Считывается символ новой строки с помощью функции ReadLn.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д