Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах. - Turbo Pascal
Формулировка задачи:
Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах. Выдать эти символы
Решение задачи: «Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах.»
textual
Листинг программы
uses crt; var c : char; s : string; i, k : integer; begin clrscr; s := ''; writeln('вводите символы окончание ввода "ESC"'); while c <> #27 do begin s := s + c; c := readkey; write(c, ' ') end; writeln('составлено слово: ', s); write('символы на четных местах: '); for i := 1 to length(s) do if i mod 2 = 0 then begin inc(k); write(s[i], ' ') end; writeln; writeln('количество символов на четных местах: ', k); repeat until keypressed end.
Объяснение кода листинга программы
- В начале объявляются все необходимые переменные: c (символ), s (строка), i (целое число), k (целое число).
- Затем происходит очистка экрана с помощью функции clrscr.
- Выводится сообщение для ввода символов, заканчивающееся на
ESC
. - Запускается цикл while, который продолжается до тех пор, пока введенный символ не будет равен
#27
. - Внутри цикла к строке s добавляется введенный символ c.
- Считывается следующий введенный символ с помощью функции readkey.
- Выводится введенный символ с пробелом после него.
- Цикл while повторяется до тех пор, пока введенный символ не будет равен
#27
. - После окончания цикла выводится сообщение
составлено слово:
, а также строка s. - Выводится сообщение
символы на четных местах:
. - Запускается цикл for, который проходит по каждому символу в строке s.
- Внутри цикла проверяется, является ли текущий индекс символа четным числом.
- Если это так, то увеличивается значение переменной k и выводится символ s[i] с пробелом.
- По завершении цикла for выводится сообщение
количество символов на четных местах:
, а также значение переменной k. - Цикл while повторяется до тех пор, пока не будет нажата клавиша.
- После окончания цикла выводится сообщение
до свидания
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д