Вывести на экран все латинские буквы из строки - Turbo Pascal

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

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

Дана строка. Вывести на экран все латинские буквы из этой строки

Решение задачи: «Вывести на экран все латинские буквы из строки»

textual
Листинг программы
  1. var s : string;
  2.     lot : set of char;
  3.     i   : byte;
  4.    
  5. BEGIN
  6.      lot:= ['A'..'Z', 'a'..'z'];
  7.      WriteLn('Введите строку:');
  8.      Readln(s);
  9.      for i:= 1 to length(s) do
  10.          if (s[i] in lot) then
  11.             Write(s[i]:2);
  12. END.

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

  1. Создается переменная s типа string, которая будет хранить введенную пользователем строку.
  2. Создается множество lot типа set of char, которое будет содержать все латинские буквы от A до Z и от a до z.
  3. Создается переменная i типа byte, которая будет использоваться для цикла.
  4. Выводится сообщение Введите строку:.
  5. С помощью функции Readln считывается введенная пользователем строка и сохраняется в переменной s.
  6. Запускается цикл for, который будет выполняться столько раз, сколько символов в строке s.
  7. В каждой итерации цикла проверяется, содержится ли текущий символ из строки s в множестве lot.
  8. Если символ содержится в множестве lot, то он выводится на экран с помощью функции Write, при этом используется формат записи s[i]:2, который указывает, что нужно вывести символ с двукратным обрамлением кавычками.
  9. После завершения цикла выводится символ новой строки с помощью функции WriteLn.

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


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

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

11   голосов , оценка 4.182 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы