Вывод букв в две колонки - 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.

Объяснение кода листинга программы

  1. Объявляется переменная i типа Byte.
  2. Запускается цикл for, который проходит по всем символам от 65 до 90 (это буквы английского алфавита).
  3. Внутри цикла выводится символ, соответствующий переменной i, с помощью функции Write(Chr(i)).
  4. Если i делится на 2 без остатка, то выводится символ новой строки с помощью функции WriteLn.
  5. После завершения цикла выводится сообщение Нажмите Enter....
  6. Считывается символ новой строки с помощью функции ReadLn.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.667 из 5
Похожие ответы