Задача:

Напишите программу, которая принимает строку и определяет, содержит ли она все буквы алфавита. Pascal ABC.

План:

• Алгоритм решения
• Код программы
• Примеры входных данных и ожидаемых результатов
• Объяснение кода программы
• Блок-схема

Алгоритм решения:

1. Инициализация:

   • Объявление переменных: input (строка), alphabet (множество символов), i (счетчик), result (булево значение).
   • Запрос ввода строки от пользователя.
   • Инициализация множества alphabet всеми буквами нижнего регистра от 'a' до 'z'.
   • Установка начального значения result в true.

2. Обработка строки:

   • Цикл по каждому символу введенной строки:
     • Если символ - строчная буква, удалить её из множества alphabet.
     • Если символ - заглавная буква, преобразовать в строчную и удалить из alphabet.

3. Проверка результата:

   • Если множество alphabet не пусто, установить result в false.

4. Вывод результата:

   • Если result равно true, вывести сообщение о наличии всех букв алфавита.
   • Иначе вывести сообщение об отсутствии всех букв алфавита.

Код программы на языке Pascal ABC:

program AlphabetChecker;

var
  input: string;
  alphabet: set of char;
  i: integer;
  result: boolean;

begin
  Write('Enter a string: ');
  ReadLn(input);
  
  alphabet := ['a'..'z'];
  result := true;
  
  for i := 1 to Length(input) do
  begin
    if (input[i] >= 'a') and (input[i] <= 'z') then
      Exclude(alphabet, input[i])
    else if (input[i] >= 'A') and (input[i] <= 'Z') then
      Exclude(alphabet, Chr(Ord(input[i]) + 32));
  end;
  
  if alphabet <> [] then
    result := false;
  
  if result then
    WriteLn('The string contains all letters of the alphabet.')
  else
    WriteLn('The string does not contain all letters of the alphabet.');
end.

Примеры входных данных и ожидаемых результатов:

Input: "The quick brown fox jumps over the lazy dog"
Output: The string contains all letters of the alphabet.

Input: "The quick brown fox jumps over the lazy cat"
Output: The string does not contain all letters of the alphabet.

Input: "abcdefghijklmnopqrstuvwxyz"
Output: The string contains all letters of the alphabet.

Input: "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Output: The string contains all letters of the alphabet.

Input: "This is a test sentence"
Output: The string does not contain all letters of the alphabet.

Input: "Pack my box with five dozen liquor jugs"
Output: The string contains all letters of the alphabet.

Input: "Hello, World!"
Output: The string does not contain all letters of the alphabet.

Input: "The five boxing wizards jump quickly"
Output: The string contains all letters of the alphabet.

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

1. Объявление переменных:

   var
     input: string;
     alphabet: set of char;
     i: integer;
     result: boolean;

   Объявляются переменные: input для хранения введенной строки, alphabet для хранения множества букв алфавита, i для использования в цикле и result для хранения результата проверки.

2. Ввод строки:

   Write('Enter a string: ');
   ReadLn(input);

   Программа выводит приглашение и считывает введенную пользователем строку в переменную input.

3. Инициализация переменных:

   alphabet := ['a'..'z'];
   result := true;

   Множество alphabet инициализируется всеми строчными буквами английского алфавита. Переменная result изначально устанавливается в true.

4. Обработка введенной строки:

   for i := 1 to Length(input) do
   begin
     if (input[i] >= 'a') and (input[i] <= 'z') then
       Exclude(alphabet, input[i])
     else if (input[i] >= 'A') and (input[i] <= 'Z') then
       Exclude(alphabet, Chr(Ord(input[i]) + 32));
   end;

   Цикл проходит по каждому символу введенной строки. Если символ - строчная буква, она удаляется из множества alphabet. Если символ - заглавная буква, она преобразуется в строчную и удаляется из alphabet.

5. Проверка наличия всех букв:

   if alphabet <> [] then
     result := false;

   Если после обработки строки множество alphabet не пусто, значит не все буквы алфавита были найдены, и result устанавливается в false.

6. Вывод результата:

   if result then
     WriteLn('The string contains all letters of the alphabet.')
   else
     WriteLn('The string does not contain all letters of the alphabet.');

   В зависимости от значения result, выводится соответствующее сообщение о наличии или отсутствии всех букв алфавита в строке.

Блок-схема:

Нажмите на изображение, чтобы увеличить

Блок-схема к задаче: Напишите программу, которая принимает строку и определяет, содержит ли она все буквы алфавита.