Считать с клавиатуры последовательность символов и выводит на экран количество считанных букв - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран кол-во считанных букв. Вводимые символы разделяются с помощью клавиши <ENTER>. Предполагается, что можно вводить строчные и прописные буквы латинского алфавита и символ <*> является признаком конца последовательности.

Решение задачи: «Считать с клавиатуры последовательность символов и выводит на экран количество считанных букв»

textual
Листинг программы
var
 i : integer;
 a : char;
Begin
 i:=0;
 Repeat
  readln(a);
  if (a in ['A'..'Z']) or (a in ['a'..'z']) then inc(i);
 Until a='*'; 
 
 writeln(' Введено букв: ', i);
 readln;
End.

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

  1. Переменная i инициализируется значением 0.
  2. Переменная a инициализируется значением 'A'.
  3. Запускается цикл Repeat, который будет выполняться до тех пор, пока значение переменной a не станет равным знаку '*'.
  4. Внутри цикла считывается символ с клавиатуры и сохраняется в переменной a.
  5. Проверяется, является ли введенный символ буквой верхнего регистра (от 'A' до 'Z') или буквой нижнего регистра (от 'a' до 'z').
  6. Если символ является буквой, то значение переменной i увеличивается на 1.
  7. После завершения цикла, выводится на экран количество введенных букв.
  8. Запускается функция readln(), чтобы пропустить символ новой строки, введенный после последнего символа.
  9. Выводится на экран сообщение ' Введено букв: ', за которым следует значение переменной i.
  10. Запускается функция readln(), чтобы пропустить символ новой строки.

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

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