Проверить, в введенном стринге все ли символы буквы - Turbo Pascal

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

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

Напишите пожалуйста программу, определяющую, все ли символы в введенном стринге - буквы Т.е. ksekjh - все символы-буквы skghs4276 - не все символы-буквы

Решение задачи: «Проверить, в введенном стринге все ли символы буквы»

textual
Листинг программы
var
  s: string;
  vse: boolean;
  i: integer;
 
begin
  readln(s);  
  vse := true;
  for i := 1 to length(s) do
    if not ((s[i] in ['a'..'z']) or (s[i] in ['A'..'Z'])) then
    begin
      vse := false;
      break;
    end;
  writeln(vse);
end.

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

В данном коде используется язык программирования Turbo Pascal. Он проверяет, содержит ли введённая строка все буквы от 'a' до 'z' или от 'A' до 'Z'. Код начинается с объявления переменных: var s: string; vse: boolean; i: integer; Затем происходит чтение строки из стандартного ввода с помощью функции readln(s). Переменная vse инициализируется значением true. Далее идет цикл for, который проходит по каждому символу в строке s. Внутри цикла проверяется, является ли текущий символ буквой. Если нет, то переменная vse устанавливается в значение false и цикл прерывается с помощью оператора break. После завершения цикла выводится значение переменной vse, которое должно быть равно true, если все символы в строке являются буквами, и false в противном случае.

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

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