Дан текст, включающий русские и английские буквы, а также цифры - Pascal ABC

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

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

Дан текст, включающий русские и английские буквы, а также цифры, подсчитать и вывести на экран количество русских букв, английских букв и цифр в этом тексте. Общее количество букв не более 255. При решении использовать строковую переменную.

Решение задачи: «Дан текст, включающий русские и английские буквы, а также цифры»

textual
Листинг программы
kr:=0;
kl:=0;
kc:=0;
for i:=1 to length(s) do
 begin
  if s[i] in ['А'..'я','Ё','ё'] then inc(kr);
  if s[i] in ['A'..'Z','a'..'z'] then inc(kl);
  if s[i] in ['0'..'9'] then inc(kc);
 end;

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

В данном коде происходит подсчет количества русских и английских букв, а также цифр в тексте. Список элементов кода представлен ниже:

  1. kr:=0; - инициализация переменной kr (русские буквы)
  2. kl:=0; - инициализация переменной kl (английские буквы)
  3. kc:=0; - инициализация переменной kc (цифры)
  4. for i:=1 to length(s) do - цикл, который будет выполняться столько раз, сколько символов в тексте
    1. if s[i] in ['А'..'я','Ё','ё'] then inc(kr); - проверка, является ли символ русской буквой, если да, то увеличить значение переменной kr на единицу
    2. if s[i] in ['A'..'Z','a'..'z'] then inc(kl); - проверка, является ли символ английской буквой, если да, то увеличить значение переменной kl на единицу
    3. if s[i] in ['0'..'9'] then inc(kc); - проверка, является ли символ цифрой, если да, то увеличить значение переменной kc на единицу
    4. end; - завершение цикла Таким образом, данный код подсчитывает количество русских и английских букв, а также цифр в тексте и сохраняет результаты в трех отдельных переменных: kr, kl и kc.

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

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